Cara menghitung selisih waktu di vba (dengan contoh)

Anda dapat menggunakan sintaks dasar berikut di VBA untuk menghitung selisih antara dua waktu:

 Sub FindTimeDifference()
    
    Dim i As Integer

    For i = 2 To 7
        'calculate time difference in days
        Range(" C " & i) = Range(" B " & i) - Range(" A " & i)
        
        'calculate time difference in hours
        Range(" D " & i) = (Range(" B " & i) - Range(" A " & i)) * 24
        
        'calculate time difference in minutes
        Range(" E " & i) = (Range(" B " & i) - Range(" A " & i)) * 24 * 60
        
        'calculate time difference in seconds
        Range(" F " & i) = (Range(" B " & i) - Range(" A " & i)) * 24 * 60 * 60
    Next i
    
End Sub

Makro khusus ini akan menghitung perbedaan antara waktu terkait dalam rentang A2:A7 dan B2:B7 dan mengembalikan hasil berikut:

• C2:C7 akan berisi perbedaan waktu dalam beberapa hari
• D2:D7 akan berisi perbedaan waktu dalam jam
• E2:E7 akan berisi perbedaan waktu dalam hitungan menit
• F2:F7 akan berisi perbedaan waktu dalam hitungan detik

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Hitung Perbedaan Waktu di VBA

Misalkan kita memiliki dua kolom waktu mulai dan berakhir berikut di Excel:

Kita dapat membuat makro berikut untuk menghitung perbedaan waktu antara setiap waktu mulai dan waktu berakhir dan menampilkan hasilnya di kolom C hingga F:

 Sub FindTimeDifference()
    
    Dim i As Integer

    For i = 2 To 7
        'calculate time difference in days
        Range(" C " & i) = Range(" B " & i) - Range(" A " & i)
        
        'calculate time difference in hours
        Range(" D " & i) = (Range(" B " & i) - Range(" A " & i)) * 24
        
        'calculate time difference in minutes
        Range(" E " & i) = (Range(" B " & i) - Range(" A " & i)) * 24 * 60
        
        'calculate time difference in seconds
        Range(" F " & i) = (Range(" B " & i) - Range(" A " & i)) * 24 * 60 * 60
    Next i
    
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kolom C sampai F menampilkan perbedaan waktu antara waktu mulai dan waktu berakhir dalam satuan yang berbeda.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

Bagaimana membandingkan tanggal di VBA
Cara menghitung hari antara dua tanggal di VBA
Bagaimana mengkonversi string ke tanggal di VBA