Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.12.2013, 22:16   #1
govorun1
Форумчанин
 
Регистрация: 08.11.2013
Сообщений: 137
По умолчанию Разность дат

Имеется поле "Дата". Нужно написать в коде нечто подобное:

if 'текущая дата' -(минус) 'Дата' > 30 then

Окажите пожалуйста посильную помощь, не могу додуматься...
govorun1 вне форума Ответить с цитированием
Старый 06.12.2013, 22:19   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

if MyDate+30<Date then ...
Или в запросе?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 06.12.2013, 22:23   #3
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Можете просто вычитать две переменные типа TDateTime, потому что
type TDateTime = type Double;
- число дней, прошедшее с 12.00 30.12.1899
type_Oleg вне форума Ответить с цитированием
Старый 07.12.2013, 12:35   #4
govorun1
Форумчанин
 
Регистрация: 08.11.2013
Сообщений: 137
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
if MyDate+30<Date then ...
Или в запросе?
Сделел так
PHP код:
if Date Int(datamodule3.ADOTable1.FieldByName('Дата').AsDateTime) > 25 then 
И получилось, что проверка условия выполняется только для первой строки таблицы, а нужно проверять всю таблицу.
Подскажите где подкрутить?
govorun1 вне форума Ответить с цитированием
Старый 07.12.2013, 13:14   #5
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Цитата:
Подскажите где подкрутить?
Вопрос не корректный. Что значит проверить всю таблицу? Зачем и в каком месте?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 07.12.2013, 14:03   #6
govorun1
Форумчанин
 
Регистрация: 08.11.2013
Сообщений: 137
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Вопрос не корректный. Что значит проверить всю таблицу? Зачем и в каком месте?
В таблице строки с записями, в том числе с полем 'дата'
При запуске приложения должен осуществлятся контроль записей на "разность дат", т.е. если поле 'дата' меньше текущей даты например на 30 дней, тогда будет выводится сообщуха.
govorun1 вне форума Ответить с цитированием
Старый 07.12.2013, 14:09   #7
govorun1
Форумчанин
 
Регистрация: 08.11.2013
Сообщений: 137
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Вопрос не корректный. Что значит проверить всю таблицу? Зачем и в каком месте?
Есть еще задумка по этому поводу:

сделать отдельный запрос на выборку с условием "разность дат" и если его результат не нулевой то выводить сообщуху а лучше показывать выбранные строки.
Но как это реализовать пока смутно представляю
govorun1 вне форума Ответить с цитированием
Старый 07.12.2013, 15:41   #8
eval
Подтвердите свой е-майл
 
Регистрация: 29.08.2012
Сообщений: 4,022
По умолчанию

начните с начала, с книжек
eval вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Разность дат в месяцах Red_Garry Microsoft Office Excel 14 13.12.2011 21:29
Вычислить разность N!-M!. Ol93131 Общие вопросы C/C++ 5 07.06.2011 15:42
разность чисел Михаил2261 Microsoft Office Excel 0 06.05.2010 18:35
Определить разность дат Aleksandr Общие вопросы Delphi 10 05.06.2009 15:53