Imports Microsoft.VisualBasic
Imports System.Globalization
Public Class UDate
'
' Convert Date Shamsi To Miladi
' Example : ShamsiToMiladi(1387, 2, 16)
'
Public Function ShamsiToMiladi(ByVal year As Integer, ByVal month _
As Integer, ByVal day As Integer) As Date
Dim a As New System.Globalization.PersianCalendar
Return a.ToDateTime(year, month, day, 0, 0, 0, 0)
End Function
'<<
' Convert Date Miladi To Shamsi
' Example : MiladiToShamsi()
'
Public Function MiladiToShamsi() As Date
Return Convert.ToDateTime(Year_MiladiToShamsi() + "/" + Month_MiladiToShamsi() + "/" + Day_MiladiToShamsi())
End Function
Public Function Year_MiladiToShamsi() As String
Dim DateNow As New PersianCalendar
Return DateNow.GetYear(Date.Now)
End Function
Public Function Month_MiladiToShamsi() As String
Dim DateNow As New PersianCalendar
Dim m As Integer
'----
m = DateNow.GetMonth(Date.Now)
If m < 10 Then
Return "0" + m.ToString
Else
Return m.ToString
End If
End Function
Public Function Day_MiladiToShamsi() As String
Dim DateNow As New PersianCalendar
Dim m As Integer
'----
m = DateNow.GetDayOfMonth(Date.Now)
If m < 10 Then
Return "0" + m.ToString
Else
Return m.ToString
End If
End Function
End Class
از اين كلاس را ميتوني استفاده كني