helpf.pro
Регистрация
 +9 
Распечатать

Как вычислить разницу между двумя датами в месяцах

Код 1C v 8.х
 
Функция РазницаДатВМесяцах(Дата1, Дата2) Экспорт

ДатаНач = ?(Дата1 < Дата2, Дата1, Дата2);
ДатаКон = ?(Дата1 < Дата2, Дата2, Дата1);

Годы = Год( датаКон ) - Год( датаНач );
Месяцы = Месяц( датаКон ) - Месяц( датаНач );

Разность = месяцы + годы * 12;

Возврат Разность;

КонецФункции
Разместил:   Версии: | 8.x |  Дата:   Прочитано: 51191
 +9 
Распечатать
Возможно, вас также заинтересует
Вычислить возраст человека и выразить его прописью 0
Основная функция будет использовать в себе три вспомогательных: Функция РазностьМеждуДатамиВМесяцах(Дата1,Дата2) Год1 = Год(Дата1); Год2 = Год(Дата2); Месяц1 = Месяц(Дата1); Месяц2 = Месяц(Дата2); День1 = День(Дата1); День2 = День(Дата2); Рез
Дополнение результата запроса Датами в Установленном ПЕРИОДЕ 1
Иногда возникает необходимость вывести в отчет информацию таким образом, чтобы некоторые итоговые значения были рассчитаны на каждую дату в заданном интервале с указанной периодичностью. Например, требуется получить обороты по неделям вне зависимости
Как вычислить количество дней между датами 6
Запрос=Новый Запрос(" ВЫБРАТЬ | РАЗНОСТЬДАТ( НачалоПериода, КонецПериода,МЕСЯЦ) КАК Месяцев, | РАЗНОСТЬДАТ( НачалоПериода, КонецПериода,ДЕНЬ) КАК Дней" ); // или КоличествоДней = (ДатаКонец - ДатаНачала) / 60 / 60 / 24; КоличествоДней = ДатаКо
Как вычислить разницу между двумя датами в днях 5
РазницаВДнях = (НачалоДня(ДатаОкончания) - НачалоДня(ДатаНачала)) / (60 * 60 * 24);
Как вычислить разницу между двумя датами в часах и минутах 13
Функция РазностьВремени(Время1, Время2); Разность = Время1 - Время2; Если Разность 0 Тогда Часов = Цел(Разность / 3600); Минут = Цел((Разность - Часов * 3600) / 60); Возврат Дата(1, 1, 1, Часов, Минут, 0); Иначе Возврат Дата(1,1,1,0,0,0);
Посмотреть все результаты поиска похожих
Комментарии
E_Migachev
02.10.2009 19:02Комментарий: 1
E_Migachev
РазностьВСекундах = Дата2 - Дата1;

СекундВМесяце = 60 * 60 * 24 * 30;

РазностьВМесяцах = РазностьВСекундах / СекундВМесяце;
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.