karim orooji
سه شنبه 05 خرداد 1388, 16:35 عصر
سلام بچه من يك كلاس تبديل تاريخ شمسي به ميلادي و بلعكس دارم
نميدونم كه چطور استفاده كنم
ميخواستم برام بيشتر بازش كنيد توضيح بيشتر
باتشكر
PublicClass ConvertDate
PublicFunction ShamsiToMiladi(ByVal ShamsiDate AsString) AsString
Dim PDate AsNew PersianCalendar
Dim y, m, d AsInteger
y = Mid(ShamsiDate, 1, 4)
m = Mid(ShamsiDate, 6, 2)
d = Mid(ShamsiDate, 9, 2)
Return (Mid(PDate.ToDateTime(y, m, d, 1, 1, 1, 1, 1), 1, 11))
EndFunction
PublicFunction MiladiToShamsi(ByVal MiladiDate AsString) AsString
Dim PDate AsNew PersianCalendar
Dim miladi AsDate = CDate(MiladiDate)
Dim y, m, d AsString
y = PDate.GetYear(miladi)
m = PDate.GetMonth(miladi)
d = PDate.GetDayOfMonth(miladi)
Return y & "/" & m & "/" & d
EndFunction
EndClass
دوستان اگر نمونه اي مانند اين كلاس دارم ما هم طالب داشتن اونيم
نميدونم كه چطور استفاده كنم
ميخواستم برام بيشتر بازش كنيد توضيح بيشتر
باتشكر
PublicClass ConvertDate
PublicFunction ShamsiToMiladi(ByVal ShamsiDate AsString) AsString
Dim PDate AsNew PersianCalendar
Dim y, m, d AsInteger
y = Mid(ShamsiDate, 1, 4)
m = Mid(ShamsiDate, 6, 2)
d = Mid(ShamsiDate, 9, 2)
Return (Mid(PDate.ToDateTime(y, m, d, 1, 1, 1, 1, 1), 1, 11))
EndFunction
PublicFunction MiladiToShamsi(ByVal MiladiDate AsString) AsString
Dim PDate AsNew PersianCalendar
Dim miladi AsDate = CDate(MiladiDate)
Dim y, m, d AsString
y = PDate.GetYear(miladi)
m = PDate.GetMonth(miladi)
d = PDate.GetDayOfMonth(miladi)
Return y & "/" & m & "/" & d
EndFunction
EndClass
دوستان اگر نمونه اي مانند اين كلاس دارم ما هم طالب داشتن اونيم