|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.04.2008, 21:18 | #1 |
Заблокирован
Регистрация: 06.04.2008
Сообщений: 17
|
Работа с датой
Вообщем мне надо сделать отключение программы если дата например 07.04.2008 я делаю так...
При нажатие на кнопку Button1 воспроизводится вот такой код: Код:
|
07.04.2008, 21:23 | #2 |
Участник клуба
Регистрация: 30.04.2007
Сообщений: 1,307
|
DateTostr(now) - вернёт текущюю дату в формате "07.04.2008"
Сравнивай и выводи сообщение
Всё гениальное - просто!
Последний раз редактировалось Air; 07.04.2008 в 21:26. |
07.04.2008, 21:26 | #3 |
Пользователь
Регистрация: 26.05.2007
Сообщений: 58
|
Код:
|
07.04.2008, 21:52 | #4 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Можешь сделать так:
procedure TForm1.Timer1Timer(Sender: TObject); Var T: SYSTEMTIME; Begin GetLocalTime(T); If SystemTimeToDateTime(T) >= StrToDateTime('22.11.2008 00:35:30') then Begin Close; End; End;
Всегда рад помочь!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с датой | xDjarx | БД в Delphi | 38 | 02.05.2009 14:21 |
Работа с датой | Aleksandr | Общие вопросы Delphi | 12 | 29.09.2008 14:01 |
Работа с датой | Dunpeal | Общие вопросы Delphi | 5 | 15.05.2008 12:05 |
Несовпадение с датой | RoZi | Помощь студентам | 26 | 28.11.2007 13:05 |
Манипуляции с датой и временем. | Tatyana | БД в Delphi | 16 | 29.06.2007 19:19 |