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

[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)