Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/расчет разности дат 2 - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » расчет разности дат 2
расчет разности дат 2
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(48Kb)


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

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

Автор - 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]
К сообщению приложен файл: __218-.doc(58Kb)


Сообщение отредактировал luny - Пятница, 03.06.2016, 16:14
 
Ответить
Сообщениеможет кто тогда поможет решить задачу частями?
пока вопросов несколько :

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

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

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

Автор - luny
Дата добавления - 03.06.2016 в 15:36
luny Дата: Суббота, 04.06.2016, 17:12 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 101
Репутация: 0 ±
Замечаний: 40% ±

Excel 2003
ребят, ну помогите разобраться с dat2 - со всем остальным уже разобрался
 
Ответить
Сообщениеребят, ну помогите разобраться с dat2 - со всем остальным уже разобрался

Автор - luny
Дата добавления - 04.06.2016 в 17:12
Pelena Дата: Суббота, 04.06.2016, 17:46 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 9873
Репутация: 2263 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
Переменная dat2 не описана. Добавьте в начале кода [vba]
Код
Dim dat2 As Date
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеПеременная dat2 не описана. Добавьте в начале кода [vba]
Код
Dim dat2 As Date
[/vba]

Автор - Pelena
Дата добавления - 04.06.2016 в 17:46
luny Дата: Суббота, 04.06.2016, 19:56 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 101
Репутация: 0 ±
Замечаний: 40% ±

Excel 2003
Pelena, спасибо заработало
К сообщению приложен файл: _218-.doc(58Kb)
 
Ответить
СообщениеPelena, спасибо заработало

Автор - luny
Дата добавления - 04.06.2016 в 19:56
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » расчет разности дат 2
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!