Функция EncodeDate в KOL

← →
Сашик (2008-06-01 11:00) [0]

Пишу: EncodeDate(2008, 10, 10, Dt). Получаю 10.10.3907.
Пишу: EncodeDate(8+101, 10, 10, Dt). Получаю 10.10.2008. Как использовать EncodeDate? Каким образом можно перевести также и время (10:10:10)? Неужели обязателен SysUtils...

← →
Vladimir Kladov (2008-06-01 19:24) [1]

Штука в том, чем вы получаете 10.10.3907. DateTime отличается от дельфийского и SQL-вского точкой отсчёта даты.

← →
Сашик (2008-06-01 20:08) [2]

Уважаемый Vladimir Kladov спасибо за ответ... А как быть EncodeTime-рованием?

← →
Compiler © (2008-06-01 23:12) [3]

> А как быть 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;

← →
Сашик (2008-06-03 12:59) [4]

В результате всех затраченных усилий переписал EncodeDate и EncodeTime из SysUtils. Не пойму зачем писать свою функцию, применять SystemTime2DateTime, а потом отнимать 693594

Функция EncodeDate в KOL Найти похожие ветки