یادمه قبلا درست کردم یه تابع کوچیک بود ولی الان ندارمش .
سلام ، میتونید از 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
پاسخ با نقل قول
