расчет разности дат 2

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

luny

Дата: Вторник, 31.05.2016, 22:18 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

изменились несколько условия подачи документа, поэтому снова прошу помощи
все изменения касаются второй таблицы документа
необходимо:
1)в 1 пункте дата будет задана в формате 01.01.1982
2)от даты в п.1 и по первое число сегодняшнего месяца вычислить количество лет и месяцев -
3)от даты в п.1 и по первое число сегодняшнего месяца вычислить количество часов (обязательно с учетом высокостных годов)
4) в зависимости от установленного срока эксплуатации высчитать количество часов от п.1
8) от п.1 вычесть п.4 и вычеслить сколько лет, месяцев часов свыше срока проработало изделие

предыдущий вариант документа рассмотрен в теме(может полезно будет) разность дат 1
в файле примера предыдущий макрос с частично решенной задачей

К сообщению приложен файл: 6651483.doc (48.5 Kb)

Сообщение отредактировал luny - Вторник, 31.05.2016, 22:18

Ответить

luny

Дата: Пятница, 03.06.2016, 15:36 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

может кто тогда поможет решить задачу частями?
пока вопросов несколько :

- как прибавить к дате Х лет (DateAdd)?

ps по немножку разбираюсь - почему оно огрызается на dat2?
[vba]

Код

    dat2 = DateAdd("y", years, dat1)
    hours2 = DateDiff("h", dat1, dat2)
    tbl.Cell(5, 3).Range.Text = hours2 & " годин"

[/vba]