网络时间校对
procedure setLocalDateTime(Value: TDateTime);
var
lSystemDateTime: TSystemTime;
begin
DateTimeToSystemTime(Value, lSystemDateTime);
SetLocalTime(lSystemDateTime);
end;
procedure setLocalDateTime(Value: TDateTime);
var
lSystemDateTime: TSystemTime;
begin
DateTimeToSystemTime(Value, lSystemDateTime);
SetLocalTime(lSystemDateTime);
end;
本文介绍了一种通过程序设置本地时间的方法。使用了TDateTime类型来表示时间,并通过DateTimeToSystemTime函数将它转换为系统时间格式,最后调用SetLocalTime函数完成时间设置。

2837

被折叠的 条评论
为什么被折叠?



