function DateTimeNow():TDateTime;
var Day,Month,Year,H,M,S,MS:integer;
_Day,_Month,_Year,_H,_M,_S,_MS:Word;
MilliSecDiff:int64;
DateTimeUTC,DateTimeCurrentZone:TDateTime;
begin
DecodeDateTime(Now,_Year,_Month,_Day,_H,_M,_S,_MS);
DateTimeUTC:=EncodeDateTime(_Year,_Month,_Day,_H,_M,_S,0);
form1.GetDateTimeDecode(Day,Month,Year,H,M,S);
DateTimeCurrentZone:=EncodeDateTime(Year,Month,Day,H,M,S,0);
MilliSecDiff:=MilliSecondsBetween(DateTimeUTC,DateTimeCurrentZone);
if DateTimeCurrentZone<DateTimeUTC then MilliSecDiff:=0-MilliSecDiff;
Result:=IncMilliSecond(Now,MilliSecDiff);
end;