PersianCalendar

[mosavi_M_K]

سلام
به نظر شما PersianCalendar چرا در این کد جواب نمی دهد.

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim a AsDate

Dim c AsDate = a.Year & "/" & a.Month & "/" & a.Day
Dim B AsNew System.Globalization.PersianCalendar
(label1.Text = B.GetYear(c
(label2.Text = B.GetMonth(c
(Label3.Text = B.GetDayOfMonth(c
EndSub

[solmaz_zm]

یعنی چی چرا جواب نمیده،اگر پیغام خطا میده.؟؟یا اصلا اجرا نمیشه....
راستی وقتی کد می نویسی بین دوتاعلامت" نامبر" قرارش بده تا خوانا تر شن.

[amirsajjadi]

سلام
ببین این کد مشکلتو حل میکنه

Dim a As Date = Now
Dim c As Date = DateSerial(a.Year, a.Month, a.Day)
Dim B As New System.Globalization.PersianCalendar
label1.Text = B.GetYear(c)
label2.Text = B.GetMonth(c)
Label3.Text = B.GetDayOfMonth(c)

[mosavi_M_K]

amirsajjadi عزیز خیلی ممنون کد جدید درست عمل کرد.