| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Этот код вешает компьютер : [D7]

Страницы:   < 1 2 >

BugFix ©   (2005-12-11 02:26:00) 

procedure TForm1.Button1Click(Sender: TObject);
var
 d1 : Double;
 Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
 d1 := 4.9099444267E+252;
 DecodeDateTime(d1, Year, Month, Day, Hour, Min, Sec, MSec);
 Caption := IntToStr(Year);
end;


Вопрос: как избежать?
Может есть какая другая функция DecodeDateTime ?

---

BugFix   (2005-12-12 01:31:00) [21]

Чего, никто не знает как избежать? Перевелись на форуме мастера?

---

Джо   (2005-12-11 02:48:00) [22]

>  [3] BugFix   (11.12.05 02:44)
> Число было получено через EncodeDateTime(Year, Month, Day,
> Hour, Min, Sec, MSec);

Показывай, как получил.

---

BugFix   (2005-12-11 02:44:00) [23]

Число было получено через EncodeDateTime(Year, Month, Day, Hour, Min, Sec, MSec);

---

Джо   (2005-12-11 02:43:00) [24]

Наводка. В типе TDateTime целая часть числа означает кол-во дней, прошедших с 30 декабря 1899. То число, которое ты задаешь, по-моему, намного превышает возраст Вселенной. Давай колись - откуда ты его взял?
;>

---

Джо   (2005-12-11 02:38:00) [25]

Ничего он не вешает, не выдумывай. И, кстати, нечего обманывать компилятор и подсовывать ему дикие числа в качестве даты и времени :)

---

Страницы:   < 1 2 >

Наверх