نمایش زمان در textbox

سلام
البته مشکل من نمایش تاریخ هست نه زمان:31:
من میخوام در یک textbox تاریخ همون روز به صورت شمسی نمایش داده بشه
میتونید کمکم کنید.

کد:

---

http://golestanweb.com/mahla.txt

---

ممنون ولی من این کد رو به زبان vb6 میخوام نه دات نت
خیلی هم حیاتیه!!

بفرمایین..


البته چون ماه میلادی با ماه شمسی برابر نیست ممکنه مه دسامبر رو ارور نشون بده ولی اگه تاریخ سیستمت رو مثلا روی نوامبر ببری این کد کامملا درست کار میکنه


[PHP]Private Sub Timer1_Timer()
Month_days = Array(0, 31, 59, 90, 120, 151, 181, 212, 242, 272, 303, 333)
my_week_days = Array("SAT", "SU", "MO", "THU", "WED", "THE", "FRI")
Months_name = Array("Farvardin", "Ordi", "Khor", "Tir", "Mor", "Shah", "Mehr", "Aban", "Azar", "Dey", "Bahman", "Esfand")
mdtn = Day(Now) + Month_days(Month(Now))
my_week_day = my_week_days(Weekday(Now))
If mdtn > 79 Then
my_1 = mdtn - 79
If my_1 <= 186 Then
If (my_1 Mod 31) = 0 Then
shamsi_day = 31
shamsi_month = Int(my_1 / 31)
Else
shamsi_day = (my_1 Mod 31)
shamsi_month = Int(my_1 / 31) + 1
End If
Else
my_1 = (my_1 - 186)
If (my_1 Mod 30) = 0 Then
shamsi_day = 30
shamsi_month = Int(my_1 / 30) + 6
Else
shamsi_day = (my_1 Mod 30)
shamsi_month = Int(my_1 / 30) + 7
End If
End If
shamsi_year = Year(Now) - 621
Else
If ((Year(Now) Mod 100) = 0 And (Year(Now) Mod 400) = 0) Or ((Year(Now) Mod 100) <> 0 And (Year(Now) Mod 4) = 0) Then
my_day_diff = 11
Else
my_day_diff = 10
End If
my_1 = (mdtn + my_day_diff) / 30
If (my_1 Mod 30) = 0 Then
shamsi_day = 30
shamsi_month = Int(my_1 / 30) + 9
Else
shamsi_day = (my_1 Mod 30)
shamsi_month = Int(my_1 / 30) + 10
End If
shamsi_year = Year(Now) - 622
End If
my_shamsi_month = Months_name(shamsi_month - 2)
Persian_Date_String = "Today" & my_week_day & "===" & shamsi_day + 1 & " " & my_shamsi_month & " " & shamsi_year
text1.text = Persian_Date_String
End Sub
[/PHP]

ممنون
خیلی مفید بود
اما در پارامتر mdtn پیغام خطا میده
واسه شما هم همین مشکل رو داره؟

گفتم که چون سال میلادی با ما همزمان نیست شاید تو بعضی سیستم ها ارور بده

تاریخ سیستمتو یک ماه ببر عقب یا جلو درست میشه
ماه دسامبر رو شاید نشون نده