Bagaimana membandingkan tanggal di vba (dengan contoh)

Anda dapat menggunakan sintaks dasar berikut di VBA untuk membandingkan dua tanggal:

 SubCompareDates ()
    Dim i As Integer

    For i = 2 To 5
        If CDate(Range(" A " & i)) < CDate(Range(" B " & i)) Then
            Result = " First Date is Earlier "
    Else
        If CDate(Range(" A " & i)) > CDate(Range(" B " & i)) Then
                Result = “ First Date is Later ”
            Else
                Result = " Dates Are Equal "
            End If
        End If
        
    Range(" C " & i) = Result
    
    Next i
End Sub

Contoh khusus ini akan membandingkan tanggal di sel terkait dalam rentang A2:A5 dan B2:B5 dan mengembalikan hasil perbandingan tanggal dalam rentang C2:C5 .

Catatan : Fungsi CDate mengonversi nilai sel tertentu menjadi tanggal.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Bandingkan tanggal di VBA

Misalkan kita memiliki dua kolom berikut dengan tanggal di Excel:

Misalkan kita ingin membandingkan tanggal pada setiap baris yang cocok dan menampilkan hasil perbandingan tanggal pada kolom C.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubCompareDates ()
    Dim i As Integer

    For i = 2 To 5
        If CDate(Range(" A " & i)) < CDate(Range(" B " & i)) Then
            Result = " First Date is Earlier "
    Else
        If CDate(Range(" A " & i)) > CDate(Range(" B " & i)) Then
                Result = “ First Date is Later ”
            Else
                Result = " Dates Are Equal "
            End If
        End If
        
    Range(" C " & i) = Result
    
    Next i
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Hasil perbandingan tanggal kini ditampilkan di kolom C.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara mengurutkan lembar berdasarkan beberapa kolom
VBA: Cara menghitung jumlah baris dalam jangkauan
VBA: cara memfilter kolom