وارد کردن تاریخ

**majid_mx4** · 2017/05/10, 23:13

با سلام

دو راه برای شما پیشنهاد میکنم اولی که فکر کنم مناسب کار شما باشد

کد:

Private Sub TextBox1_Change()
If Left(TextBox1, 2) <> 13 Then
TextBox1.Text = "13" & TextBox1
End If
End Sub

و دومین راه

کد:

Private Sub TextBox1_Change()
If Len(TextBox1) = 8 Then
TextBox1.Text = "13" & TextBox1
End If
End Sub

موفق باشید میر

**sma4727134** · 2017/05/14, 18:09

با تشکر از دوست ارجمند راستش چیزی که من می خواستم شبیه فایلی هست که ضمیمه می کنم فقط چندتا ایراد دارد فایلم لطفا در خصوص موارد زیر راهنمایی نمایید
1. اگر کمی دقت نمایید ملاحظه می کنید که بین کاراکترهای 3 و 4 و همچنین بین 6و 7 فاصله میاندازد این فاصله انداخته نشود
2. در موقع تایپ اشتباه و پاک کردن تاریخ با backspace علامتهای \ نیز پاک می شود نمی خوام این علایم و همچنین 13 موجود در اول سال حذف گردند
3موقع ذخیره د رسلول علایم \ حذف گردد و مثلا تاریخ به شکل 13900506 ذخیره گردد
با تشکر

فایل های پیوست شده

تاریخ.rar (17.1 کیلو بایت, مشاهدات 9)

**majid_mx4** · 2017/05/15, 00:42

با سلام

لطفا ضمیمه را بررسی نمایید.

خلاصه : ثبت تاریخ با فرمت خاص

موفق باشید میر

فایل های پیوست شده

تاریخ mir.rar (14.0 کیلو بایت, مشاهدات 18)

**sma4727134** · 2017/05/15, 08:43

دوست عزیز تشکر از لطفتون تقریبا 80%مشکلم را حل کردید فقط وقتی با backspace پاک میکنم علامت (\) و 13 موجود در ابتدای سال نیز نیز پاک میشوند اگر امکانش باشد که اینها پاک نشوند ممنون میشم ازتون