Cara menggunakan fungsi datevalue di vba (dengan contoh)

Anda dapat menggunakan fungsi DateValue di VBA untuk mengembalikan nilai tanggal dari string tertentu.

Berikut cara umum untuk menggunakan fungsi ini dalam praktik:

 Sub GetDateValue()
    
Dim i As Integer

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

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

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Cara menggunakan fungsi DateValue di VBA

Misalkan kita memiliki kolom tanggal/waktu berikut di Excel:

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

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub GetDateValue()
    
Dim i As Integer

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

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

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

Misalnya:

• Fungsi DateValue mengembalikan 01/01/2023 dari 01/01/2023 10:15:34
• Fungsi DateValue kembali pada 03/01/2023 dari 03/01/2023 12:34:18 PM
• Fungsi DateValue mengembalikan 01/05/2023 dari 01/05/2023 8:23:00

Dan seterusnya.

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

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: cara membandingkan tanggal
VBA: Cara mendapatkan nama bulan dari tanggal
VBA: Angka lebih besar dari tanggal