[светлана74]

есть задание: Разработать проект на языке программирования Delphi, который позволяет определить количество дней, прошедших со дня вашего рождения. Подробная технология создания для практического занятия на уроке. Добавить процедуру добавления.
Спасибо всем помогающим!!!

[TOJluK]

Так и в чем проблема? DaysBetween(Data1,Data2) и вперед. Вы бы спрашивали как- то конкретнее.

[NIch]

Добавить процедуру добавления.

А что добавлять???
Вот 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;