value date_to_tm =
fun
d
->
Unix
.localtime (d *. 86400.0 +. 0.5)