Найти количество секунд между датами - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д