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

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

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

Восстановить пароль

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 13.09.2010, 19:35   #1
pnz_punisher
Пользователь
 
Аватар для pnz_punisher
 
Регистрация: 05.01.2010
Сообщений: 30
По умолчанию Оповещение 29 числа каждого месяца

Как реализовать вот такую вещь?
29 числа числа каждого месяца делать
Код:
Label1.visible := true;
только на 1 день.

Какой компанент юзать? Как прописать?

Последний раз редактировалось pnz_punisher; 13.09.2010 в 19:38.
pnz_punisher вне форума
Старый 13.09.2010, 19:37   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Код:
if DayOfTheMonth(Now)=29 then //тогда 29-ое
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума
Старый 13.09.2010, 19:39   #3
pnz_punisher
Пользователь
 
Аватар для pnz_punisher
 
Регистрация: 05.01.2010
Сообщений: 30
По умолчанию

Код:
Label1.visible := true;
будет держаться только 1 день?
pnz_punisher вне форума
Старый 13.09.2010, 19:41   #4
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

поставьте в таймер этот код(таймер, примерно раз в минуту я думаю хватит)
только else не забудьте тогда(чтоб прятать)
Код:
if DayOfTheMonth(Now)=29 then Label1.Visible:=true else Label1.Visible:=false;
Код:
Label1.Visible:=(DayOfTheMonth(Now)=29);//а можно еще так
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

Последний раз редактировалось Пепел Феникса; 13.09.2010 в 19:43.
Пепел Феникса вне форума
Старый 13.09.2010, 19:43   #5
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,899
По умолчанию

Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if DayOfTheMonth(Now) = 29 then // тогда 29-ое
    Label1.Visible := True
  else
    Label1.Visible := False;
end;
Shouldercannon вне форума
Старый 13.09.2010, 19:44   #6
pnz_punisher
Пользователь
 
Аватар для pnz_punisher
 
Регистрация: 05.01.2010
Сообщений: 30
По умолчанию

Спасибо! Тему оф
pnz_punisher вне форума
Старый 13.09.2010, 20:23   #7
Dj_smart
Капсула от спама
Форумчанин
 
Аватар для Dj_smart
 
Регистрация: 04.03.2008
Сообщений: 779
По умолчанию

Так компактнее
Код:
Label1.Visible := DayOfTheMonth(Now) = 29;
// Уфф сорри Пепел Феникса, не заметил.
Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме?
CncFiles.ru - бесплатный файловый хостинг
Dj_smart вне форума
Закрытая тема


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Напечатать числа последних четвергов каждого месяца Паскаль Alen4ik Помощь студентам 3 07.11.2013 01:12
Первые 10 дней, каждого месяца buk Microsoft Office Access 2 10.10.2009 00:58
Вывод числа месяца (Pacal) [Smarik] Помощь студентам 13 18.01.2008 03:44
Консолидация в зависимости от числа месяца Smile E Microsoft Office Excel 6 11.09.2007 21:24