Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Работа с часами, когда надо посчитать больше 24 часов / 7 сообщений из 7, страница 1 из 1
27.04.2016, 19:04
    #39226075
Alex Pancho
Alex Pancho
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с часами, когда надо посчитать больше 24 часов
Я считаю отработанные часы в неделю. С их выборкой, суммированием и прочим проблем нет.
Проблема только когда я пытаюсь показать результат. Потому что в формате hh:nn (Краткий формат времени) не показывает больше 23:59. Как мне показать 40, 50... и т.д. часов? Полный формат не подходит - там начинаются дни меняться (02 января 1900 г. 16:00 - например = 40 часов)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2016, 19:28
    #39226103
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с часами, когда надо посчитать больше 24 часов
Поделить на 60...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2016, 21:02
    #39226144
Alex Pancho
Alex Pancho
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с часами, когда надо посчитать больше 24 часов
В общем, сам нашел.
Искомое віглядит так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
'------------------------------------------------------------------
' Данная функция вычисляет время, прошедшее между двумя значениями,
' а затем форматирует результат четырьмя разными способами.
'
' Функция принимает аргументы интервалов в следующем виде:
'
'     #5/12/95 6:00:00AM# - #5/11/95 10:00:00PM#
'
'     
'
'     [Время окончания]-[Время начала]
'------------------------------------------------------------------

Function ElapsedTime (Interval)
  Dim x
  x = Int(CSng(Interval * 24 * 3600)) & " секунд"
  Debug.Print x
  x = Int(CSng(Interval * 24 * 60)) & ":" & Format(Interval, "ss") _
     & " минут:секунд"
  Debug.Print x
  x = Int(CSng(Interval * 24)) & ":" & Format(Interval, "nn:ss") _
     & " часов:минут:секунд"
  Debug.Print x
  x = Int(CSng(Interval)) & " дней " & Format(Interval, "hh") _
     & " часов " & Format(Interval, "nn") & " минут " & _
     Format(Interval, "ss") & " секунд"
  Debug.Print x

End Function



Найдено и подробности
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2016, 00:35
    #39226229
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с часами, когда надо посчитать больше 24 часов
Код: vbnet
1.
2.
3.
4.
'разность в днях,часах,мин.,сек.
Function my(mydate1 As String, mydate2 As String) 'mydate2>mydate1
my = Int(CDate(mydate2) - CDate(mydate1)) & " дн. " & Format(CDate(mydate2) - CDate(mydate1) - Int(CDate(mydate2) - CDate(mydate1)), "hh:nn:ss")
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2016, 08:47
    #39226312
\\\\
\\\\
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с часами, когда надо посчитать больше 24 часов
sdku
Код: vbnet
1.
2.
3.
4.
'разность в днях,часах,мин.,сек.
Function my(mydate1 As String, mydate2 As String) 'mydate2>mydate1
my = Int(CDate(mydate2) - CDate(mydate1)) & " дн. " & Format(CDate(mydate2) - CDate(mydate1) - Int(CDate(mydate2) - CDate(mydate1)), "hh:nn:ss")
End Function

Париж. Вечер. Турист проголодался, заходит в бар, к нему подходит официант:
- Мсье желает девочку?
- Нет.. .
- Мсье желает мальчика?
- Да нет.. .
- Чего желает мсье?
- Мне бы курочку.. .
- О! Мсье знает толк в извращениях!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.05.2016, 18:34
    #39231906
капча-деревья-я-не-робот
капча-деревья-я-не-робот
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с часами, когда надо посчитать больше 24 часов
\\\\,

+1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.05.2016, 19:17
    #39231921
капча-вафли-я-не-робот
капча-вафли-я-не-робот
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с часами, когда надо посчитать больше 24 часов
Alex Pancho,

* В общем, сам нашел.
- Это монтана!

* Искомое віглядит так
- Это русский форум. Пиши по-русски.

* Данная функция вычисляет время, прошедшее между двумя значениями,
- Ты сам-то подумал - чем хвастаешься? БГ-шные индусо-макаки навалили гоъвна, а ты с восторгом это цитируешь...

* "вычисляет время"
- выдели это место в коде...

* "между двумя значениями"
- при одном входящем параметре?!

Свидомиты упороты так жестко, что и сами не замечают этого... А ведь, станется, объявят потом индусский "код" своим пракодом... Да и пусть их...

И еще маленькое замечание - еще с тех пор, как Акс не был БГ-шный, в голове любого кода автоматом подставляется Option Explicit. А в твоем "коде" Interval - просто Interval. Даже не As Variant. Ъовнокод это называется.

Ми-илай... разница между двумя значениями получатися вычитанием одного из другого. Все остальное - суть форматирование для представление в виде, необходимом для конкретного восприятия.
.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Работа с часами, когда надо посчитать больше 24 часов / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 474ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1613596]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 44ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 341ms
total:  474ms
x
x
Закрыть


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