This commit is contained in:
John Whitington 2020-12-02 17:20:43 +00:00
parent 0e12f44db9
commit 5d421f5147
1 changed files with 3 additions and 3 deletions

View File

@ -159,10 +159,10 @@ let return_date () =
_tm_min = get_int r 39 2; _tm_min = get_int r 39 2;
_tm_hour = get_int r 37 2; _tm_hour = get_int r 37 2;
_tm_mday = day; _tm_mday = day;
_tm_mon = month; _tm_mon = month - 1;
_tm_year = year; _tm_year = year - 1900;
_tm_wday = get_int r2 13 1; _tm_wday = get_int r2 13 1;
_tm_yday = year_day day month year; _tm_yday = year_day day month year - 1;
_tm_isdst = false} _tm_isdst = false}
| _ -> failwith "Unknown Sys.os_type in Cpdfstrftime.return_date" | _ -> failwith "Unknown Sys.os_type in Cpdfstrftime.return_date"