Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Базы";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.009 c
1-27435
Канарский
2003-09-28 12:47
2003.10.09
Принудительное закрытие файлов


14-27682
Romkin
2003-09-16 11:54
2003.10.09
Встреча 08.08


14-27674
VictorT
2003-08-18 20:48
2003.10.09
Очередной флуд :(


3-27414
NAlexey
2003-09-18 08:53
2003.10.09
Interbase 5.0 - missing registry


3-27406
RDen
2003-09-18 12:17
2003.10.09
BDE выдаёт ошибку - At end of table





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский