Вниз
Скачать: CL | DM;

Date   Найти похожие ветки 

 
Нитолай   (2003-09-19 18:08) [0]

Мастера помогите. Решил научиться програмировать на Delphi.
В качестве повышения своей квалификации решил написать свою электронную телефонную книгу с напоминанием дней рождений.
Все вроде бы ничего, получается, а вот с проверкой на дату не очень.
Если можно, пожалуйста скиньте или приведите здесь пару исходников, в которых происходит проверка даты и если дата рождения прошла то фокус передаётся на эту запись и выводится сообщение и т.п.
P.S. Исходники нужны исключительно для самообразования.
Email: bear_2000@land.ru
Заранее спасибо.


 
Zacho ©   (2003-09-19 21:08) [1]


> , в которых происходит проверка даты и если дата рождения
> прошла то фокус передаётся на эту запись и выводится сообщение
> и т.п.

А можно более вразумительно ? А то с телепатическими способностями напряг.. :(


 
Нитолай   (2003-09-20 02:16) [2]

Есть поле "дата рождения" и там допустим стоит 21 сентября 2003.
Значит завтра это поле, допустим должно пометится каким нить цветом, ну или вывести какое нибудь сообщение, что завтра будет день рождения. Вот и всё.


 
jack128 ©   (2003-09-20 02:24) [3]


> Значит завтра это поле, допустим должно пометится каким
> нить цветом

А что ты хочешь делать сегодня?

Если те все таки нужно подсветка за один день до события, то
что то типа такого
if (Trunc(MyDataSet.FieldByName("birthday").AsDateTime) - 1) = Trunc(Date) then
ShowMessage("Завтра день рожденья");


 
jack128 ©   (2003-09-20 02:26) [4]

Упреждающий удар: насчет подсветки строки в DbGrid"е ищи статьи на королестве Делфи - там все есть


 
still ©   (2003-09-20 02:34) [5]


> jack128 © (20.09.03 02:26) [4]


браво :)



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.019 c
1-27532
Vick
2003-09-30 16:32
2003.10.09
Память занимаемая программой


1-27562
Lionzi
2003-09-29 15:38
2003.10.09
WindowMenu Tform


3-27415
AlexanderB
2003-09-18 08:36
2003.10.09
Высота строчки в таблице отчёта на FastReport...


1-27540
Chris
2003-09-29 13:02
2003.10.09
RegisterAsService


14-27640
Жук
2003-09-19 14:20
2003.10.09
Тяпница на дворе...




   Наверх