Thursday, December 25, 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