نوشته شده توسط
bnnoor
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(Mah, "0000") & "/" & Format(Sal, "00") & "/"
Return MiladiToShamsi
End Function
ببخشید متوجه نشدم؟
میشود لطف کنید توضیح بدهید. مخصوصا در مورد خط زیر یعنی چی ؟ ماه 4 رقم سال 2 رقم؟
MiladiToShamsi = Format(Mah, "0000") & "/" & Format(Sal, "00") & "/"
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول