Найти количество секунд между датами - VB
Формулировка задачи:
Прошу помочь. Ломаю голову очень долго. Как найти время между d1 м d2 в секундах? Пробовал datediff, выдаёт ошибку
d1 = #5/1/2016 8:30:11 PM#
d2= #5/1/2016 8:32:30 PM#
Решение задачи: «Найти количество секунд между датами»
textual
Листинг программы
- Private Sub BtnOk_Click()
- 'Ссумирование даты к секундам и отображение в подпунктах
- Me.Enabled = 1
- With Form2
- .Hide
- s(0) = Format$(.DTPicker1(0), "dd\/mm\/yyyy ") & Format$(.DTPicker1(1), "hh:mm:ss")
- v = CDate(s(0)): s(2) = .Combo1.Text
- s(1) = Format$(v + TimeSerial(Hour(v), Minute(v), Second(v) + s(2)), "dd\/mm\/yyyy hh:mm:ss")
- End With
- With ListView1.ListItems.Add(, , s(0))
- .ListSubItems.Add , , s(1)
- .ListSubItems.Add , , s(2)
- End With
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
