بدست آوردن تاريخ روز قبل

[ebrahimv]

چگونه تاريخ روز قبل را به صورت شمسي به دست آوريم؟

[MohsenPS]

سلام،

Dim Sd As New System.Globalization.PersianCalendar
Dim Md As Date = Now.Date.Add(New System.TimeSpan(-1, 0, 0, 0))
Dim Y As Integer = Sd.GetYear(Md)
Dim M As Integer = Sd.GetMonth(Md)
Dim D As Integer = Sd.GetDayOfMonth(Md)

MsgBox(Y.ToString & "/" & M.ToString & "/" & D.ToString)