mosavi_M_K
شنبه 05 آبان 1386, 10:37 صبح
سلامی گرم به همه دوستان
در کد زیر هنگام لود برنامه تاریخ شمسی در برچسبها بصورت 111نشان داده میشود لطفا راهنمایی کنید.
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim R AsDate
(MiladiToShamsi(R
Label1.Text = R.Year
Label2.Text = R.Month
Label3.Text = R.Day
EndSub
Function MiladiToShamsi(ByVal A AsDate) AsString
Dim C AsDate = A.Year & "/" & A.Month & "/" & A.Day
Dim B AsNew System.Globalization.PersianCalendar
(Return B.GetYear(C) & "/" & B.GetMonth(C) & "/" & B.GetDayOfMonth(C
EndFunction
در کد زیر هنگام لود برنامه تاریخ شمسی در برچسبها بصورت 111نشان داده میشود لطفا راهنمایی کنید.
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim R AsDate
(MiladiToShamsi(R
Label1.Text = R.Year
Label2.Text = R.Month
Label3.Text = R.Day
EndSub
Function MiladiToShamsi(ByVal A AsDate) AsString
Dim C AsDate = A.Year & "/" & A.Month & "/" & A.Day
Dim B AsNew System.Globalization.PersianCalendar
(Return B.GetYear(C) & "/" & B.GetMonth(C) & "/" & B.GetDayOfMonth(C
EndFunction