ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / помогите посчитать разницу во времени и датах
14 сообщений из 14, страница 1 из 1
помогите посчитать разницу во времени и датах
    #34539165
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
НачалопростояОкончаниеремонтаДатаВремяДатаВремя10.05.200707:3014.05.200709:00надо подсчитать сколько часов простаивало оборудование
то есть должно получиться 33 часа 30 минут
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
' дата и время указывает на начало простоя и окончание простоя
Public Function Макрос4(ДатаНачала As Range, ВремяНачала As Range, ДатаОкончания As Range, ВремяОкончания As Range)
' например
'    ДатаНачала простоя = 10.05.2007    формат ячейки ДАТА
' ДатаОкончания простоя = 14.05.2007    формат ячейки ДАТА
'   ВремяНачала простоя = 07:30         формат ячейки ВРЕМЯ
'ВремяОкончания простоя = 09:00         формат ячейки ВРЕМЯ
timeWork = (ДатаОкончания.Value - ДатаНачала.Value) *  8   ' смена по 8 часов, ( предположим, что работает каждый день)
time_Out = Abs(ВремяОкончания.Value - ВремяНачала.Value)
Макрос4 = timeWork - time_Out
End Function
в ячейке написал =Макрос4 (F2;G2;J2;K2)
ожидаю увидеть результат, 33 часа 30 минут простоя
то есть (4 дня * 8 часов) - 01:30
а ячейка показывает результат 31,94
если перевожу формат ячейки в формат ВРЕМЯ, то показывает 22:30
подскажите, что сделано неправильно?
...
Рейтинг: 0 / 0
21.05.2007, 12:08:00
| Ответить | Цитировать | Написать  
помогите посчитать разницу во времени и датах
    #34539355
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
...
Рейтинг: 0 / 0
21.05.2007, 13:05:15
| Ответить | Цитировать | Написать  
помогите посчитать разницу во времени и датах
    #34539369
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
vbaproможет можно и оптимальнее :)
...
Рейтинг: 0 / 0
21.05.2007, 13:07:51
| Ответить | Цитировать | Написать  
помогите посчитать разницу во времени и датах
    #34539469
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
vbapro vbaproможет можно и оптимальнее :)
классно, спасибо
...
Рейтинг: 0 / 0
21.05.2007, 13:37:27
| Ответить | Цитировать | Написать  
помогите посчитать разницу во времени и датах
    #34563223
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
подскажите идею или алгоритм (хотя бы в общих чертах)

Оборудование Начало простоя Конец простоя Простой оборудованияСтанок токарн. 25.05.2007 16:00 26.05.2007 09:00 1 ч + 1 ч = 02:00Фрезерный ст. 26.05.2007 11:00 27.05.2007 11:00 5 ч + 3 ч = 08:00штамп 25.05.2007 08:00 30.05.2007 09:00 40 ч + 1ч = 41:00
Рабочий день заканчивается в 17:00, а начинается в 08:00, обед с 12:00 до 13:00
Таких записей в Excel будет сотни
и ещё придётся учитывать праздники и выходные
...
Рейтинг: 0 / 0
31.05.2007, 09:19:14
| Ответить | Цитировать | Написать  
помогите посчитать разницу во времени и датах
    #34564753
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
vbapro vbaproможет можно и оптимальнее :)

все еще проще:

десятичн.: =((C2+D2)-(A2+B2))*8
время: =((C2+D2)-(A2+B2))*"08:00" + формат [h]:mm
текст: =ТЕКСТ(((C2+D2)-(A2+B2))*"08:00";"[h]:mm")

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
31.05.2007, 14:39:25
| Ответить | Цитировать | Написать  
помогите посчитать разницу во времени и датах
    #34564781
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
klen_подскажите идею или алгоритм (хотя бы в общих чертах)

Оборудование Начало простоя Конец простоя Простой оборудованияСтанок токарн. 25.05.2007 16:00 26.05.2007 09:00 1 ч + 1 ч = 02:00Фрезерный ст. 26.05.2007 11:00 27.05.2007 11:00 5 ч + 3 ч = 08:00штамп 25.05.2007 08:00 30.05.2007 09:00 40 ч + 1ч = 41:00
Рабочий день заканчивается в 17:00, а начинается в 08:00, обед с 12:00 до 13:00
Таких записей в Excel будет сотни
и ещё придётся учитывать праздники и выходные

см. здесь:
http://www.cpearson.com/excel/datetime.htm
http://www.cpearson.com/excel/datetime.htm#AddingTimes
http://www.cpearson.com/excel/DateTimeWS.htm#WorkHours
http://www.cpearson.com/excel/overtime.htm


KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
31.05.2007, 14:45:05
| Ответить | Цитировать | Написать  
помогите посчитать разницу во времени и датах
    #34564931
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
Оборудование Начало простоя Конец простоя Простой оборудования Станок токарн. 25.05.2007 16:00 26.05.2007 09:00 1 ч + 1 ч = 02:00
формула по ссылке =IF(AND(INT(StartDT)=INT(EndDT) и так далее возвращает 17 часов,
но дело в том, что рабочий день закончился в 17:00
следовательно 25-го мая станок простоял 1 час, и 26 мая, 1 час
т.е. всего 2 часа станок простоял без работы
...
Рейтинг: 0 / 0
31.05.2007, 15:17:00
| Ответить | Цитировать | Написать  
помогите посчитать разницу во времени и датах
    #34565141
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
нет
всё правильно
это я ошибся
...
Рейтинг: 0 / 0
31.05.2007, 15:55:45
| Ответить | Цитировать | Написать  
помогите посчитать разницу во времени и датах
    #34565662
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
klen_нет
всё правильно
это я ошибся

а по-моему в твоем случае она все-таки врет :-) Попробуй прилагаемый файл.

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
31.05.2007, 17:38:35
| Ответить | Цитировать | Написать  
помогите посчитать разницу во времени и датах
    #34566367
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
KL (XL) klen_нет
всё правильно
это я ошибся

а по-моему в твоем случае она все-таки врет :-) Попробуй прилагаемый файл.

KL
[MVP - Microsoft Excel]


Привет!!!
Да уж далеко шагнула мысль. Я никогда и не задумывался насколько ЧИСТРАБДНИ() медленная.
Поэтому прочитав несдержался решил поучавствовать. Тем более мне так понравилась идея определения массива значений дат внутри диапазона. Ещё быстрее:
=СУММПРОИЗВ((ДЕНЬНЕД(СТРОКА(ИНДЕКС(A:A;ЦЕЛОЕ(B6)):ИНДЕКС(A:A;ЦЕЛОЕ(C6)));2)<6)*ЕНД(ПОИСКПОЗ(СТРОКА(ИНДЕКС(A:A;ЦЕЛОЕ(B6)):ИНДЕКС(A:A;ЦЕЛОЕ(C6)));$A$8:$A$22;0)))
Но мне больше так понравилось хоть и медленнее:
=СУММПРОИЗВ((ДЕНЬНЕД(СТРОКА(ДВССЫЛ(ЦЕЛОЕ(B6)&":"&ЦЕЛОЕ(C6)));2)<6)*ЕНД(ПОИСКПОЗ(СТРОКА(ДВССЫЛ(ЦЕЛОЕ(B6)&":"&ЦЕЛОЕ(C6)));$A$8:$A$22;0)))
...
Рейтинг: 0 / 0
01.06.2007, 00:46:09
| Ответить | Цитировать | Написать  
помогите посчитать разницу во времени и датах
    #34566438
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
DeggasadПривет!!!
Да уж далеко шагнула мысль. Я никогда и не задумывался насколько ЧИСТРАБДНИ() медленная.
Поэтому прочитав несдержался решил поучавствовать. Тем более мне так понравилась идея определения массива значений дат внутри диапазона. Ещё быстрее:
=СУММПРОИЗВ((ДЕНЬНЕД(СТРОКА(ИНДЕКС(A:A;ЦЕЛОЕ(B6)):ИНДЕКС(A:A;ЦЕЛОЕ(C6)));2)<6)*ЕНД(ПОИСКПОЗ(СТРОКА(ИНДЕКС(A:A;ЦЕЛОЕ(B6)):ИНДЕКС(A:A;ЦЕЛОЕ(C6)));$A$8:$A$22;0)))
Но мне больше так понравилось хоть и медленнее:
=СУММПРОИЗВ((ДЕНЬНЕД(СТРОКА(ДВССЫЛ(ЦЕЛОЕ(B6)&":"&ЦЕЛОЕ(C6)));2)<6)*ЕНД(ПОИСКПОЗ(СТРОКА(ДВССЫЛ(ЦЕЛОЕ(B6)&":"&ЦЕЛОЕ(C6)));$A$8:$A$22;0)))
Привет,

1 вариант пожалуй получше, а вот от второго я отказался несколько лет назад из-за летучести ДВССЫЛ :-)

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
01.06.2007, 02:12:24
| Ответить | Цитировать | Написать  
помогите посчитать разницу во времени и датах
    #34566541
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
KL (XL)

1 вариант пожалуй получше, а вот от второго я отказался несколько лет назад из-за летучести ДВССЫЛ :-)

KL
[MVP - Microsoft Excel]

Как всегда забываю! Но всё же прикольная формула!
...
Рейтинг: 0 / 0
01.06.2007, 08:01:47
| Ответить | Цитировать | Написать  
помогите посчитать разницу во времени и датах
    #34566557
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
Большое спасибо! За помощь, за готовое решение.
Разберусь в последовательности вычислений и перепишу в макрос,
т.к. с VBA не много знаком, а команды Excel-я совершенно не знаю.
Благодарю!
...
Рейтинг: 0 / 0
01.06.2007, 08:13:55
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / помогите посчитать разницу во времени и датах
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34539165&tid=2182860]:
 0ms
get settings:
 7ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 99ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 205ms
total:  409ms
созд. / загр.: 409ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]