TANGGAL DAN WAKTU

Tanggal dan waktu

 

Pelajari cara bekerja dengan tanggal dan waktu di Excel VBA .

Tempatkan  command button pada lembar kerja Anda dan tambahkan baris kode di bawah ini. Untuk menjalankan baris kode, klik tombol perintah pada lembar.

Tahun, Bulan, Hari Tanggal

Makro berikut mendapatkan tahun dari sebuah tanggal. Untuk mendeklarasikan tanggal, gunakan pernyataan Dim. Untuk menginisialisasi tanggal, gunakan fungsi DateValue.

Kode:

Dim exampleDate As Date

exampleDate = DateValue (“Jan 19, 2020”)

MsgBox Year (exampleDate)

Hasil:

Catatan: Gunakan Bulan dan Hari untuk mendapatkan bulan dan hari dari suatu tanggal.

DateAdd

Untuk menambahkan jumlah hari ke tanggal, gunakan fungsi DateAdd.¬†Fungsi DateAdd memiliki tiga argumen.¬†Isi “d” untuk argumen pertama untuk menambahkan hari.¬†Isi 3 untuk argumen kedua untuk menambahkan 3 hari.¬†Argumen ketiga mewakili tanggal jumlah hari akan ditambahkan.

Kode:

Dim firstDate As Date, secondDate As Date

firstDate = DateValue (“Jan 19, 2020”)
secondDate = DateAdd (“d”, 3, firstDate)

MsgBox secondDate

Hasil:

Catatan: Ubah “d” menjadi “m” untuk menambahkan beberapa bulan pada tanggal.¬†Tempatkan kursor Anda pada DateAdd di Editor Visual Basic dan klik F1 untuk bantuan pada penentu interval lainnya.¬†Tanggal dalam Format AS.¬†Bulan pertama, Hari kedua.¬†Jenis format ini tergantung pada pengaturan regional windows Anda.

Tanggal dan Waktu Saat Ini

Untuk mendapatkan tanggal dan waktu saat ini, gunakan fungsi Sekarang.

Kode:

MsgBox Sekarang

Hasil:

Jam, Menit, Detik

Get the hour of a time, gunakan fungsi Hour.

Kode:

MsgBox Hour (Sekarang)

Hasil:

Catatan: Gunakan Menit dan Detik untuk mendapatkan menit dan detik dari waktu.

Nilai waktu

Fungsi TimeValue mengubah string menjadi nomor seri waktu. Nomor seri waktu adalah angka antara 0 dan 1. Misalnya, tengah hari (tengah hari) direpresentasikan sebagai 0,5.

Kode:

Baca Juga  Cara merubah style kolom di Excel

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

Hasil:

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

Dim y As Double
y = TimeValue (“09:20:01”)
MsgBox y

 

Tinggalkan Komentar

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Need Help? Chat with us