[Done]

PHP كود :

Sub Servicecalc()
    Dim c As New UmAlQuraCalendar

    Dim d1 As Date = New Date(1406, 6, 1, c)
    Dim d2 As Date = New Date(1439, 10, 15, c)

    Dim y = c.GetYear(d2) - c.GetYear(d1)
    Dim m = c.GetMonth(d2) - c.GetMonth(d1)
    If m < 0 Then y -= 1 : m = 12 - Math.Abs(m)

    MsgBox("Years: " & y & " , Months: " & m)
End Sub