如何将整型值换成 时间值

Question

如题

Answer 1

Delphi的日期类型就是Double类型的别名，
Delphi定义1899年12月30日零点（12/30/1899 00:00 am）为0，加一天加1，加12小时加0.5
如：
  Showmessage(FloatToStr(StrToDateTime('1899-12-30 00:00')));  // 0
  Showmessage(FloatToStr(StrToDateTime('1899-12-31 00:00')));  // 1
  Showmessage(FloatToStr(StrToDateTime('1900-01-01 06:00')));  // 2.25

Answer 2

用函数floattodatetime(数字)，例如
floattodatetime(38853),就可以转化为2006-05-16