Считание времени

@Mubinov Damir · Регистрация: 01.03.2009

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

Бейсико-знающие
Помогите пожалуйста, у меня такая фигня:
Я ваяю на VB6 одну программку которая считает время с включения компа.
эта есть проблема: мне нужно чтобы он считал время с какого-то времени, например:

Visual Basic
1
2
3
4
5
Dim Время as intiger
Sub form_load ()
время=time
lbl1.caption=время + time
end sub

Ну вот как это идиотство воплотить в жизнь?
Прошу всех бейсико-знающих

@gaw · 17.03.2010, 22:55

объясни как то по другому

@Mubinov Damir · 18.03.2010, 07:52 **[ТС]**

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

объясни как то по другому

Короче нужно так:
Допустим время включения программы было "21:12:04" , а нынешнее время "01:10:17".
ну вот как сделать чтобы узнать сколько времени прошло от включения до нынешнего в таком же формате(ЧЧ:ММ:СС)

@Alex77755 · 18.03.2010, 09:44

Запоминай или записывай где-то время, а потом находи разницу между системным DateDiff

Добавлено через 55 минут
Можно так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim D1, D2, D3
Dim H, M, S
D1 = "21:12:04"
D2 = "01:10:17"
S = Abs(DateDiff("s", D1, D2))
H = S \ 3600
M = (Abs(DateDiff("s", D1, D2)) Mod 3600) \ 60
S = (Abs(DateDiff("s", D1, D2)) Mod 3600) Mod 60
H = IIf(H < 10, "0" & H, H)
M = IIf(M < 10, "0" & M, M)
S = IIf(S < 10, "0" & S, S)
D3 = H & ":" & M & ":" & S
MsgBox D3

@Mubinov Damir · 18.03.2010, 10:15 **[ТС]**

Alex77755
Спасибо
А можно ли чтобы он счтал разницу более 24 часов, например с одного дня до второго

@Alex77755 · 18.03.2010, 10:26

Можно!

@gaw · 18.03.2010, 13:46

Visual Basic
1
2
3
4
5
6
7
8
9
10
Dim tim As Date
Private Sub Form_Load()
Timer1.Interval = 1000
tim = Time
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
Label1 = Format(Time - tim, "hh:mm:ss")
End Sub

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	17.03.2010, 22:55
	объясни как то по другому 0

@Mubinov Damir 6 / 6 / 0 Регистрация: 01.03.2009 Сообщений: 93
	18.03.2010, 10:15 [ТС]
	Alex77755 Спасибо А можно ли чтобы он счтал разницу более 24 часов, например с одного дня до второго 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.03.2010, 10:26
	Можно! 0