سینا2010
جمعه 23 اردیبهشت 1390, 19:42 عصر
با سلام خدمت دوستان عزیز
من یک MaskedTextBox رو تو برنامه ام استفاده میکنم که فرمتش تاریخ هست با استفاده از سال جاری و ماه جاری پر می کنم حالا مشکل اینجاست که برای بار اول که می خوای روز رو وارد کنی مشکلی نیست کلید ثبت رو می زنم و میخوام رکورد بعدی رو ثبت کنم تو قسمت روز یک کارکتر خالی می زنه . هر کاری می کنم درست بشو نیست.
دوستان می تونن راهنمایی کنن
کدهایی که باهاش ماسک رو پرمی کنم این هست
Public Function MiladiToShamsi(ByVal MDate As Date) As String
MiladiToShamsi = ""
Dim pc As New Globalization.PersianCalendar
Dim Sal As Integer = pc.GetYear(MDate)
Dim Mah As Integer = pc.GetMonth(MDate)
Dim Roz As Integer = pc.GetDayOfMonth(MDate)
MiladiToShamsi = Format(Sal, "0000") & "/" & Format(Mah, "00") & "/"
Return MiladiToShamsi
End Function
MaskedTextBox1.Text = MiladiToShamsi(Now())
هم با "/" و هم بدون "/" استفاده کردم همین مشکل وجود داره باز
من یک MaskedTextBox رو تو برنامه ام استفاده میکنم که فرمتش تاریخ هست با استفاده از سال جاری و ماه جاری پر می کنم حالا مشکل اینجاست که برای بار اول که می خوای روز رو وارد کنی مشکلی نیست کلید ثبت رو می زنم و میخوام رکورد بعدی رو ثبت کنم تو قسمت روز یک کارکتر خالی می زنه . هر کاری می کنم درست بشو نیست.
دوستان می تونن راهنمایی کنن
کدهایی که باهاش ماسک رو پرمی کنم این هست
Public Function MiladiToShamsi(ByVal MDate As Date) As String
MiladiToShamsi = ""
Dim pc As New Globalization.PersianCalendar
Dim Sal As Integer = pc.GetYear(MDate)
Dim Mah As Integer = pc.GetMonth(MDate)
Dim Roz As Integer = pc.GetDayOfMonth(MDate)
MiladiToShamsi = Format(Sal, "0000") & "/" & Format(Mah, "00") & "/"
Return MiladiToShamsi
End Function
MaskedTextBox1.Text = MiladiToShamsi(Now())
هم با "/" و هم بدون "/" استفاده کردم همین مشکل وجود داره باز