|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
программа определения количества дней со дня рождения
есть задание: Разработать проект на языке программирования Delphi, который позволяет определить количество дней, прошедших со дня вашего рождения. Подробная технология создания для практического занятия на уроке. Добавить процедуру добавления.
Спасибо всем помогающим!!! |
#2
|
||||
|
||||
Так и в чем проблема? DaysBetween(Data1,Data2) и вперед. Вы бы спрашивали как- то конкретнее.
|
#3
|
||||
|
||||
Цитата:
Вот DaysBetWeen http://www.delphisources.ru/pages/fa...tween.php.html А выгладит примерно так... Код:
var Date1, Date2 : TDate; Days : word; begin Date1 := DateTimePicker1.Date; Date2 := Date; Days := DaysBetWeen(Date1, Date2); ShowMessage('С вашего дня рождения по сегодняшний день прошло '+ IntToStr(Days)+' дней'); end; В начале был Бит, потом Байт и только потом появилось Слово... |