Contoh VBA Excel untuk Membuat Tanggal dan Waktu

Contoh VBA Excel kali ini akan sedikit mengajak kita bersenang-senang, karena pada ulasan kali ini kita akan belajar bagaimana memasukkan tanggal dan waktu menggunakan script di VBA. VBScript tentang tanggal dan waktu ini membantu para pengembang untuk mengubah tanggal dan waktu dari satu format ke format yang lain atau untuk mengungkapkan tanggal atau waktu yang sesuai dengan kondisi tertentu. Penasaran bagaimana cara membuatnya? ikuti prosedur berikut.

Masukkan barisan kode di bawah ini pada worksheet Anda dan eksekusi kodenya. Untuk mengeksekusi baris kode, klik tombol command button pada sheet Anda. Makro berikut ini akan memberikan tahun dan tanggal. Untuk mendeklarasikan tanggal, gunakan pernyataan Dim. Untuk menginisialisasi tanggal, gunakan fungsi datevalue.

Dim exampleDate As Date

exampleDate = DateValue(“Jun 19, 2010”)

MsgBox Year(exampleDate)

Hasil yang akan Anda dapatkan:

Contoh VBA Excel untuk Membuat Tanggal dan Waktu

Untuk menambahkan hari dan tanggal, gunakan fungsi DateAdd. Fungsi DateAdd memiliki tiga argumen. Isi ā€œdā€ untuk menambahkan hari. Isi 3 untuk argumen kedua untuk menambah 3 hari. Argumen ketiga merupakan tanggal dimana jumlah hari akan ditambah.

Dim firstDate As Date, secondDate As Date

firstDate = DateValue(“Jun 19, 2010”)

secondDate = DateAdd(“d”, 3, firstDate)

MsgBox secondDate

Contoh VBA Excel untuk Membuat Tanggal dan Waktu

Ubah “d” untuk “m” untuk menambahkan bulan ke tanggal. Tempatkan kursor pada DateAdd di Visual Basic Editor dan klik F1 untuk bantuan pada penentu interval lain. Anda bisa menggunakan format tanggal sesuai dengan keinginan Anda, apakah ingin menggunakan format Indonesia, Amerika, atau Jepang. Jenis format tergantung pada jendela Anda pengaturan waktu regional pada desktop Anda.

Untuk mendapatkan tanggal dan waktu, gunakan fungsi Now.

MsgBox Now

Hasil contoh VBA excel yang akan Anda dapatkan

Contoh VBA Excel untuk Membuat Tanggal dan Waktu

Untuk mendapatkan waktu, gunakan fungsi Hour.

MsgBox Hour(Now)

Hasil yang akan Anda dapatkan

Contoh VBA Excel untuk Membuat Tanggal dan Waktu

Fungsi TimeValue akan mengkonversi string ke nomor seri waktu. Nomor seri waktu adalah angka antara 0 dan 1. Sebagai contoh, siang (tengah hari menuju sore) akan direpresentasikan sebagai 0,5.

MsgBox TimeValue(“9:20:01 am”)

Hasil yang akan Anda dapatkan:

Contoh VBA Excel untuk Membuat Tanggal dan Waktu

Sekarang, untuk melihat dengan jelas bahwa Excel menangani waktu secara internal sebagai angka antara 0 dan 1, tambahkan baris kode berikut:

Dim y As Double

y = TimeValue(“09:20:01”)

MsgBox y

Hasil yang akan Anda dapatkan:

Contoh VBA Excel untuk Membuat Tanggal dan Waktu

One Comment

Add a Comment

Your email address will not be published. Required fields are marked *

* Copy This Password *

* Type Or Paste Password Here *