Запросы: длительность звонка в минутах

@горе программис · Регистрация: 08.03.2017

Author24 — интернет-сервис помощи студентам

необходимо создать запрос
--имеется дата начала и дата конца разговора
--из таблицы необходимо найти длительность звонка в минутах,желательно типа в форме выражение1- выражение2

не знаю как правильно писать

mobile · 30.04.2017, 22:22

Выражение в минутах между датами:

Visual Basic

1	datediff("m", [ПолеМеньшейДаты], [ПолеБольшейДаты]

@Eugene-LS · 30.04.2017, 22:30

Функция Format (Visual Basic для приложений)

Что-то вроде:
= Format([Время окончания]-[Время начала];"nn:ss")

Добавлено через 4 минуты
Но звонок может длиться и час и более - тогда:
= Format([Время окончания]-[Время начала];"hh:nn:ss")

mobile · 30.04.2017, 22:31

Ошибся в параметре

. Надо не "m", а "n". "m" это в месяцах

Visual Basic

1	datediff("n", [ПолеМеньшейДаты], [ПолеБольшейДаты]

@Eugene-LS · 30.04.2017, 22:50

Ну или так, как предложил ув. mobile, - шас, кстати, потестю как быстрее - для общего (моего) развития...

Добавлено через 15 минут
Если кому интересно вот результаты:

Visual Basic

---------------------------------------------------------
Тест-1 (10 000 000 повт.) работал: 00:00:11
Тест-2 (10 000 000 повт.) работал: 00:00:07
 
---------------------------------------------------------
Тест-1 (100 000 000 повт.) работал: 00:01:58
Тест-2 (100 000 000 повт.) работал: 00:01:06
---------------------------------------------------------

Расшифровка:
Тест-1 = DateDiff ...
Тест-2 = Format ...

Комментарии, как говориться, излишни ...
Но если кол-во обрабатываемых записей меньше "лимона" - это всё не имеет никакого смысла - так... ради любопытства только.

mobile · 30.04.2017, 22:58

Eugene-LS, основной вопрос не в скорости. Если нужна длительность именно в минутах, то формат ее не даст. Ограничиться 60 минутами, а дальше часы, дни.

@Eugene-LS · 01.05.2017, 00:55

Сообщение от mobile

то формат ее не даст

Точно!
Не знал.
Признаю свою ошибку. Спасибо за науку.
Не ожидал от Format такого
... буду знать

Добавлено через 5 минут
Странно всё это, насколько помню MSA хранит Дату-Время в Дабле, и там целая часть - это номер дня, а дробная = время от рождества компового.
И казалось бы = простая арифметика вычесть из конца начало и вывести результат в заданном формате - а не работает.
Век живи - век учись ....

Добавлено через 1 час 1 минуту
mobile, я тут увлёкся этой темой (выходной + водка + закуска + наличие времени)
У меня челюсть на "клаву" упала когда я исполнил следующее:

Visual Basic

Private Sub TestTwo()
 
Dim t As Date, tEnd As Date, result As Date
Dim v As Variant
    
'Тест 01 + один день ...
    Debug.Print "Тест 01----------------------------------"
    t = Now
    tEnd = t + 1
    Debug.Print "Начало: " & t & " - конец: " & tEnd
    v = CInt(DateDiff("n", t, tEnd))
    Debug.Print v & " минут что равно: " & v \ 60 & " целых часов"
    result = tEnd - t
    Debug.Print Format(result, "hh:nn:ss")
    Debug.Print CDbl(tEnd - t)
    Debug.Print Format(CDbl(tEnd - t), "hh:nn:ss")
 
'Тест 02 + один день и несколько часов - с дробной частью ...
    Debug.Print "Тест 02----------------------------------"
    t = Now
    tEnd = DateSerial(Year(Date + 1), Month(Date + 1), Day(Date + 1))
    tEnd = t + 1.267889
    Debug.Print "Начало: " & t & " - конец: " & tEnd
    v = CInt(DateDiff("n", t, tEnd))
    Debug.Print v & " минут что равно: " & v \ 60 & " целых часов"
    result = tEnd - t
    Debug.Print Format(result, "hh:nn:ss")
    Debug.Print CDbl(tEnd - t)
    Debug.Print Format(CDbl(tEnd - t), "hh:nn:ss")
    Debug.Print "ТестEnd----------------------------------"
 
End Sub

Не хилые "коленца" VBA тут выкидывает ...

Добавлено через 19 минут

Сообщение от mobile

Если нужна длительность именно в минутах, то формат ее не даст

Небольшая правка - и всё пашет как надо.
Модераторам - я не мусорю на форуме - я ищу истину (как могу)

если так:

Visual Basic

Private Sub TestTwo()
 
Dim t As Date, tEnd As Date, result As Date
Dim v As Variant
    
'Тест 01 + один день ...
    Debug.Print "Тест 01----------------------------------"
    t = Now
    tEnd = t + 1
    Debug.Print "Начало: " & t & " - конец: " & tEnd
    v = CInt(DateDiff("n", t, tEnd))
    Debug.Print v & " минут что равно: " & v \ 60 & " целых часов"
    result = tEnd - t
    Debug.Print Format(result, "hh:nn:ss")
    Debug.Print CDbl(tEnd - t)
    Debug.Print "Разница: " & v \ 60 & " целых часов" & " и "; Format(CDbl(tEnd - t), "hh:nn:ss") & " часов - минут - секунд"
 
'Тест 02 + один день и несколько часов - с дробной частью ...
    Debug.Print "Тест 02----------------------------------"
    t = Now
    tEnd = t + 1.267889
    Debug.Print "Начало: " & t & " - конец: " & tEnd
    v = CInt(DateDiff("n", t, tEnd))
    Debug.Print v & " минут что равно: " & v \ 60 & " целых часов"
    result = tEnd - t
    Debug.Print Format(result, "hh:nn:ss")
    Debug.Print CDbl(tEnd - t)
    Debug.Print "Разница: " & v \ 60 & " целых часов" & " и "; Format(CDbl(tEnd - t), "hh:nn:ss") & " часов - минут - секунд"
    Debug.Print "ТестEnd----------------------------------"
 
End Sub

И Format (сволочь) отрабатывает как надо ...

Всё.
Спасибо за внимание.

Добавлено через 17 минут
Окончательный вариант:

Visual Basic

Private Sub TestTwo()
 
Dim t As Date, tEnd As Date, result As Date
Dim v As Variant
    
'Тест 01 + один день ...
    Debug.Print "Тест 01----------------------------------"
    t = Now
    tEnd = t + 1
    Debug.Print "      Начало: " & t & " - конец: " & tEnd
    v = CInt(DateDiff("n", t, tEnd))
    Debug.Print "      Разница: " & v & " минут что равно: " & v \ 60 & " целых часов"
    result = tEnd - t
    Debug.Print "      " & Format(result, "hh:nn:ss")
    Debug.Print "      Разница в днях (дробь): " & CDbl(tEnd - t)
    Debug.Print "      Разница: " & v \ 1440 & " целых дней и " & Format(CDbl(tEnd - t), "hh:nn:ss") & " часов:минут:секунд"
 
'Тест 02 + один день и несколько часов - с дробной частью ...
    Debug.Print "Тест 02----------------------------------"
    t = Now
    tEnd = t + 1.267889
    Debug.Print "      Начало: " & t & " - конец: " & tEnd
    v = CInt(DateDiff("n", t, tEnd))
    Debug.Print "      Разница: " & v & " минут что равно: " & v \ 60 & " целых часов"
    result = tEnd - t
    Debug.Print "      " & Format(result, "hh:nn:ss")
    Debug.Print "      Разница в днях (дробь): " & CDbl(tEnd - t)
    Debug.Print "      Разница: " & v \ 1440 & " целых дней и " & Format(CDbl(tEnd - t), "hh:nn:ss") & " часов:минут:секунд"
 
'Тест 03 + несколько часов  ...
    Debug.Print "Тест 03----------------------------------"
    t = Now
    tEnd = t + 0.326788956777886
    Debug.Print "      Начало: " & t & " - конец: " & tEnd
    v = CInt(DateDiff("n", t, tEnd))
    Debug.Print "      Разница: " & v & " минут что равно: " & v \ 60 & " целых часов"
    result = tEnd - t
    Debug.Print "      " & Format(result, "hh:nn:ss")
    Debug.Print "      Разница в днях (дробь): " & CDbl(tEnd - t)
    Debug.Print "      Разница: " & v \ 1440 & " целых дней и " & Format(CDbl(tEnd - t), "hh:nn:ss") & " часов:минут:секунд"
    Debug.Print "ТестEnd----------------------------------"
End Sub

@горе программис · 15.05.2017, 08:35 **[ТС]**

спасибо всем,но я нашел решение попроще)) Длительность разговора: Round(([Дата конца разговора]-[Дата начала разговора])*24*60)

@горе программис 0 / 0 / 0 Регистрация: 08.03.2017 Сообщений: 8
		1
	Запросы: длительность звонка в минутах 30.04.2017, 22:02. Показов 1588. Ответов 7 Метки нет (Все метки) необходимо создать запрос --имеется дата начала и дата конца разговора --из таблицы необходимо найти длительность звонка в минутах,желательно типа в форме выражение1- выражение2 не знаю как правильно писать 0

@Eugene-LS 10472 / 5458 / 1375 Регистрация: 05.10.2016 Сообщений: 15,477
	30.04.2017, 22:30	3
	Функция Format (Visual Basic для приложений) Что-то вроде: = Format([Время окончания]-[Время начала];"nn:ss") Добавлено через 4 минуты Но звонок может длиться и час и более - тогда: = Format([Время окончания]-[Время начала];"hh:nn:ss") 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	30.04.2017, 22:58	6
	Eugene-LS, основной вопрос не в скорости. Если нужна длительность именно в минутах, то формат ее не даст. Ограничиться 60 минутами, а дальше часы, дни. 1

@горе программис 0 / 0 / 0 Регистрация: 08.03.2017 Сообщений: 8
	15.05.2017, 08:35 [ТС]	8
	спасибо всем,но я нашел решение попроще)) Длительность разговора: Round(([Дата конца разговора]-[Дата начала разговора])2460) 0