Определение возрастаDelphi , Синтаксис , Дата и ВремяОпределение возрастаАвтор: Ревенко Алексей DecodeDate(DM.Table.FieldByName('Born').AsDateTime, Year, Month, Day); // Дата рождения DecodeDate(Date, YYYY, MM, DD); // Текущая дата if (MM >= Month) and (DD >= Day) then Edit2.Text := IntToStr((YYYY - Year)) else Edit2.Text := IntToStr((YYYY - Year) - 1); Статья Определение возраста раздела Синтаксис Дата и Время может быть полезна для разработчиков на delphi & pascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Дата и Время ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |