value date_to_string = 
    fun d -> let (y, mon, day, h, min, s) = decode_date d in
             Printf.sprintf "%4d/%02d/%02d %02d:%02d:%02d" y mon day h min s