Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 298 • TDictionary Custom Sort 3 446 • Fast Watermark Sources 3 192 • 3D Designer 4 951 • Sik Screen Capture 3 445 • Patch Maker 3 648 • Айболит (remote control) 3 849 • ListBox Drag & Drop 3 113 • Доска для игры Реверси 82 592 • Графические эффекты 4 050 • Рисование по маске 3 346 • Перетаскивание изображений 2 719 • Canvas Drawing 2 869 • Рисование Луны 2 672 • Поворот изображения 2 284 • Рисование стержней 2 217 • Paint on Shape 1 618 • Генератор кроссвордов 2 299 • Головоломка Paletto 1 817 • Теорема Монжа об окружностях 2 315 • Пазл Numbrix 1 713 • Заборы и коммивояжеры 2 089 • Игра HIP 1 309 • Игра Go (Го) 1 259 • Симулятор лифта 1 506 • Программа укладки плитки 1 253 • Генератор лабиринта 1 578 • Проверка числового ввода 1 397 • HEX View 1 528 • Физический маятник 1 383

Главная страница

Исходники (более 1 300 исходных кодов)

Компоненты

Определение возраста

Автор: Ревенко Алексей

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);