-
Пишу: EncodeDate(2008, 10, 10, Dt). Получаю 10.10.3907.
Пишу: EncodeDate(8+101, 10, 10, Dt). Получаю 10.10.2008. Как использовать EncodeDate? Каким образом можно перевести также и время (10:10:10)? Неужели обязателен SysUtils...
-
Штука в том, чем вы получаете 10.10.3907. DateTime отличается от дельфийского и SQL-вского точкой отсчёта даты.
-
Уважаемый Vladimir Kladov спасибо за ответ... А как быть EncodeTime-рованием?
-
> А как быть EncodeTime-рованием?
Самому написать несложно. Как вариант:
var Dt:TdateTime;
St:TSystemTime;
begin
St.wDay:=10;
St.wMonth:=10;
St.wYear:=2008;
St.wHour:=10;
St.wMinute:=10;
St.wSecond:=10;
SystemTime2DateTime(St,Dt);
end;
-
В результате всех затраченных усилий переписал EncodeDate и EncodeTime из SysUtils. Не пойму зачем писать свою функцию, применять SystemTime2DateTime, а потом отнимать 693594
|
Есть новые 
Нет новых [134431 +14][b:0][p:0.001]