teymoorei
یک شنبه 23 مهر 1391, 11:50 صبح
سلام
اول از همه بگم شاید ظاهرا تکراری باشه اما من کل سایت رو گشتم ولی جواب من پیدا نشد .
این تابع تاریخ شمسی منه :
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 ساعت دیگه رو محاسبه کنم .
یادمه قبلا درست کردم یه تابع کوچیک بود ولی الان ندارمش .
لطفا کمک کنید .
اول از همه بگم شاید ظاهرا تکراری باشه اما من کل سایت رو گشتم ولی جواب من پیدا نشد .
این تابع تاریخ شمسی منه :
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 ساعت دیگه رو محاسبه کنم .
یادمه قبلا درست کردم یه تابع کوچیک بود ولی الان ندارمش .
لطفا کمک کنید .