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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 08.04.2010, 00:50   #1
denis_stell
Пользователь
 
Регистрация: 03.03.2010
Сообщений: 21
По умолчанию количество дней

Доброй ночи,помогите пожалуйста новичку,нужно определить сколько дней осталось до дня рождения(этот день ещё не наступил в этом году)
вроде что-то типа этого должно получиться
Код:
var
Date1, Date2 : TDate;
Days : word;
begin
Date1 := DateTimePicker1.Date;
Date2 := Date;
Days := DaysBetWeen(Date1, Date2);
ShowMessage('С вашего дня рождения по сегодняшний день прошло '+
IntToStr(Days)+' дней');
end;
но как правильно я не знаю,помогите пожалуйста
также какую кнопку на форму надо бросать итд

Последний раз редактировалось Stilet; 08.04.2010 в 09:48.
denis_stell вне форума Ответить с цитированием
Старый 08.04.2010, 09:49   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
но как правильно я не знаю
Ну это вполне правильно.
Кинь на форму DateTimePicker, и кнопку любую. Кликни по ней в дизайнере - получишь шаблон обработчика ее клика, вот в него и вписывай твой код.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 08.04.2010, 19:36   #3
denis_stell
Пользователь
 
Регистрация: 03.03.2010
Сообщений: 21
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Ну это вполне правильно.
Кинь на форму DateTimePicker, и кнопку любую. Кликни по ней в дизайнере - получишь шаблон обработчика ее клика, вот в него и вписывай твой код.

чё-то я её не вижу!эту кнопку DateTimePicker,подскажите пожалуйста где она находится
denis_stell вне форума Ответить с цитированием
Старый 08.04.2010, 21:25   #4
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,645
По умолчанию

Во вкладке Win32. И не забудь модуль DateUtils подключить.
Будущее за видеофорумом
Вложения
Тип файла: rar 123.rar (229.3 Кб, 17 просмотров)
eoln вне форума Ответить с цитированием
Старый 11.04.2010, 00:28   #5
denis_stell
Пользователь
 
Регистрация: 03.03.2010
Сообщений: 21
Радость

Цитата:
Сообщение от eoln Посмотреть сообщение
Во вкладке Win32. И не забудь модуль DateUtils подключить.
Будущее за видеофорумом
Большое тебе спасибо!!!!
denis_stell вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как подсчитать количество дней недели в году? delphiboy Microsoft Office Excel 6 28.02.2010 04:39
Подсчитать количество дней имея дату Dj_smart Общие вопросы Delphi 7 23.03.2009 12:46
Помогите подсчитать количество дней komar73 Microsoft Office Excel 2 09.02.2009 09:54
Написать программу, определяющую, через сколько дней количество съеденных комаров превысит 100 мелкая007 Паскаль, Turbo Pascal, PascalABC.NET 1 12.01.2009 13:22
Количество дней в месяце по диапазону дат VadimSh Microsoft Office Excel 6 26.11.2008 23:48