Форум: "KOL";
Текущий архив: 2010.02.28;
Скачать: [xml.tar.bz2];

Вниз

Функция 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

---

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

Форум: "KOL";
Текущий архив: 2010.02.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c