[agraham]

Have a play with this. See if it does what you need?

EDIT :- the dates and times are a string. In case it is not obvious get the ticks value by :-

  Dim dt(2) ' in globals

  ...

  DateFormat = "dd/mm/yyyy" ' for those of us for whom the defaults fail
  TimeFormat = "hh:mm:ss"
  dt() = StrSplit(info(4)," ")
  d = DateParse(dt(0)) + TimeParse(dt(1)) Mod cTicksperday
  '  "mod" because the current date is included by TimeParse