Даа... Насколько компактнее и прозрачнее получается алгоритм на VBA при использовании функции DateAdd:
Код:
Sub VBA_TestDifferenceBetweenTwoDates()
Dim dateBeg As Date, dateEnd As Date, dateTest As Date
Dim y1 As Integer, m1 As Integer, y2 As Integer, m2 As Integer
Dim ys As Integer, ms As Integer, ds As Integer
dateBeg = DateSerial(2006, 1, 31)
dateEnd = DateSerial(2006, 4, 30)
y1 = Year(dateBeg): m1 = Month(dateBeg)
y2 = Year(dateEnd): m2 = Month(dateEnd)
ms = (y2 * 12 + m2) - (y1 * 12 + m1) 'предварительная разница в месяцах
dateTest = DateAdd("m", ms, dateBeg) 'пробная дата на ms месяцев от начала
ds = DateDiff("d", dateTest, dateEnd) 'предварит-ная разница в днях
'в пределах последнего месяца (+/-)
If ds < 0 Then 'ЕСЛИ предварит-но "перебрали" с целыми месяцами от начала
ms = ms - 1 'ТО окончат-ная разница в месяцах
dateTest = DateAdd("m", ms, dateBeg) 'новая "пробная" дата
ds = DateDiff("d", dateTest, dateEnd) 'окончательная разница в днях (+)
End If
ys = ms \ 12: ms = ms Mod 12 'годы - тривиально от месяцев
Debug.Print ys, ms, ds '<- Годы, Месяцы, Дни разницы соответственно
'или еще и недели внутри месяца :-)
Debug.Print ys, ms, ds \ 7, ds Mod 7 '<- Годы, Месяцы, Недели, Дни разницы
End Sub
Вместо функции DateDiff для дней можно использовать и просто операцию вычитания между двумя датами.
А вот есть ли в Аксе приемлемый аналог функции DateAdd ?
P.S. 30.01.07
Как выяснилось
здесь, для месяцев - есть. В Global, называется dateMthFwd.