Fungsi TimeValue

Menghitung nilai seri waktu dari parameter jam, menit, dan detik yang ditentukan sebagai string - yang mewakili waktu dalam nilai numerik tunggal. Nilai ini dapat digunakan untuk menghitung selisih waktu.

Sintaksis:


TimeValue (Teks As String)

Nilai hasil:

Tanggal

Parameter:

Teks: Ekspresi string apa pun yang berisi waktu yang ingin Anda hitung dalam format "HH: MM: SS".

Gunakan fungsi TimeValue untuk mengubah waktu menjadi nilai tunggal, sehingga Anda dapat menghitung perbedaan waktu.

Fungsi TimeValue ini mengembalikan jenis Varian dengan VarType 7 (Tanggal), dan menyimpan nilai ini secara internal sebagai angka presisi ganda antara 0 dan 0,9999999999.

Dibandingkan dengan DateSerial atau fungsi DateValue, di mana nilai-nilai tanggal serial mengakibatkan hari relatif terhadap satu tarikh tetap, Anda dapat menghitung dengan nilai-nilai yang dikembalikan oleh fungsi TimeValue, tetapi Anda tidak bisa mengevaluasi mereka.

Dalam fungsi TimeSerial, Anda dapat melewati parameter individual (jam, menit, detik) sebagai ekspresi numerik yang terpisah. Namun, untuk fungsi TimeValue, Anda bisa melewati string sebagai parameter yang berisi waktu.

Kode kesalahan:

5 Tidak sah dalam pemanggilan prosedur

13 Ketidakcocokan jenis

Contoh:


Sub ExampleTimerValue
Dim daDT As Date
Dim a1, b1, c1, a2, b2, c2 As String
    a1 = "waktu mulai"
    b1 = "waktu selesai"
    c1 = "waktu total"
    a2 = "8:34"
    b2 = "18:12"
    daDT = TimeValue(b2) - TimeValue(a2)
    c2 = a1 & ": " & a2 & chr(13)
    c2 = c2 & b1 & ": " & b2 & chr(13)
    c2 = c2 & c1 & ": " & trim(Str(Hour(daDT))) & ":" & trim(Str(Minute(daDT))) & ":" & trim(Str(Second(daDT)))
    MsgBox c2
End Sub