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

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

Как объявить константу TDate [D6, Win2k]


Андрусь ©   (2002-11-25 17:44:00) 

Привет всем! Вот такая непонятка!
Хочу объявить константу TDate.Но чего-то глюкаю.Подскажите как!
Баловался по-разному d=1.01.2000,d=1/01/2000- не выходит.


Anatoly Podgoretsky   (2002-11-25 21:06:00) [1]

Вместе с тобой


Андрусь   (2002-11-25 21:04:00) [2]

Всё кончайте базар,а то балаган прямтаки какой-то


LongIsland   (2002-11-25 21:01:00) [3]

StrToDate


Андрусь   (2002-11-25 20:57:00) [4]

я имел ввиду из привычного значения 1.01.1991 в..


Юрий Зотов   (2002-11-25 20:53:00) [5]

> как быстро пересчитать из TDate в float

Никак не надо пересчитывать. Это одно и то же.


Anatoly Podgoretsky   (2002-11-25 19:14:00) [6]

F7


Андрусь   (2002-11-25 18:56:00) [7]

Хорошо,пойдём другим путём:как быстро пересчитать из TDate в float.


Marcus   (2002-11-25 18:27:00) [8]

> McSimm ©

Снимаю шляпу! Все гениальное - ну сами знаете! :)))


McSimm   (2002-11-25 18:24:00) [9]

const
DDate = 37621.0; // Дата "31.12.2002";


Вот. И дата истинная видна, и функцию не надо вызывать. :-)


Marcus   (2002-11-25 18:15:00) [10]

А чем этот способ плох? Тем более, что StrToFloat можно один раз вызвать в секции initialization, а дату сохранить в var


Edik Makhanko   (2002-11-25 18:15:00) [11]

А как Вы себе это представляете? Тип TDateTime - веществен., переводить строку в дату на этапе компиляции?


Андрусь   (2002-11-25 17:56:00) [12]

А напрямую нельзя,чтоб и не через флоат задавать(не видна истинная дата)и чтоб без ф-и юзать


Marcus   (2002-11-25 17:47:00) [13]

А это не подойдет

const
SDate = "31.12.2002";

NewYear := StrToDate(SDate);


Наверх

Титульная страница Поиск, карта сайта Написать письмо