View Full Version : مبتدی: مشکل با کلاس Globalization.PersianCalendar
imanx7
جمعه 26 اردیبهشت 1393, 21:25 عصر
سلام ! هر کاری میکنم نمیتونم با این کلاس تاریخ شمسی رو برگردونم !! لطفا راهنمایی کنید !
Dim Shamsi As Globalization.PersianCalendar
Me.Text1.text = Shamsi.GetYear(now)
hosseinbarnamenevis
جمعه 26 اردیبهشت 1393, 22:41 عصر
من خئدم یه بار این رو نوشتم از همینم استفاده میکنم امیدوارم بدرد بخوره :D
Dim perdate As New System.Globalization.PersianCalendar
Dim year As String
Dim mount As String
Dim day As String
Dim datenow As String
year = perdate.GetYear(Date.Now)
If perdate.GetMonth(Date.Now) < 10 Then
mount = "0" + perdate.GetMonth(Date.Now).ToString()
Else
mount = perdate.GetMonth(Date.Now)
End If
If perdate.GetDayOfMonth(Date.Now) < 10 Then
day = "0" + perdate.GetDayOfMonth(Date.Now).ToString()
Else
day = perdate.GetDayOfMonth(Date.Now)
End If
datenow = year + "/" + mount + "/" + day
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.