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 :
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
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
Untuk mendapatkan waktu, gunakan fungsi Hour.
MsgBox Hour(Now)
Hasil yang akan Anda dapatkan
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.
Sebagai contoh, siang (tengah hari menuju sore) akan direpresentasikan sebagai 0,5.
MsgBox TimeValue(“9:20:01 am”)
Hasil yang akan Anda dapatkan:
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:
EmoticonEmoticon