نمایش 48 ساعت دیگه

سلام
اول از همه بگم شاید ظاهرا تکراری باشه اما من کل سایت رو گشتم ولی جواب من پیدا نشد .

این تابع تاریخ شمسی منه :

    Private 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

حالا می خوام 48 ساعت دیگه رو محاسبه کنم .
یادمه قبلا درست کردم یه تابع کوچیک بود ولی الان ندارمش .
لطفا کمک کنید .

نقل قول:

---

یادمه قبلا درست کردم یه تابع کوچیک بود ولی الان ندارمش .

---

سلام ، میتونید از DateAndTime.DateAdd استفاده کنید ؛

یک مثال با استفاده از تابع خودتون :

Public Class Form1



    Private 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



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        MessageBox.Show(MiladiToShamsi(DateTime.Now))

        'اضافه کردن 48 ساعت به تاریخ فعلی 

        MessageBox.Show(MiladiToShamsi(DateAndTime.DateAdd  (DateInterval.Hour,48, DateTime.Now)))

    End Sub



End Class