Вычислить количество месяцев между датами. (Delphi) #340898

Есть две даты (DateTimePicker). Мне нужно подсчитать количество месяцев между двумя датами. Мож кто подскажет как лучше это сделать?

(год2 - год1) * 12 + (месяц2 - месяц1) В чем проблема?

кури DateUtil.pas в дельфийских исподниках:)

Не правильная трава. Кури в цикле ДобавитьМесяц

function MonthsBetween(const ANow, AThen: TDateTime): Integer; но там есть фича, читай хелп

+1 - интересное решение) нашел функцию MonthsBetween(DateEnd,DateBegin)

а что за фича? у меня заработало

читай фичу. Смотря, что ты хочешь действительно получить, возможно, нужно использовать MonthOf + YearOf если тебя не устраивают "среднедневные" месяцы

Мда. Вечно эти программисты извращаются там, где все просто и интуитивно понятно. Хотя, конечно, если число месяцев в году вдруг изменится, то одну функцию подправить легче )))

Because months are not all the same length, MonthsBetween returns an approximation based on an assumption of 30.4375 days per month. Fractional months are not counted. Thus, for example, MonthsBetween reports the difference between Feb 1 and Mar 1 as 0.

Вопрос можно?

попробуй (... с опаской, вцепивший в стул руками...)

RegisterActiveObject/GetActiveObject Работали с этим?

устроят.. Мне для плановых показтелей (создавать поля в таблицах)

неа, не работали

а что там такое? в чем вопрос конкретно?

Регистрирую IDispatch - интерфейс объекта через RegisterActiveObject и даже напрямую через интерфейс IRunningObjectTable В приложении могу его получить через GetActiveObject В службе - нет (код ошибки не помню, строковое описание - "Операция недоступна")

Единственное не пробовал напрямую через IRunningObjectTable его получать, уже поздно было...

Короче, вопрос для тех, у кого опыт войны был с этим..