Вычислить разницу во времени

@ИванКО · Регистрация: 22.10.2014

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

Написать приложение, по нажатию на кнопку с надписью <Пуск> отображает на объекте Label 1 текущее время,по нажатию на <Стоп> текущее время в следующий момент времени, и время, прошедшее между нажатием на первую и вторую кнопки.
Вот код :

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Dim a As Timer, b As Timer, c As Integer
Private Sub Command1_Click()
Label1.Caption = Time
a = Label1: b = Label2:
End Sub
 
Private Sub Command2_Click()
Label2.Caption = Time
Label3 = c
c = a - b
End Sub

Не получается вычислить прошедшее время.

@Alex77755 · 28.10.2014, 23:14

Попробуй закоментировать каждую строку.
Или хотя бы вникнуть в написанное.
В какой момент и что чему назначается или считывается
В первой процедуре считываешь значение b с ещё не назначенного лабела
Во торой назнчаешь лабелу3 значение ещё не подсчитанной переменной.

Да и с типами данных перемудрил
Тегами, кстати, тоже надо пользоваться

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Option Explicit
 Dim a As Date, b As Date, c As Integer
 
 Private Sub Command1_Click()
        Label1.Caption = Time
        a = Label1.Caption:
 End Sub
 
 Private Sub Command2_Click()
        Label2.Caption = Time
        b = Label2.Caption
         c = DateDiff("s", a, b)
        Label3 = c
 End Sub

@ИванКО · 28.10.2014, 23:32 **[ТС]**

Благодарю

первая задача на ВБ

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@ИванКО 0 / 0 / 0 Регистрация: 22.10.2014 Сообщений: 15
	28.10.2014, 23:32 [ТС]
	Благодарю первая задача на ВБ 0

Вычислить разницу во времени

Решение