Разница между датами прописью

[djalex777]

Цель - создается некий проект, записывается дата создания. Нужно в некотором месте показать, сколько уже существует проект в формате, к примеру: 1 месяц 15 дней. Не могу сообразить как расчитать кол-во дней применительно к этому формату.
Тут высчитываю число лет и месяцев.

Код: Выделить всё

...
y = DateDiff("yyyy", dateMin, dateMax, vbMonday)
m = (DateDiff("m", dateMin, dateMax, vbMonday) - 1) - Y * 12
...


А вот как быть с днями? Может есть у кого мысли. Поделитесь

[alibek]

И сколько лет и месяцев будет для диапазона 31.12.2009-01.01.2010?

[djalex777]

Э, нет... неправильно я написал. Вероятно данная задача не имеет смысла. Вот если условиться, что в месяце сколько-то дней...

[Alec]

Думаю - в поиск, но искать подсчет выслуги лет (которая тоже считается в годах, месяцах и днях)

[iGrok]

Набрёл вот на это:
http://axforum.info/forums/showthread.php?t=15450

Код: Выделить всё

Public Sub dmdiff(dateBeg As Date, dateEnd As Date)
    Dim 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
 
    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


Вроде, работает. )

[djalex777]

Спасибо!

[Andrey Fedorov]

А вообще это уже давно было...