Imports System.Globalization.PersianCalendar
Public Class Form1
Public Function ShamsiToMiladi(ByVal SDate As String, ByVal h As Integer, ByVal mi As Integer) As String
Dim pc As New Globalization.PersianCalendar
ShamsiToMiladi = Nothing
Dim Tarikh
Tarikh = Split(SDate, "/")
Dim dateOut As DateTime = (pc.ToDateTime(Tarikh(0), Tarikh(1), Tarikh(2), h, mi, 0, 0))
Return dateOut
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim DateM1 As Date = ShamsiToMiladi("1390/02/12", 22, 30) 'معادل میلادی تاریخ وارد شده حساب می شود ShamsiToMiladi از طریق تابع
Dim DateM2 As Date = ShamsiToMiladi("1390/02/14", 6, 20)
Dim Y As Integer = DateDiff(DateInterval.Year, DateM1, DateM2) ' اختلاف تاریخ به سال محاسبه می شود
DateM1 = DateM1.AddYears(Y) 'اختلاف سال به DateBrith اضافه می شود
Dim M As Integer = DateDiff(DateInterval.Month, DateM1, DateM2) ' اختلاف ماه محاسبه می شود
DateM1 = DateM1.AddMonths(M) ' اختلاف ماه به DateBrith اضافه می شود
Dim D As Integer = DateDiff(DateInterval.Day, DateM1, DateM2) ' اختلاف روز محاسبه می شود
DateM1 = DateM1.AddDays(D)
Dim H As Integer = DateDiff(DateInterval.Hour, DateM1, DateM2) ' اختلاف روز محاسبه می شود
DateM1 = DateM1.AddHours(H)
Dim mi As Integer = DateDiff(DateInterval.Minute, DateM1, DateM2) ' اختلاف روز محاسبه می شود
MsgBox("DateDiff is :" & Y & "/" & M & "/" & D & " " & H & ":" & mi)
End Sub
End Class