客户端登录的时候,自动同中间件校对时间。
procedure TdmCommonFun.setLocalDateTime(Value: TDateTime);
var
lSystemDateTime: TSystemTime;
begin
DateTimeToSystemTime(Value, lSystemDateTime);
SetLocalTime(lSystemDateTime);
end;
客户端登录的时候,自动同中间件校对时间。
procedure TdmCommonFun.setLocalDateTime(Value: TDateTime);
var
lSystemDateTime: TSystemTime;
begin
DateTimeToSystemTime(Value, lSystemDateTime);
SetLocalTime(lSystemDateTime);
end;