Как из даты вычесть Год/Месяц/Дни #439585

Товарищи, поскажите примерный алоритм сабжа. Пример: 26.10.2009 вычесть 1 г. 8 м. 15 д. равно= 12.02.2008 Нужно реализовать на 1С или VBA в Excel )

берешь дату от которой надо отнять, потом 86400*кол-во отнимаемых дней=нужная дата

это про 1с

считаешь количество месяцев ... отнимаешь штатное функцией месяца... и далее отнимаешь количество оставшихся дней умноженное 86400

посмотри в типовой Бухии расчет фактического срока использования ОС. Просветлись:)

сорри, но не совсем понял, можно чуток поподробнее ? и чего делать с февралем, у него ж и 28 и 29 дней может быть

а куда конкретно лезть? название процедуры?

нету под рукой компа, я с телефона сижу. Ищи через форму элемента справочника ОС на закладке Амортизация

ДобавитьМесяц учитывает эти нюансы.

Налетели дятлы ) Гуру делают через "ВЫБРАТЬ РАЗНОСТЬДАТ(&Дата2,&Дата1,ДЕНЬ)"

не нашел ничего...

короче, народ, код на икселе такой: поправьте плиз, а то в итоге выводит 14.02.2008

на моем примере как код писать та юзая эту функцию?

нафиг год... Вычти функцией:    - вычтет 12 месяцев из твоей даты.. затем из полученного вычти дни: ПолеченнаяДата = ПолеченнаяДАта - 60*24*24 * КоличествоДней!

только 60*60*24

60*24*24 - это что? куда ваще 1 г. 8 м. 15 д. пихать то?

только 60*60*24 вычтет 1 день... а умножив на количество дней можно минусовать несколько дней

упс. :) невнимательно :)))) да.. 60*60*24

В месяце не обязательно 30 дней, как было верно замечено ранее. Почему ты не хочешь работать со значениями типа Date?

в 1С ?

1 г. 8 м. 15 д.

В 1С есть ДобавитьМесяц. В VBA есть DateAdd. Выбирай, что больше нравится.

+ А значения типа Date - они и в 1С есть.

Скобки забыл!

{Форма.Форма}: Преобразование значения к типу Дата не может быть выполнено    ТекущаяДата = ДобавитьМесяц(ТЕкущаяДата,(-1)*(КоличествоЛет*12+КоличествоМесяцев));

а в икселе где месяц добавлять?

Там в параметрах DateAdd указывается, что добавляется - месяц, квартал и т.д.

а, попробую )

ТекущаяДата - какое значение имела? Если строка - соответствовала ли представлению даты в 1С? Если нет - преобразуй.

осталося с 1С разобраться

КоличествоЛет и КоличествоМесяцев у тебя Числовые?? ПОпробуй переименовать переменные. ДатаКоторуюНадоПолучить = ДобавитьМесяц(ИсходнаяДата,(-1)*(КоличествоЛет*12+КоличествоМесяцев));

так, добавил, все пашет, но итог не верный: 11.02.2008 0:00:00

... или верный, ваще-та я за основу брал данные другой программы или же тут все дело в часах...

насколько разница?

ИсходнаяДата = ИсходнаяДата-60*60*24*КоличествоДней

p.s. Блин...пообедал и ваще засыпаю и невнимательный))

ладно, спасибо ;)