Текущий архив: 2004.04.25;
Скачать: CL | DM;

Вниз

Как поменять время ?   Найти похожие ветки 

← →
Morg   (2004-02-29 19:52) [0]

Этот код меняет время и дату, а как синхронизировать что-то одно.

function SetPCSystemTime(tDati: TDateTime): Boolean;
var
 tSetDati: TDateTime;
 vDatiBias: Variant;
 tTZI: TTimeZoneInformation;
 tST: TSystemTime;
begin
 GetTimeZoneInformation(tTZI);
 vDatiBias := tTZI.Bias / 1440;
 tSetDati := tDati + vDatiBias;
 with tST do
 begin
   wYear := StrToInt(FormatDateTime("yyyy", tSetDati));
   wMonth := StrToInt(FormatDateTime("mm", tSetDati));
   wDay := StrToInt(FormatDateTime("dd", tSetDati));
   wHour := StrToInt(FormatDateTime("hh", tSetDati));
   wMinute := StrToInt(FormatDateTime("nn", tSetDati));
   wSecond := StrToInt(FormatDateTime("ss", tSetDati));
   wMilliseconds := 0;
 end;
 SetPCSystemTime := SetSystemTime(tST);
end;


P.S. знаю что ламер Ж)

---

← →
Novichok   (2004-02-29 20:03) [1]


SetPCSystemTime(date+strtotime("19:01:33"));


Дату он меняет на ту же самую, а время на то что в скобках :)

---

← →
Morg   (2004-02-29 20:03) [2]

спасибо

---

Страницы: 1 вся ветка

Текущий архив: 2004.04.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.08 c