let str2time ?zone date =
  let args =
    [sv_of_string date] @
    match zone with
        None -> []
      | Some zone -> [sv_of_string zone] in
  let sv = call ~fn:"Date::Parse::str2time" args in
  if sv_is_undef sv then
    invalid_arg "Date::Parse: Could not parse date";
  float_of_sv sv