Synchronize the date and time of SQL _server

// Synchronize the time and date of the SQL _server Server
Procedure TDM. synchronizationsqlserverdatetime ();
VaR
Theserverdatetime: tdatetime; // defines the server time
Thelocaldatetime: _ systemtime; // defines the local system time reference windows
Year, month, day: word; // defines the year, month, and day.
Hour, Min, SEC, msec: word; // defines the time, minute, and second.
Begin
With commonquery do begin
SQL. Clear;
SQL. Add ('select getdate () as server Time ');
Open;
Theserverdatetime: = fieldbyname ('server Time'). asdatetime;
End;
Decodedate (theserverdatetime, year, month, day); // decomposition server year month day
Decodetime (theserverdatetime, hour, Min, SEC, msec); // server Time Decomposition
// ------- Set the local system time
Thelocaldatetime. wyear: = year;
Thelocaldatetime. wmonth: = month;
Thelocaldatetime. wday: = Day;
Thelocaldatetime. whour: = hour;
Thelocaldatetime. wminute: = min;
Thelocaldatetime. wmilliseconds: = msec;
Setlocaltime (thelocaldatetime); // modify the local system time
End;