let string_of_date ?(hour=false) d = Printf.sprintf "%04d-%02d-%02d%s" d.year d.month d.day ( if hour then Printf.sprintf " %02d:%02d" d.hour d.minute else "" )