Товарищи, поскажите примерный алоритм сабжа.

Пример: 26.10.2009 вычесть 1 г. 8 м. 15 д. равно= 12.02.2008

Нужно реализовать на 1С или VBA в Excel )

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

(1) это про 1с

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

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

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

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

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

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

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

(7) не нашел ничего...

короче, народ, код на икселе такой:

temp = Cells(2, 2)
td = CDate(temp)
vich = Cells(3, 2)
s = 0
tv = Mid(vich, 1, 2)
s = s + (Val(tv) * 365)
tv = Mid(vich, 4, 2)
s = s + (Val(tv) * 30)
tv = Mid(vich, 7, 2)
s = s + Val(tv)
temp1 = td - s
Cells(4, 2) = Format(temp1, "dd.mm.yyyy")

поправьте плиз, а то в итоге выводит 14.02.2008

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

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

(13) только 60*60*24

(13)(14) 60*24(60)*24 - это что?

куда ваще 1 г. 8 м. 15 д. пихать то?

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

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

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

ВЫБРАТЬ
ДОБАВИТЬКДАТЕ(ДОБАВИТЬКДАТЕ(ДОБАВИТЬКДАТЕ(НАЧАЛОПЕРИОДА(&Дата,ДЕНЬ), ГОД, &Г), МЕСЯЦ, &М), ДЕНЬ, &Д) КАК РассчитаннаяДата

(18) в 1С ?

1 г. 8 м. 15 д.
КоличествоЛет = 1;
КоличествоМЕсяцев = 8;
КоличествоДней=15;

ТекущаяДата = ДобавитьМесяц(ТЕкущаяДата,(-1)*КоличествоЛет*12+КоличествоМесяцев);

ТекущаяДата = ТекущаяДата-60*60*24*КоличествоДней

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

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

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

ТекущаяДата = ДобавитьМесяц(ТЕкущаяДата,(-1)*(КоличествоЛет*12+КоличествоМесяцев));

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

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

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

(27) а, попробую )

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

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

(25) КоличествоЛет и КоличествоМесяцев у тебя Числовые??

ПОпробуй переименовать переменные.

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

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

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

или же тут все дело в часах...

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

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

т.е. ДатаКоторуюНадоПолучить = ДатаКоторуюНадоПолучить-60*60*24*КоличествоДней

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

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