phurst@1972: type datetime = { Year : int,
phurst@1972:                   Month : int,
phurst@1972:                   Day : int,
phurst@1972:                   Hour : int,
phurst@1972:                   Minute : int,
phurst@1972:                   Second : int
phurst@1972:                 }
phurst@1972: 
phurst@1972: val toTime : datetime -> time
phurst@1972: val fromTime : time -> datetime
phurst@1972: val datetimef : string -> datetime -> string
phurst@1972: val now : transaction datetime