این تابع تبدیل میلادی به شمسی هست همین رو بر عکس کن درست می شه
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