Search This Blog

Friday, December 26, 2014

Excel VBA Macro, Using Date and Time, DateAdd

Tutorial Excel VBA belajar menggunakan Date and Time




Melalui module di VBE ketik script berikut

Code:

'Deklarasi variable Date dengan Dim
Dim exampleDate As Date 



'Variable diisi dengan function untuk mengambil nilai dari data tgl
exampleDate = DateValue("Jun 19, 2010")

'Test dengan melihat hasilnya di Msgbox
MsgBox Year(exampleDate)



Note: Gunakan Month dan Day untuk ambil nilai bulan dan hrii


DateAdd

Digunakan untuk mendapatkan perpanjangan hari dari tanggal yang ditentukan

Code:
'deklarasi variable
Dim firstDate As Date, secondDate As Date'Isi variable
firstDate = DateValue("Jun 19, 2010")
secondDate = DateAdd("d", 3, firstDate)
'test dengan msgbox
MsgBox secondDate



Note: Ganti d" ke  "m" untuk perpanjangan bulan dari tanggal ditentukan


current date and time, gunakan Now function.


Code:
MsgBox Now



Current Date Time
Hour, Minute, Second


Mendapatkan Jam(Hour), Gunakan Hour function.


Code:
MsgBox Hour(Now)



Time value untuk convert string ke Jam


Code:

MsgBox TimeValue("9:20:01 am")


TimeValue


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

No comments:

Post a Comment