powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Нуууу не знаааааююююю!!!!!!!!!!!!! (авария со временем)
7 сообщений из 7, страница 1 из 1
Нуууу не знаааааююююю!!!!!!!!!!!!! (авария со временем)
    #32500842
Фотография Moorka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нуууу не знаааааююююю что делаааааааааать?!!!!!!!!!!!!!!!!!!!!!!!!

Есть условие:
If (t_zvonki.Fields(2) > konec_cas_pic Or t_zvonki.Fields(2) < nacialo_cas_pic) And (t_zvonki.Fields(3) > konec_cas_pic Or t_zvonki.Fields(3) < nacialo_cas_pic) Then
If (t_zvonki.Fields(2) < #12:00:00 PM# And t_zvonki.Fields(3) > #12:00:00 PM#) Then..............

В t_zvonki.Fields(2) время начала тел звонка
В t_zvonki.Fields(3) время конца тел звонка

Задача элементарная: мне надо сосчитать длительность звонка в минутах, НО при УСЛОВИИ, что начало звонка до полуночи, а конец уже после полуночи.

Пробовала писать #00:00:00# вместо #12:00:00 PM# , но VBA сам правит на свой формат: #12:00:00 PM#

При выводе результата получается бред.

Вобщем вопрос конкретный:
Как написать условие: если начало звонка в промежутке с 18:00 до 00:00 и конец звонка в промежутке с 00:00 до 08:00 то......????
Может кто нибудь знает в чем тут хитрость или знает ссылку на FAQ где об этом че-нить написано?
...
Рейтинг: 0 / 0
Нуууу не знаааааююююю!!!!!!!!!!!!! (авария со временем)
    #32500888
Roma R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Почему бы не хранить время в формате дата/время
Тогда
Кол_мин=DateDiff("n", t_zvonki.Fields(2) , t_zvonki.Fields(3))
...
Рейтинг: 0 / 0
Нуууу не знаааааююююю!!!!!!!!!!!!! (авария со временем)
    #32500901
Фотография Moorka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А что такое "n"?
...
Рейтинг: 0 / 0
Нуууу не знаааааююююю!!!!!!!!!!!!! (авария со временем)
    #32500909
Roma R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Значение Описание
yyyy Год.
q Квартал.
m Месяц.
y День года.
d День месяца.
w День недели.
ww Неделя.
h Часы.
n Минуты.
s Секунды.

Интервал при "n" выражается в минутах
...
Рейтинг: 0 / 0
Нуууу не знаааааююююю!!!!!!!!!!!!! (авария со временем)
    #32500949
Фотография Moorka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да, я понимаю, что ты хочешь сказать, но мне для этого всю базу переворачивать вверх дном надо :)
Вот если б я раньше знала.....

У меня это дело выглядит так:
кол_мин = 1440 - (Minute(.Fields(2)) + (Hour(.Fields(2)) * 60)) + (Minute(.Fields(3)) + (Hour(.Fields(3)) * 60))

т.е. например звонок с 23:55:00 до 00:05:00, тогда
(24:00:00-23:55:00)+00:05:00

p.s. 24 часа = 1440 мин
...
Рейтинг: 0 / 0
Нуууу не знаааааююююю!!!!!!!!!!!!! (авария со временем)
    #32500986
Roma R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А если так (оставьте формат только времени)

Dim Kol_min As Long
Kol_min =DateDiff("n", t_zvonki.Fields(2) , t_zvonki.Fields(3))
'Kol_min = DateDiff("n", #11:55:00 PM#, #12:05:00 AM#)
If Kol_min < 0 Then Kol_min = Kol_min + 1440
...
Рейтинг: 0 / 0
Нуууу не знаааааююююю!!!!!!!!!!!!! (авария со временем)
    #32501086
Фотография Moorka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сила!
Работает!

Пасиба ;о)
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Нуууу не знаааааююююю!!!!!!!!!!!!! (авария со временем)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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