Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Возраст с точностью до дня, Известные ф-и не считают точно 
:(
    Опции темы
Staruha
Дата 18.9.2007, 11:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: нет
Всего: 27



Кое как я получила сколько лет.Но,если день рождения в этом месяце выдает 15лет,а надо 14
y:=int(DateDiff('m',{PATIENTS.BDAY},{@DateTime1})/12);
Эта ф-я в KristalReport. Сойдет любая на Delphi или Basic


--------------------
Возмездие настигнет
PM MAIL   Вверх
Rodman
Дата 18.9.2007, 11:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



Цитата(Staruha @  18.9.2007,  11:24 Найти цитируемый пост)
y:=int(DateDiff('m',{PATIENTS.BDAY},{@DateTime1})/12);

кто такие и что значат???

DaysBetween и .т.д. пробовал?
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Staruha
Дата 18.9.2007, 11:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: нет
Всего: 27



Эта ф-я в KristalReport  DateDiff-вычисляет разницу между датами,но малость округляет smile 

Это сообщение отредактировал(а) Staruha - 18.9.2007, 11:48


--------------------
Возмездие настигнет
PM MAIL   Вверх
Snowy
Дата 18.9.2007, 11:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 2
Всего: 484



На дельфи просто вычитаем одну дату из другой и получаем количество дней.
PM MAIL   Вверх
Rodman
Дата 18.9.2007, 11:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



ну Кристалу просто мона передать уже почитаную циферку... вот и делай так...

при помощи Делфи считай, а потом просто передавай
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Staruha
Дата 18.9.2007, 12:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: нет
Всего: 27



Нужно такой список получить
 Петров(13л)
 Иванов(2г)
 Печкин(14л)
 Так вот Печкину он пишет 15,хотя день рождения у него через 10дней

Добавлено через 2 минуты и 21 секунду
На момент поступления можно готовую цифру взять,а на момент выписки считать надо



--------------------
Возмездие настигнет
PM MAIL   Вверх
Snowy
Дата 18.9.2007, 12:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 2
Всего: 484



function YearsBetween из DateUtils
PM MAIL   Вверх
Rodman
Дата 18.9.2007, 12:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



Цитата(Staruha @  18.9.2007,  12:00 Найти цитируемый пост)
На момент поступления можно готовую цифру взять,а на момент выписки считать надо

что имеется ввиду, разве нельзя и туда и туда прикрепить подобный расчет?
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Staruha
Дата 18.9.2007, 12:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: нет
Всего: 27



Snowy 
YearsBetween  а синтаксис какой?
Rodman 
это не суть


--------------------
Возмездие настигнет
PM MAIL   Вверх
Rodman
Дата 18.9.2007, 13:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



Код

Delphi syntax:

function YearsBetween(const ANow, AThen: TDateTime): Integer;

т.е. передаешь дату начала и дату конца периода!!!
PM MAIL WWW Skype GTalk YIM MSN   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »


 




[ Время генерации скрипта: 0.0540 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.