VBA Excel untuk Membuat Tanggal serta 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.
1. Dim exampleDate As Date
MsgBox Year(exampleDate)
Hasil yang akan Anda dapatkan:
2. 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
3. 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
4. Untuk mendapatkan waktu, gunakan fungsi Hour.
MsgBox Hour(Now)
Hasil yang akan Anda dapatkan
5. 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:
6. 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:
Penutup
Terima kasih atas kunjungan anda di LingkaranDunia,
serta membaca artikel yang mengenai Contoh VBA Excel untuk Membuat Tanggal dan Waktu, dan semoga artikel ini bermanfaat buat anda. Jika
ada yang kurang di mengerti silahkan ajukan pertanyaan lewat Email, Facabook LingkaranDunia dan lewat kolom komentar yang kami sediakan di bawah artikel ini.
Daftar Pustaka
- http://amirakostader.blogspot.co.id/
- http://rumuslengkap.com/excel-macro/contoh-vba-excel-untuk-membuat-tanggal-dan-waktu/
- http://blogpanduanmicrosoft.blogspot.co.id/
0 Comments