| Вопрос: Считаю время | Добавлено: 11.01.06 22:51 |
Автор вопроса:  [root] | Web-сайт: bit.pirit.info
|
|
Запоминаю начальное время, затем конечное, нахожу разницу в секундах.
Начальное и конечное время в формате часы:минуты:секунды. Результат в секундах. Как получать результат в таком же формате, как и начальное и конечное время? Option Explicit Dim dtmTimeStart Dim dtmTimeStop Dim dtmTimeInter As String Private Sub cmdStart_Click() dtmTimeStart = Time lblTimeStart = Time End Sub Private Sub cmdStop_Click() dtmTimeStop = Time lblTimeStop = Time dtmTimeInter = DateDiff("s", dtmTimeStart, dtmTimeStop) lblTimeInter.Caption = dtmTimeInter End Sub |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  [root] Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #1 | Добавлено: 11.01.06 23:34 |
|
Все понял - сам разобрался!
dtmTimeInter = Format(dtmTimeStop - dtmTimeStart, "hh:mm:ss" 
|
||
|
Номер ответа: 2 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #2 | Добавлено: 16.01.06 10:08 |
| Странно что все промолчали. Неужто кто то на этом форуме примелет Variant? | ||
|
Номер ответа: 3 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #3 | Добавлено: 16.01.06 10:23 |
|
Что делает?
Не понятно о чем ты? |
||
|
Номер ответа: 4 Автор ответа: GSergВопросов: 0 Ответов: 1876 
|
Профиль | | #4 | Добавлено: 16.01.06 11:02 |
| "Приемлет", очевидно... Но я так думаю, что уже как-то пофигу в некоторых случаях... | ||
Страница: 1 |