let string_to_time (str:string) =
let regexp = Str.regexp "\\([0-9]*\\)\\.\\([0-9]*\\)_\\([0-9]*\\):\\([0-9]*\\)" in
if (Str.string_match regexp str 0) then begin
let day = int_of_string (Str.matched_group 1 str) in
let mont = int_of_string (Str.matched_group 2 str) in
let hour = int_of_string (Str.matched_group 3 str) in
let min = int_of_string (Str.matched_group 4 str) in
{ Unix.tm_sec = 0;
Unix.tm_min = min;
Unix.tm_hour = hour;
Unix.tm_mday = day;
Unix.tm_mon = mont;
Unix.tm_year = 10;
Unix.tm_wday = 0;
Unix.tm_yday = 0;
Unix.tm_isdst = false;
}
end else
{ Unix.tm_sec = 0;
Unix.tm_min = 0;
Unix.tm_hour = 0;
Unix.tm_mday = 1;
Unix.tm_mon = 1;
Unix.tm_year = 10;
Unix.tm_wday = 0;
Unix.tm_yday = 0;
Unix.tm_isdst = false;
}