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