let date_of_string s =
let f ye mo da ho mi se =
let t =
{
tm_year = ye - 1900 ;
tm_mon = mo - 1;
tm_mday = da ;
tm_wday = 0 ;
tm_hour = ho ;
tm_min = mi ;
tm_sec = 0 ;
tm_yday = 0;
tm_isdst = false ;
}
in
fst (Unix.mktime t)
in
Scanf.sscanf s "%d-%d-%d %d:%d:%d" f