let float_of_hh_mm_ss hh mm ss = if hh < 0 then (Float.of_int (((hh * 60) - mm) * 60)) -. ss else (Float.of_int (((hh * 60) + mm) * 60)) +. ss