julian_persian

Description

julian_persian converts a provided Julian date into an Persian date.

Gory details

The function presented here is just one example of an algorithm to convert a Julian date to an Persian date. It starts by calling julian_jdn, to calculate the Julian day number for the provided julian date. From this Julian day number, the Persian year, month and day are derived, by calling jdn_persian.

Code section

Sub julian_persian(ByRef iYear As Integer, _
                        ByRef iMonth As Integer, _
                        ByRef iDay As Integer)

    Call jdn_persian(julian_jdn(iYear, _
                                iMonth, _
                                iDay), _
                     iYear, iMonth, iDay)

End Sub

See also

julian_jdn, jdn_persian, persian_julian

Last update