Найти количество секунд между датами - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.833 из 5
Похожие ответы