Cara menggunakan fungsi timevalue di vba (dengan contoh)

Anda dapat menggunakan fungsi TimeValue di VBA untuk mengembalikan nilai waktu dari string tertentu.

Berikut cara umum untuk menggunakan fungsi ini dalam praktik:

 Sub GetTimeValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = TimeValue(Range(" A " & i))
Next i
    
End Sub

Makro khusus ini akan mengekstrak nilai waktu dari tanggal dan waktu dalam rentang A2:A7 dan mengembalikan nilai waktu tersebut dalam rentang B2:B7 yang sesuai.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Cara menggunakan fungsi TimeValue di VBA

Misalkan kita memiliki kolom tanggal/waktu berikut di Excel:

Misalkan kita ingin mengekstrak waktu dari setiap tanggal dan waktu di kolom A dan menampilkannya di kolom B.

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub GetTimeValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = TimeValue(Range(" A " & i))
Next i
    
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kolom B menampilkan nilai waktu untuk setiap tanggal/waktu di kolom A.

Misalnya:

• Fungsi TimeValue mengembalikan 10:15:34 pada 01/01/2023 10:15:34
• Fungsi TimeValue mengembalikan 12:34:18 pada 01/03/2023 12:34:18
• Fungsi TimeValue mengembalikan 8:23:00 pada 01/05/2023 8:23:00

Dan seterusnya.

Catatan : Anda dapat menemukan dokumentasi lengkap fungsi TimeValue di VBA di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

Bagaimana membandingkan tanggal di VBA
Cara memasukkan stempel waktu menggunakan VBA
Cara memformat waktu di VBA