Fungsi TimeSerial

Menghitung nilai waktu seri untuk parameter jam, menit, dan detik yang ditentukan yang dinyatakan sebagai nilai numerik. Anda kemudian dapat menggunakan nilai ini untuk menghitung selisih waktu.

Sintaksis:

TimeSerial (jam, menit, detik)

Nilai hasil:

Tanggal

Parameter:

jam: Ekspresi bilangan apa pun yang menunjukkan jam waktu yang digunakan untuk menentukan nilai seri waktu. Nilai yang valid: 0-23.

menit: Ekspresi bilangan apa pun yang menunjukkan menit waktu yang digunakan untuk menentukan nilai seri waktu. Secara umum, menggunakan nilai antara 0 dan 59. Namun, Anda juga dapat menggunakan nilai yang berada di luar rentang ini, di mana jumlah menit memengaruhi nilai jam.

detik: Ekspresi bilangan bulat apa pun yang menunjukkan detik waktu yang digunakan untuk menentukan nilai seri waktu. Secara umum, Anda dapat menggunakan nilai antara 0 dan 59. Namun, Anda juga dapat menggunakan nilai yang berada di luar rentang ini, di mana angka detik memengaruhi nilai menit.

Contoh:

12, -5, 45 sesuai dengan 11, 55, 45

12, 61, 45 sesuai dengan 13, 2, 45

12, 20, -2 sesuai dengan 12, 19, 58

12, 20, 63 sesuai dengan 12, 21, 4

Anda dapat menggunakan fungsi TimeSerial untuk mengubah waktu menjadi nilai tunggal yang dapat Anda gunakan untuk menghitung perbedaan waktu.

Fungsi TimeSerial mengembalikan tipe Variant dengan VarType 7 (Tanggal). Nilai ini disimpan secara internal sebagai angka presisi ganda antara 0 dan 0,9999999999. Berbeda dengan fungsi DateSerial atau DateValue, di mana nilai seri tanggal dihitung sebagai hari relatif terhadap tanggal yang tetap, Anda dapat menghitung dengan nilai yang dikembalikan oleh fungsi TimeSerial, tetapi Anda tidak dapat mengevaluasinya.

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

Contoh:

Sub ExampleTimeSerial
Dim dDate As Double, sDate As String
    dDate = TimeSerial(8,30,15)
    sDate = TimeSerial(8,30,15)
    MsgBox dDate,64,"Waktu sebagai angka"
    MsgBox sDate,64,"Waktu berformat"
End Sub