دوست عزیز از این کدها استفاده کن
این کدها رو تو فرمت اضافه کن
Public Function MiladiToShamsi(ByVal MDate As Date) As String
MiladiToShamsi = ""
Dim pc As New Globalization.PersianCalendar
Dim Sal As Integer = pc.GetYear(MDate)
Dim Mah As Integer = pc.GetMonth(MDate)
Dim Roz As Integer = pc.GetDayOfMonth(MDate)
MiladiToShamsi = Format(Sal, "0000") & "/" & Format(Mah, "00") & "/" & Format(Roz, "00")
Return MiladiToShamsi
End Function
این تاریخ شمسی رو تو یه لیبل نشون می شده تو می تونی از تکست باکس یا هر چیز دیگه ای که خواستی استفاده کنی
Label2.Text = MiladiToShamsi(Now)
تقویم شمسی VB.Net
)
پاسخ با نقل قول
