سلام
یه کلاس بنویسید ... توی صفحاتتون این فانشن رو صدا بزنید :
Function datenow() As String
Dim far30 As New System.Globalization.PersianCalendar
Dim fary As String = ""
Dim farm As String = ""
Dim fard As String = ""
Dim fardw As String = ""
Dim farw As String = ""
Dim fardHou As String = ""
Dim fardMin As String = ""
Dim TimeString As DateTime = DateAndTime.Now()
Dim Intdiffrenttime As String = "+3.5"
Dim theUTCTime As DateTime
Dim localZone As TimeZone = TimeZone.CurrentTimeZone
theUTCTime = localZone.ToUniversalTime(TimeString)
theUTCTime = theUTCTime.AddHours(Intdiffrenttime)
fary = far30.GetYear(theUTCTime)
farm = far30.GetMonth(theUTCTime)
fard = far30.GetDayOfMonth(theUTCTime)
Dim Saat As String = far30.GetHour(theUTCTime)
Dim Daghighee As String = far30.GetMinute(theUTCTime)
If farm.Length = 1 Then farm = "0" + farm.ToString
If fard.Length = 1 Then fard = "0" + fard.ToString
If Saat.Length = 1 Then Saat = "0" + Saat.ToString
If Daghighee.Length = 1 Then Daghighee = "0" + Daghighee.ToString
'-----
Return (fary + "-" + farm + "-" + fard + " " + Saat + ":" + Daghighee)
End Function