L liu-yb Unregistered / Unconfirmed GUEST, unregistred user! 2004-01-26 #1 十六进制为 00 D8 98 7C 转换成日期为 1993.08.27 十六进制为 00 B8 B6 7C 转换成日期为 1994.06.27 这是怎么转换的？谢谢。
C creation-zy Unregistered / Unconfirmed GUEST, unregistred user! 2004-01-27 #3 function MyConvToDate(t:Integer):TDate; begin t:=t-1001923584; PInteger(Integer(@Result)+4)^:=t; end; eg: ShowMessage(DateToStr(MyConvToDate($7C98D800))) //00 D8 98 7C 注意字节要反序
function MyConvToDate(t:Integer):TDate; begin t:=t-1001923584; PInteger(Integer(@Result)+4)^:=t; end; eg: ShowMessage(DateToStr(MyConvToDate($7C98D800))) //00 D8 98 7C 注意字节要反序
L liu-yb Unregistered / Unconfirmed GUEST, unregistred user! 2004-01-28 #4 TO:creation-zy,谢谢你的帮助，第一个是对了，但是第二个值是不对的。不明白为什么要 't:=t-1001923584;'? 说明一下， '十六进制为 00 D8 98 7C 转换成日期为 1993.08.27' 日期可能是数据值型的19930827 '十六进制为 00 B8 B6 7C 转换成日期为 1994.06.27' 日期可能是数据值型的19940627
TO:creation-zy,谢谢你的帮助，第一个是对了，但是第二个值是不对的。不明白为什么要 't:=t-1001923584;'? 说明一下， '十六进制为 00 D8 98 7C 转换成日期为 1993.08.27' 日期可能是数据值型的19930827 '十六进制为 00 B8 B6 7C 转换成日期为 1994.06.27' 日期可能是数据值型的19940627
