L u k e
چهارشنبه 28 مهر 1389, 23:27 عصر
سلام
من واسه تبدیل تاریخ از Persian Calende استفاده می کنم
حالا یه مشکلی واسم پیش آومده
چرا توی بعضی تاریخ ها جای ماه و روز عوض می شه ؟
و Persian Calnder هم به اشتباه می ندازه ؟
این توابع تبدیل تاریخ منه مشکلی داره ؟
یا اینکه فقط باید جای ماه و روز رو عوض کنم ؟
Public Shared Function ToShamsi(ByVal _Date As Date) As String
Dim pc As New PersianCalendar
Return pc.GetYear(_Date).ToString + "/" + pc.GetMonth(_Date).ToString() + "/" + pc.GetDayOfMonth(_Date).ToString()
End Function
Public Shared Function ToMiladi(ByVal _date As String) As Date
Dim dt() As String = Split(_date, "/")
Dim PC As New System.Globalization.PersianCalendar
Return PC.ToDateTime(dt(0), dt(1), dt(2), 0, 0, 0, 0)
End Functionمن کلی داده توی بانکم دارم ( میلادی ذخیره کردم ) یعنی هشون جای ماه و روز شون برعکسه ؟
من واسه تبدیل تاریخ از Persian Calende استفاده می کنم
حالا یه مشکلی واسم پیش آومده
چرا توی بعضی تاریخ ها جای ماه و روز عوض می شه ؟
و Persian Calnder هم به اشتباه می ندازه ؟
این توابع تبدیل تاریخ منه مشکلی داره ؟
یا اینکه فقط باید جای ماه و روز رو عوض کنم ؟
Public Shared Function ToShamsi(ByVal _Date As Date) As String
Dim pc As New PersianCalendar
Return pc.GetYear(_Date).ToString + "/" + pc.GetMonth(_Date).ToString() + "/" + pc.GetDayOfMonth(_Date).ToString()
End Function
Public Shared Function ToMiladi(ByVal _date As String) As Date
Dim dt() As String = Split(_date, "/")
Dim PC As New System.Globalization.PersianCalendar
Return PC.ToDateTime(dt(0), dt(1), dt(2), 0, 0, 0, 0)
End Functionمن کلی داده توی بانکم دارم ( میلادی ذخیره کردم ) یعنی هشون جای ماه و روز شون برعکسه ؟