![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Заблокирован
Регистрация: 06.04.2008
Сообщений: 17
|
![]()
Вообщем мне надо сделать отключение программы если дата например 07.04.2008 я делаю так...
При нажатие на кнопку Button1 воспроизводится вот такой код: Код:
|
![]() |
![]() |
![]() |
#2 |
Участник клуба
Регистрация: 30.04.2007
Сообщений: 1,307
|
![]()
DateTostr(now) - вернёт текущюю дату в формате "07.04.2008"
Сравнивай и выводи сообщение
Всё гениальное - просто!
![]() Последний раз редактировалось Air; 07.04.2008 в 21:26. |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 26.05.2007
Сообщений: 58
|
![]() Код:
|
![]() |
![]() |
![]() |
#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 |