تاريخ براي ويژوال استوديو 2003

[hsadeh]

من يه پروژه تحت وب قديمي دارم كه با ويژوال استوديو2003 نوشته شده . الان به يك كد يا
dll نياز دارم جهت تاريخ شمسي . بطوري كه بتوان به يك تاريخ شمسي يك روز اضافه كنم
يا دو تاريخ شمسي را مقايسه كنم .من با shamsi.dll كار كردم ولي متاسفانه براي وب جواب نميدهد.از دوستان كسي ميتونه كمك كند ؟
اگر ممكنه نمونه كد بدهيد - ممنون

[khz-web1]

سلام
یه تابع هستش واسه تاریخ شمسی



Function MiladiToShamsi(ByVal Year As Integer, ByVal Month As Integer, ByVal Day As Integer) As String
Dim A As Date = Year.ToString & "/" & Month.ToString & "/" & Day.ToString
Dim B As New PersianCalendar
Dim D As String = B.GetDayOfMonth(A)
Dim M As String = B.GetMonth(A)
If D.Length = 1 Then
D = "0" + D
End If
If M.Length = 1 Then
M = "0" + M
End If
Return B.GetYear(A) & "/" & M & "/" & D
End Function


نحوه استفاده



MiladiToShamsi(Today.Year, Today.Month, Today.Day)

موفق باشید