Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.04.2008, 21:18   #1
[RR]Reaction
Заблокирован
 
Регистрация: 06.04.2008
Сообщений: 17
По умолчанию Работа с датой

Вообщем мне надо сделать отключение программы если дата например 07.04.2008 я делаю так...

При нажатие на кнопку Button1 воспроизводится вот такой код:

Код:
If (date=07/04/2008) Then 
ShowMessage('Сегодня вышел срок использования с тебя 20 евро :) или 1000 руб');
Но он нехочет работать также пробовал с 07.04.2008 вообще ошибку выдаёт выручайте!!!
[RR]Reaction вне форума Ответить с цитированием
Старый 07.04.2008, 21:23   #2
Air
Участник клуба
 
Аватар для Air
 
Регистрация: 30.04.2007
Сообщений: 1,307
По умолчанию

DateTostr(now) - вернёт текущюю дату в формате "07.04.2008"
Сравнивай и выводи сообщение
Всё гениальное - просто!

Последний раз редактировалось Air; 07.04.2008 в 21:26.
Air вне форума Ответить с цитированием
Старый 07.04.2008, 21:26   #3
BanDit
Пользователь
 
Аватар для BanDit
 
Регистрация: 26.05.2007
Сообщений: 58
По умолчанию

Код:
if formatDateTime('dd.mm.yyyy',now) then...
BanDit вне форума Ответить с цитированием
Старый 07.04.2008, 21:52   #4
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 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;
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с датой 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