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

[teymoorei]

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

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

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 ساعت دیگه رو محاسبه کنم .
یادمه قبلا درست کردم یه تابع کوچیک بود ولی الان ندارمش .
لطفا کمک کنید .

[Hybrid]

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

سلام ، میتونید از 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