Две даты

← →
AtoL2k2 (2003-06-12 09:56) [0]

Проблема следующая. Как узнать, относятся ли две даты к одному месяцу, если месяц заканчивается 25м числом. То есть например
с 26.01.2000 по 25.02.2000- это один месяц.
То есть две даты (произвольные) d1.m1.y1 и d2.m2.y2
нужно условие, попадают ли они в один месяц.

з.ы. Причем период с 26.12.2000 по 25.01.2001 тоже считается месяцем.

← →
Sandman25 (2003-06-12 10:17) [1]

if d1>25 then newD1 := date1 + 10
else newD1 := date1;
if d2>25 then newD2 := date2 + 10
else newD2 := date2;
odinPeriod := (Year(date1)=Year(date2)) and (Month(date1)=Month(date2));

← →
AtoL2k2 (2003-06-12 10:52) [2]

to Sandman25 :
огромное спасибо
правда
odinperiod:=(year(newd1)=year(newd2))and (month(newd1)=month(newd2))
но ничего. Классно! до этого я проверял трехэтажное условие, которое к тому же не работало.

Причем, Ваш пример работает в SQL процедуре!
Еще раз огромное спасибо. Сам бы не догадался

← →
Sandman25 (2003-06-12 11:11) [3]

Да, извиняюсь за ошибку.
Я сначала тоже начал писать трехэтажное условие, а потом стало лень, и я решил заставить все рассчитываться автоматически :)

Две даты Найти похожие ветки