PDA

View Full Version : مشکل در نمایش تاریخ


mah47gh
یک شنبه 08 مهر 1397, 14:24 عصر
با سلام آیا میتوان در ویژوال بیسیک دات نت تاریخ را بصورت 1397/05/10 در شیئی لیبل نمایش داد
mehran6764
یک شنبه 08 مهر 1397, 16:30 عصر
سلام

چرا نشه ؟! دقیقا مشکلتون برای نمایش تاریخ به فرمتی که گفتین چیه ؟
mah47gh
یک شنبه 08 مهر 1397, 17:32 عصر
سلام

چرا نشه ؟! دقیقا مشکلتون برای نمایش تاریخ به فرمتی که گفتین چیه ؟

سلام تایمر تاریخ فارسی را با یک لیبل را در فرم بصورت 1397/05/10 نمایش دهد
mah47gh
جمعه 27 مهر 1397, 12:10 عصر
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") & "/" & Format(Roz, "00")
Return MiladiToShamsi
End Function