Четверг, 23 Май 2024, 00:32
Uchi.ucoz.ru
Меню сайта
Форма входа

Категории раздела
Высшая математика [11]
Экономическая социология [95]
Основы Менеджмента [64]
Бухгалтерский учёт [157]
Философия [163]
Мировая Экономика [603]
Бизнес планирование [29]
Финансирование и кредитование инвест [105]
Ценообразование [46]
Гражданское право [196]
Права Человека [173]
Основы Маркетинга [207]
Основы энергосбережения [55]
Информатика [0]
Экология и устойчивое развитие [0]
Физика для студентов [0]
Основы права [0]
Политология [0]
Не стандартные примеры на Delphi [169]
Примеры на Delphi7 [108]
Алгоритмы [94]
API [110]
Pascal [152]
Базы Данных [6]
Новости
Чего не хватает сайту?
500
Статистика
Зарегистрировано на сайте:
Всего: 51637


Онлайн всего: 2
Гостей: 2
Пользователей: 0
Яндекс.Метрика
Рейтинг@Mail.ru

Каталог статей


Главная » Статьи » Студентам » Не стандартные примеры на Delphi

Код определения возраста
Вызовите диалог редактирования полей (Fields Editor), дважды щелкнув на
компоненте TTable или TQuery, расположенном на вашей форме (или выбрав в
контекстном меню пункт Fields Editor). Добавьте все поля, с которыми вы хотите
работать в форме (даже если вы хотите, чтобы они были невидимы, но вам необходим
к ним доступ -- для таких полей установите свойство visible в false). Затем
щелкните на "Define..." (определить) для добавления вычисляемого поля. Введите
имя вычисляемого поля, отличающееся от имен других полей таблицы, выберите тип
(вероятно, StringField) и задайте длину (20 будет в самый раз). Убедитесь в том,
что напротив поля 'calculated' стоит галочка. Затем создайте для вашего объекта
TTable или TQuery обработчик события 'OnCalcFields'. В этом обработчике вы
берете значения реальных полей таблицы, делаете вычисления, и помещаете
результаты в объект вычисляемого поля, который вы только что создали. После
этого значение выводится в TDBGrid, или в элементе управления TDBText, если вы
решили использовать форму вместо табличной сетки.

Наша функция должна достичь цели, обрабатывая значения лет и месяцев.
Поскольку не все месяцы имеют одно и то же количество дней, я просто брал
среднее число, поэтому результат может быть не очень точен, но большинство людей
это удовлетворяет:

function
AgeStr(aDate: TDateTime): string;
var

DaysOld : Double;
Years,
Months : Integer;begin

DaysOld := Date - aDate;

Years := Trunc(DaysOld / 365.25);
DaysOld := DaysOld - (365.25 *
Years);
Months := Trunc(DaysOld / 30.41);

Result := Format('%d лет, %d
месяцев',[Years, Months]);end;
Категория: Не стандартные примеры на Delphi | Добавил: Lerka (22 Ноя 2012)
Просмотров: 420 | Рейтинг: 1.0/ 5 Оштрафовать | Жаловаться на материал
Похожие материалы
Всего комментариев: 0

Для блога (HTML)


Для форума (BB-Code)


Прямая ссылка

Профиль
Четверг
23 Май 2024
00:32


Вы из группы: Гости
Вы уже дней на сайте
У вас: непрочитанных сообщений
Добавить статью
Прочитать сообщения
Регистрация
Вход
Улучшенный поиск
Поиск по сайту Поиск по всему интернету
Наши партнеры
Интересное
Популярное статьи
Портфолио ученика начальной школы
УХОД ЗА ВОЛОСАМИ ОЧЕНЬ ПРОСТ — ХОЧУ Я ЭТИМ ПОДЕЛИТ...
Диктанты 2 класс
Детство Л.Н. Толстого
Библиографический обзор литературы о музыке
Авторская программа элективного курса "Практи...
Контрольная работа по теме «Углеводороды»
Поиск
Главная страница
Используются технологии uCoz