Dim Gyear As Integer 'input gregorian(miladi) year
Dim Gday As Integer 'input gregorian day
Dim Gmonth As Integer 'input gregorian month
Dim Gdayofyear As Integer
Dim Gyear_ As Integer
Dim Jday As Integer 'Output jalali(shamsi) day
Dim Jmonth As Integer 'Output Jalali month
Dim Jyear As Integer 'Output Jalali year
Dim Jdayofyear As Integer
Dim Gnumdayofyear As Integer
Dim Isleapyear As Bit
Dim Isleapyearp As Bit
Dim Iloop As Byte
Dim Temp1 As Integer
Dim Temp2 As Integer
Dim Temp3 As Integer
Dim Temp4 As Integer
Dim Jmonth_a(12) As Byte
Dim Gmonth_a(12) As Byte
Gmonth_a(1) = 31
Gmonth_a(2) = 28
Gmonth_a(3) = 31
Gmonth_a(4) = 30
Gmonth_a(5) = 31
Gmonth_a(6) = 30
Gmonth_a(7) = 31
Gmonth_a(8) = 31
Gmonth_a(9) = 30
Gmonth_a(10) = 31
Gmonth_a(11) = 30
Gmonth_a(12) = 31
Gnumdayofyear = 365
Gyear = 2006 'Sample gregorian (miladi) Year
Gday = 11 'Sample gregorian day
Gmonth = 11 'Sample gregorian month
Temp1 = Gyear Mod 4
Temp2 = Gyear Mod 100
Temp3 = Gyear Mod 400
Temp4 = Temp1 And Temp2
If Temp4 <> 0 Or Temp3 = 0 Then
Gmonth_a(2) = 28
Else
Gmonth_a(2) = 29
End If
Gyear_ = Gyear - 1
Temp1 = Gyear_ Mod 4
Temp2 = Gyear_ Mod 100
Temp3 = Gyear_ Mod 400
Temp4 = Temp1 And Temp2
If Temp4 <> 0 Or Temp3 = 0 Then
Reset Isleapyearp
Else
Set Isleapyearp
End If
Temp1 = Gmonth - 1
For Iloop = 1 To Temp1
Gdayofyear = Gmonth_a(iloop) + Gdayofyear
Next
Gdayofyear = Gday + Gdayofyear
If Gdayofyear > 79 Then
Temp1 = Gdayofyear - 79
Jyear = Gyear - 621
If Temp1 < 186 Then
Temp2 = Temp1 Mod 31
Temp3 = Temp1 / 31
If Temp2 = 0 Then
Jmonth = Temp3
Jday = 31
Else
Jmonth = Temp3 + 1
Jday = Temp2
End If
Else
Temp2 = Temp1 - 186
Temp3 = Temp2 Mod 30
Temp4 = Temp2 / 30
If Temp3 = 0 Then
Jmonth = Temp4 + 6
Jday = 30
Else
Jmonth = Temp4 + 7
Jday = Temp3
End If
End If
Else
Jyear = Gyear - 622
If Isleapyearp = 1 Then
Gdayofyear = Gdayofyear + 11
Else
Gdayofyear = Gdayofyear + 10
End If
Temp2 = Gdayofyear Mod 30
Temp3 = Gdayofyear / 30
If Temp2 = 0 Then
Jmonth = Temp3 + 9
Jday = 30
Else
Jmonth = Temp3 + 10
Jday = Temp2
End If
Waitms 1
End If
دیدگاه