procedure setLocalDateTime(Value: TDateTime);
var
lSystemDateTime: TSystemTime;
begin
DateTimeToSystemTime(Value, lSystemDateTime);
SetLocalTime(lSystemDateTime);
end;
---------------------
作者：清风古韵
来源：****
原文：https://blog.****.net/ttpage/article/details/9161739
版权声明：本文为博主原创文章，转载请附上博文链接！