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

Вход

Регистрация

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

 

= Мир MS Excel/Подсчет количества минут - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Подсчет количества минут
Андреич Дата: Воскресенье, 14.02.2021, 22:14 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте. Такой вопрос: необходимо считать промежуток времени в минутах между вводимыми значениями. Все происходит в форме, временные точки вводятся пользователем, в вычисляемых полях требуется вычислять промежутки.
Функция DateDiff прекрасно с этим справляется, но как быть в случае перехода через рубеж суток? К примеру: начальное время 23:50, конечное - 00:10, в этом случае считает не корректно. Подскажите пожалуйста, есть решение данной задачи?


...пожарные выехали в ту же ночь...
 
Ответить
СообщениеЗдравствуйте. Такой вопрос: необходимо считать промежуток времени в минутах между вводимыми значениями. Все происходит в форме, временные точки вводятся пользователем, в вычисляемых полях требуется вычислять промежутки.
Функция DateDiff прекрасно с этим справляется, но как быть в случае перехода через рубеж суток? К примеру: начальное время 23:50, конечное - 00:10, в этом случае считает не корректно. Подскажите пожалуйста, есть решение данной задачи?

Автор - Андреич
Дата добавления - 14.02.2021 в 22:14
Апострофф Дата: Понедельник, 15.02.2021, 00:54 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 458
Репутация: 126 ±
Замечаний: 0% ±

Excel 1997
Андреич, можно так извратиться:
[vba]
Код
Sub ttt()
t1 = "23:50"
t2 = "00:10"
dt = (CDate(t2) - CDate(t1)) * 1440
If dt < 0 Then dt = dt + 1440
End Sub
[/vba]
 
Ответить
СообщениеАндреич, можно так извратиться:
[vba]
Код
Sub ttt()
t1 = "23:50"
t2 = "00:10"
dt = (CDate(t2) - CDate(t1)) * 1440
If dt < 0 Then dt = dt + 1440
End Sub
[/vba]

Автор - Апострофф
Дата добавления - 15.02.2021 в 00:54
Андреич Дата: Понедельник, 15.02.2021, 22:55 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Цитата Апострофф, 15.02.2021 в 00:54, в сообщении № 2 ()
Андреич, можно так извратиться:

Спасибо, но не совсем понял как это применить. Вот сейчас в вычисляемом поле в построителе выражений прописана такая формула: [vba]
Код
=DateDiff("n";[Время сообщения];[Время прибытия])
[/vba]
И я так понимаю, нужно каким то образом повесить условие на проверку, если ответ меньше нуля, то прибавить к нему 1440. Вот как это сделать?


...пожарные выехали в ту же ночь...

Сообщение отредактировал Андреич - Понедельник, 15.02.2021, 22:56
 
Ответить
Сообщение
Цитата Апострофф, 15.02.2021 в 00:54, в сообщении № 2 ()
Андреич, можно так извратиться:

Спасибо, но не совсем понял как это применить. Вот сейчас в вычисляемом поле в построителе выражений прописана такая формула: [vba]
Код
=DateDiff("n";[Время сообщения];[Время прибытия])
[/vba]
И я так понимаю, нужно каким то образом повесить условие на проверку, если ответ меньше нуля, то прибавить к нему 1440. Вот как это сделать?

Автор - Андреич
Дата добавления - 15.02.2021 в 22:55
Pelena Дата: Вторник, 16.02.2021, 09:26 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Можно так
[vba]
Код
([Время прибытия]-[Время сообщения]-([Время прибытия]<[Время сообщения]))*1440
[/vba]
если именно через DateDiff
[vba]
Код
DateDiff("n";[Время сообщения];[Время прибытия])-([Время прибытия]<[Время сообщения])*1440
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеМожно так
[vba]
Код
([Время прибытия]-[Время сообщения]-([Время прибытия]<[Время сообщения]))*1440
[/vba]
если именно через DateDiff
[vba]
Код
DateDiff("n";[Время сообщения];[Время прибытия])-([Время прибытия]<[Время сообщения])*1440
[/vba]

Автор - Pelena
Дата добавления - 16.02.2021 в 09:26
Андреич Дата: Вторник, 16.02.2021, 21:07 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Pelena, Все работает как надо. Спасибо...)


...пожарные выехали в ту же ночь...
 
Ответить
СообщениеPelena, Все работает как надо. Спасибо...)

Автор - Андреич
Дата добавления - 16.02.2021 в 21:07
  • Страница 1 из 1
  • 1
Поиск:

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