PDA

View Full Version : تابعی در VB.Net برای تبدیل تاریخ شمسی به میلادی



omid_reza
جمعه 09 مرداد 1388, 12:41 عصر
با سلام
من نیاز فوری به تابعی در vb.net دارم که تاریخ شمسی را به میلادی تبدیل کند
در اینترنت زیاد جستجو کردم اما مورد مناسبی پیدا نکردم
لطفا کمکم کنید ...

:چشمک:

Hossis
جمعه 09 مرداد 1388, 17:28 عصر
این تابع تبدیل میلادی به شمسی هست همین رو بر عکس کن درست می شه


Dim x As New System.Globalization.PersianCalendar

Private Function GetNemeWeek(ByVal Emrooz As Integer) As String
'Return "شنبه"
Select Case Emrooz
Case DayOfWeek.Friday
Return "جمعه"
Case DayOfWeek.Monday
Return "دوشنبه"
Case DayOfWeek.Saturday
Return "شنبه"
Case DayOfWeek.Sunday
Return "يکشنبه"
Case DayOfWeek.Thursday
Return "سه شنبه"
Case DayOfWeek.Wednesday
Return "چهارشنبه"
Case DayOfWeek.Thursday
Return "پنجشنبه"
End Select
End Function

Private Function GetNemeMonth(ByVal Emrooz As Integer) As String
Select Case Emrooz
Case 1 : Return "فروردين"
Case 2 : Return "ارديبهشت"
Case 3 : Return "خرداد"
Case 4 : Return "تير"
Case 5 : Return "مرداد"
Case 6 : Return "شهريور"
Case 7 : Return "مهر"
Case 8 : Return "آبان"
Case 9 : Return "آذر"
Case 10 : Return "دي"
Case 11 : Return "بهمن"
Case 12 : Return "اسفند"
End Select

End Function
Public Function Shamsi() As String
Return GetNemeWeek(x.GetDayOfWeek(Now)) & " " & x.GetDayOfMonth(Now) & " " & GetNemeMonth(x.GetMonth(Now)) & " " & x.GetYear(Now)

End Function

Hossis
جمعه 09 مرداد 1388, 17:30 عصر
این آدرس رو ببین
www.persianforum.net/s2m.asp

Hossis
جمعه 09 مرداد 1388, 17:32 عصر
همین طور این عبارت را جستجو کن در گوگل
shamsi2miladi +vb.net
shamsi to miladi

hossein-khoshseyar
جمعه 09 مرداد 1388, 19:02 عصر
دوست عزیز تو همین سایت کمی جستجو کن کلی پیدا می کنی

shocraneh
جمعه 09 مرداد 1388, 22:07 عصر
از همین سایت گرفتم