|
procedure ChangeDateTime
(dYear, dMonth, dDay, dHour: Integer);
var
DateTime : TSystemTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
qr:tdatetime;
begin
qr:=now;
DecodeDate(qr, Year, Month, Day);
DecodeTime(qr, Hour, Min, Sec, MSec);
DateTime.wYear := Year + dYear;
DateTime.wMonth := Month + dMonth;
DateTime.wDay := Day + dDay;
DateTime.wHour := Hour + dHour - 4;
DateTime.wMinute := Min;
DateTime.wSecond := Sec;
DateTime.wMilliseconds := MSec;
SetSystemTime(DateTime);
end;
|
