diff options
Diffstat (limited to 'date.ml')
-rw-r--r-- | date.ml | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -24,7 +24,7 @@ let get_julian_day year month day = begin end -let date_from_julian_day day = begin +let date_from_julian_day (day:Num.num) = begin let shift_day = Num.floor_num day |> Num.add_num (Num.num_of_int 2415019) in |