69 |
let hour_in_secs = 3600 |
let hour_in_secs = 3600 |
70 |
let day_in_secs = 24 * hour_in_secs |
let day_in_secs = 24 * hour_in_secs |
71 |
let year_in_secs = 365 * day_in_secs |
let year_in_secs = 365 * day_in_secs |
72 |
|
|
73 |
|
let time_to_string_short time = |
74 |
|
Printf.sprintf "%02d:%02d:%02d" |
75 |
|
time.Unix.tm_hour |
76 |
|
time.Unix.tm_min |
77 |
|
time.Unix.tm_sec |
78 |
|
|
79 |
|
let time_to_string_long time = |
80 |
|
let days = time / 60 / 60 / 24 in |
81 |
|
let rest = time - days * 60 * 60 * 24 in |
82 |
|
let hours = rest / 60 / 60 in |
83 |
|
let rest = rest - hours * 60 * 60 in |
84 |
|
let minutes = rest / 60 in |
85 |
|
let seconds = rest - minutes * 60 in |
86 |
|
if days > 0 |
87 |
|
then Printf.sprintf " %dd " days |
88 |
|
else if hours > 0 |
89 |
|
then Printf.sprintf " %d:%02d:%02d " hours minutes seconds |
90 |
|
else Printf.sprintf " %d:%02d " minutes seconds |