let tuple_to_date (d,m,y) = { year = y; month = m + 1; day = d ; hour = 12 ; minute = 0 ; second = 0 ; zone = 0; week_day = 0 ; }