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

Вниз

EncodeDateTime...   Найти похожие ветки 

← →
NAlexey   (2003-03-20 14:13) [0]

почему такая конструкция: DateTimeToStr(EncodeDateTime(1111, 11, 11, 11, 11, 11, 0)) возвращает - "12.11.1111 12:48:49". Ничего не пойму...

---

← →
Reindeer Moss Eater   (2003-03-20 14:18) [1]

А что такое "EncodeDateTime" ?

---

← →
MBo   (2003-03-20 14:19) [2]

EncodeDateTime?????
знаю EncodeDate и EncodeTime ...

---

← →
NAlexey   (2003-03-20 14:24) [3]

Ну какая разница, почему тогда
DateTimeToStr(EncodeDate(1111, 11, 11)+EncodeTime(11,11,11,0)) возвращает "12.11.1111 12:48:49"?

---

← →
REA   (2003-03-20 14:29) [4]

Delphi syntax:
function EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word):TDateTime;

А зачем тебе 1111й год?

---

← →
NAlexey   (2003-03-20 14:33) [5]

Пользователь вводить в поле по маске: dd mm yyyy hh nn ss, я разбираю дату, анализирую разбираю на части использую, потом хочу собрать...

---

← →
REA   (2003-03-20 14:37) [6]

Ну и в каком месте собака порылась? Разбей на части выражение и локализуй ошибку.

---

← →
MBo   (2003-03-20 14:39) [7]

DateTimeToStr(EncodeDate(1111, 11, 11)-EncodeTime(11,11,11,0))

---

← →
NAlexey   (2003-03-20 14:44) [8]

Спасибо MBo!
НО - это дельфийский код, особое внимание на выделенную строчку. модуль DateUtils...

function TryEncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond,
AMilliSecond: Word; out AValue: TDateTime): Boolean;
var
LTime: TDateTime;
begin
Result := TryEncodeDate(AYear, AMonth, ADay, AValue);
if Result then
begin
Result := TryEncodeTime(AHour, AMinute, ASecond, AMilliSecond, LTime);
if Result then
AValue := AValue + LTime;!!!!
end;
end;


---

← →
icWasya   (2003-03-20 14:44) [9]

EncodeDate(1111, 11, 11) - отрицательное число!!

---

← →
REA   (2003-03-20 14:47) [10]

Дата видимо отрицательная уже к этому времени. Вполне логично, что стандартные функции под это не заточены...

---

← →
NAlexey   (2003-03-20 15:03) [11]

Тогда не совсем понятно как пользоваться этими ф-циями, путаница какая то...

---

← →
Smithson   (2003-03-20 15:32) [12]

Очень просто. Пишешь S := DateToStr(0);
Смотришь, какая дата оказалась в S. Это точка отсчета. Если дата больше, то плюс. Если меньше - то минус.

---

← →
NAlexey   (2003-03-20 17:04) [13]

to Smithson
Спасибо, хорошее решение, жаль уже сделал. Пришлось изгалиться.
EncDate := StrToDateTime(Format("%d.%d.%d %d:%d:%d",[Sectionы[nDay], Sections[nMonth], Sections[nYear],Sections[4], Sections[5], Sections[6]]))

---

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

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

Наверх

Память: 0.46 MB
Время: 0.009 c