Cara menggunakan fungsi dateserial di vba (dengan contoh)

Anda dapat menggunakan fungsi DateSerial di VBA untuk mengembalikan tanggal pada hari, bulan, dan tahun tertentu.

Berikut cara umum untuk menggunakan fungsi ini dalam praktik:

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

Makro khusus ini akan mengembalikan nilai tanggal pada rentang D2:D13 menggunakan nilai tahun di kolom C, nilai bulan di kolom B, dan nilai hari di kolom A.

Contoh berikut menunjukkan cara menggunakan fungsi DateSerial dalam praktiknya.

Contoh: Cara menggunakan fungsi DateSerial di VBA

Misalkan kita memiliki kolom berikut di Excel yang menampilkan hari, bulan dan tahun untuk tanggal berbeda:

Misalkan kita ingin menampilkan nilai tanggal pada kolom D, menggunakan nilai hari, bulan, dan tahun pada setiap barisnya.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kolom D menampilkan nilai tanggal yang dihasilkan dari penggunaan nilai hari, bulan, dan tahun masing-masing dari kolom A, B, dan C.

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

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

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