VBA - Date and Time [PDF]

Citation preview

VBA – DATE AND TIME



VBA - Fungsi Tanggal Fungsi Tanggal (Date)



Fungsi mengembalikan tanggal sistem saat ini.



Sintaksis date()



Contoh Tambahkan tombol dan tambahkan fungsi berikut.



Private Sub Constant_demo_Click() Dim a as Variant a = date() msgbox "The Value of a : " & a End Sub Ketika Anda menjalankan fungsi, ia menghasilkan output berikut.



The Value of a : 19/07/2014



VBA - Fungsi Cdate Fungsi mengkonversi tanggal dan waktu ekspresi yang valid untuk mengetikkan tanggal.



Sintaksis cdate(date)



Contoh Tambahkan tombol dan tambahkan fungsi berikut.



Private Sub Constant_demo_Click() Dim a as Variant Dim b as Variant



a = cdate("Jan 01 2020") msgbox("The Value of a : " & a)



b = cdate("31 Dec 2050") msgbox("The Value of b : " & b) End Sub Ketika Anda menjalankan fungsi, ia menghasilkan output berikut.



The Value of a : 1/01/2020 The Value of b : 31/12/2050



VBA - Fungsi DateAdd A Function, yang mengembalikan tanggal untuk interval waktu tertentu yang telah ditambahkan.



Sintaksis DateAdd(interval,number,date)



Deskripsi Parameter 



Interval -



Parameter



yang



diperlukan. Ini



dapat



diperlukan. Ini



dapat



mengambil nilai-nilai berikut.







o



d - hari dalam setahun



o



m - bulan dalam setahun



o



y - tahun sepanjang tahun



o



yyyy - tahun



o



w - hari kerja



o



ww - minggu



o



q - seperempat



o



h - jam



o



m - menit



o



s - detik



Angka -



Parameter



yang



mengambil parameter positif dan negatif. 



Tanggal - Parameter yang diperlukan. Varian atau literal yang mewakili tanggal ketika suatu interval ditambahkan.



Contoh Private Sub Constant_demo_Click() ' Positive Interal



date1 = 01-Jan-2013 msgbox("Line 1 : " &DateAdd("yyyy",1,date1)) msgbox("Line 2 : " &DateAdd("q",1,date1)) msgbox("Line 3 : " &DateAdd("m",1,date1)) msgbox("Line 4 : " &DateAdd("y",1,date1)) msgbox("Line 5 : " &DateAdd("d",1,date1)) msgbox("Line 6 : " &DateAdd("w",1,date1)) msgbox("Line 7 : " &DateAdd("ww",1,date1)) msgbox("Line 8 : " &DateAdd("h",1,"01-Jan-2013 12:00:00")) msgbox("Line 9 : " &DateAdd("n",1,"01-Jan-2013 12:00:00")) msgbox("Line 10 : "&DateAdd("s",1,"01-Jan-2013 12:00:00"))



' Negative Interval msgbox("Line 11 : " &DateAdd("yyyy",-1,date1)) msgbox("Line 12 : " &DateAdd("q",-1,date1)) msgbox("Line 13 : " &DateAdd("m",-1,date1)) msgbox("Line 14 : " &DateAdd("y",-1,date1)) msgbox("Line 15 : " &DateAdd("d",-1,date1)) msgbox("Line 16 : " &DateAdd("w",-1,date1))



msgbox("Line 17 : " &DateAdd("ww",-1,date1)) msgbox("Line 18 : " &DateAdd("h",-1,"01-Jan-2013 12:00:00")) msgbox("Line 19 : " &DateAdd("n",-1,"01-Jan-2013 12:00:00")) msgbox("Line 20 : " &DateAdd("s",-1,"01-Jan-2013 12:00:00")) End Sub Ketika Anda menjalankan fungsi di atas, menghasilkan output berikut.



Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line Line



1 : 27/06/1895 2 : 27/09/1894 3 : 27/07/1894 4 : 28/06/1894 5 : 28/06/1894 6 : 28/06/1894 7 : 4/07/1894 8 : 1/01/2013 1:00:00 PM 9 : 1/01/2013 12:01:00 PM 10 : 1/01/2013 12:00:01 PM 11 : 27/06/1893 12 : 27/03/1894 13 : 27/05/1894 14 : 26/06/1894 15 : 26/06/1894 16 : 26/06/1894 17 : 20/06/1894 18 : 1/01/2013 11:00:00 AM 19 : 1/01/2013 11:59:00 AM 20 : 1/01/2013 11:59:59 AM



VBA - Fungsi DateDiff



A Function, yang mengembalikan perbedaan antara dua interval waktu yang ditentukan.



Sintaksis DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])



Deskripsi Parameter 



Interval -



Parameter



yang



diperlukan. Ini



dapat



mengambil nilai-nilai berikut. o



d - hari dalam setahun



o



m - bulan dalam setahun



o



y - tahun sepanjang tahun



o



yyyy - tahun



o



w - hari kerja



o



ww - minggu



o



q - seperempat



o



h - jam



o



m - menit



o



s - detik







Date1 dan Date2 - Diperlukan parameter.







Firstdayofweek - Parameter opsional. Menentukan hari pertama dalam seminggu. Ini dapat mengambil nilai-nilai berikut.



o



0



=



vbUseSystemDayOfWeek



pengaturan



API



Bahasa



-



Gunakan



Nasional



Dukungan



(NLS)







o



1 = vbSunday - Minggu



o



2 = vbMonday - Senin



o



3 = vbTuesday - Selasa



o



4 = vbWednesday - Rabu



o



5 = vbThursday - Kamis



o



6 = vbFriday - Jumat



o



7 = vbSaturday - Sabtu



Firstdayofyear -



Parameter



opsional. Menentukan



hari pertama tahun ini. Ini dapat mengambil nilai-nilai berikut. o



0 = vbUseSystem - Gunakan pengaturan API Bahasa Nasional Dukungan (NLS)



o



1 = vbFirstJan1 - Mulai dengan minggu di mana 1 Januari terjadi (default)



o



2 = vbFirstFourDays - Mulailah dengan minggu yang memiliki setidaknya empat hari di tahun baru



o



3 = vbFirstFullWeek - Mulailah dengan minggu penuh pertama di tahun baru



Contoh Tambahkan tombol dan tambahkan fungsi berikut.



Private Sub Constant_demo_Click() Dim fromDate as Variant fromDate = "01-Jan-09 00:00:00"



Dim toDate as Variant toDate = "01-Jan-10 23:59:00"



msgbox("Line 1 : " &DateDiff("yyyy",fromDate,toDate)) msgbox("Line 2 : " &DateDiff("q",fromDate,toDate)) msgbox("Line 3 : " &DateDiff("m",fromDate,toDate)) msgbox("Line 4 : " &DateDiff("y",fromDate,toDate)) msgbox("Line 5 : " &DateDiff("d",fromDate,toDate)) msgbox("Line 6 : " &DateDiff("w",fromDate,toDate)) msgbox("Line 7 : " &DateDiff("ww",fromDate,toDate)) msgbox("Line 8 : " &DateDiff("h",fromDate,toDate)) msgbox("Line 9 : " &DateDiff("n",fromDate,toDate)) msgbox("Line 10 : "&DateDiff("s",fromDate,toDate)) End Sub Ketika Anda menjalankan fungsi di atas, menghasilkan output berikut.



Line Line Line Line Line Line Line Line Line Line



1 : 1 2 : 4 3 : 12 4 : 365 5 : 365 6 : 52 7 : 52 8 : 8783 9 : 527039 10 : 31622340



VBA - Fungsi DatePart A Function, yang mengembalikan bagian spesifik dari tanggal yang ditentukan.



Sintaksis DatePart(interval,date[,firstdayofweek[,firstweekofyear]])



Deskripsi Parameter 



Interval -



Parameter



yang



mengambil nilai-nilai berikut. o



d - hari dalam setahun.



o



m - bulan dalam setahun



o



y - tahun sepanjang tahun



o



yyyy - tahun



o



w - hari kerja



o



ww - minggu



o



q - seperempat



o



h - jam



diperlukan. Ini



dapat



o



n - menit



o



s - detik







Date1 - Parameter yang diperlukan.







Firstdayofweek - Parameter opsional. Menentukan hari pertama dalam seminggu. Ini dapat mengambil nilai-nilai berikut. o



0



=



vbUseSystemDayOfWeek



pengaturan



API



Bahasa



-



Gunakan



Nasional



Dukungan



(NLS)







o



1 = vbSunday - Minggu



o



2 = vbMonday - Senin



o



3 = vbTuesday - Selasa



o



4 = vbWednesday - Rabu



o



5 = vbThursday - Kamis



o



6 = vbFriday - Jumat



o



7 = vbSaturday - Sabtu



Firstdayofyear -



Parameter



opsional. Menentukan



hari pertama tahun ini. Ini dapat mengambil nilai-nilai berikut. o



0 = vbUseSystem - Gunakan pengaturan API Bahasa Nasional Dukungan (NLS)



o



1 = vbFirstJan1 - Mulai dengan minggu di mana 1 Januari terjadi (default)



o



2 = vbFirstFourDays - Mulailah dengan minggu yang memiliki setidaknya empat hari di tahun baru



o



3 = vbFirstFullWeek - Mulailah dengan minggu penuh pertama di tahun baru



Contoh Tambahkan tombol dan tambahkan fungsi berikut.



Private Sub Constant_demo_Click() Dim Quarter as Variant Dim DayOfYear as Variant Dim WeekOfYear as Variant



Date1 = "2013-01-15" Quarter



= DatePart("q", Date1)



msgbox("Line 1 : " & Quarter) DayOfYear



= DatePart("y", Date1)



msgbox("Line 2 : " & DayOfYear) WeekOfYear = DatePart("ww", Date1)



msgbox("Line 3 : " & WeekOfYear)



msgbox("Line 4 : " & DatePart("m",Date1)) End Sub Ketika Anda menjalankan fungsi di atas, menghasilkan output berikut.



Line Line Line Line



1 2 3 4



: : : :



1 15 3 1



VBA - Fungsi DateSerial A Function, yang mengembalikan tanggal untuk parameter hari, bulan, dan tahun yang ditentukan.



Sintaksis DateSerial(year,month,day)



Deskripsi Parameter 



Tahun - Parameter yang diperlukan. Angka antara 100 dan 9999 atau ekspresi numerik. Nilai antara 0 dan 99 ditafsirkan sebagai tahun 1900 hingga 1999. Untuk semua argumen tahun lainnya, gunakan tahun empat digit lengkap.







Bulan - Parameter yang diperlukan. Bisa juga dalam bentuk ekspresi, yang berkisar antara 1 hingga 12.







Hari - Parameter yang diperlukan. Bisa juga dalam bentuk ekspresi, yang berkisar antara 1 hingga 31.



Contoh Tambahkan tombol dan tambahkan fungsi berikut.



Private Sub Constant_demo_Click() msgbox(DateSerial(2013,5,10)) End Sub Ketika Anda menjalankan fungsi di atas, menghasilkan output berikut.



10/05/2014



VBA - Format Fungsi DateTime A Function, yang membantu pengembang untuk memformat dan mengembalikan tanggal dan waktu ekspresi yang valid.



Sintaksis FormatDateTime(date,format)



Deskripsi Parameter 



Tanggal - Parameter yang diperlukan.







Format - Parameter opsional. Nilai yang menentukan tanggal atau format waktu yang akan digunakan. Ini dapat mengambil nilai-nilai berikut. o



0 = vbGeneralDate - Default



o



1 = vbLongDate - Mengembalikan tanggal



o



2 = vbShortDate - Mengembalikan tanggal



o



3 = vbLongTime - Mengembalikan waktu



o



4 = vbShortTime - Mengembalikan waktu



Contoh Tambahkan tombol dan tambahkan fungsi berikut.



Private Sub Constant_demo_Click() d = ("2013-08-15 20:25") msgbox("Line 1 : " & FormatDateTime(d)) msgbox("Line 2 : " & FormatDateTime(d,1)) msgbox("Line 3 : " & FormatDateTime(d,2)) msgbox("Line 4 : " & FormatDateTime(d,3)) msgbox("Line 5 : " & FormatDateTime(d,4)) End Sub Ketika Anda menjalankan fungsi di atas, menghasilkan output berikut.



Line Line Line Line Line



1 2 3 4 5



: : : : :



15/08/2013 8:25:00 PM Thursday, 15 August 2013 15/08/2013 8:25:00 PM 20:25



VBA - Fungsi IsDate A Function, yang mengembalikan nilai Boolean apakah input yang diberikan adalah tanggal atau tidak.



Sintaksis IsDate(expression)



Contoh Tambahkan tombol dan tambahkan fungsi berikut.



Private Sub Constant_demo_Click() msgbox("Line 1 : " & IsDate("Nov 03, 1950")) msgbox("Line 2 : " & IsDate(#01/31/20#)) msgbox("Line 3 : " & IsDate(#05/31/20 10:30 PM#)) End Sub Ketika Anda menjalankan fungsi di atas, menghasilkan output berikut.



Line 1 : True Line 2 : True Line 3 : True



VBA - Fungsi Hari Fungsi Hari mengembalikan angka antara 1 dan 31 yang mewakili hari dari tanggal yang ditentukan.



Sintaksis Day(date)



Contoh Tambahkan tombol dan tambahkan fungsi berikut.



Private Sub Constant_demo_Click() msgbox(Day("2013-06-30")) End Sub Ketika Anda menjalankan fungsi di atas, menghasilkan output berikut.



30



VBA - Fungsi Bulan Fungsi Bulan mengembalikan angka antara 1 dan 12 yang mewakili bulan dari tanggal yang ditentukan.



Sintaksis Month(date)



Contoh Tambahkan tombol dan tambahkan fungsi berikut.



Private Sub Constant_demo_Click() msgbox(Month("2013-06-30")) End Sub Ketika Anda menjalankan fungsi di atas, menghasilkan output berikut.



6



VBA - Fungsi Tahun Fungsi Tahun mengembalikan sebuah integer yang mewakili satu tahun dari tanggal yang ditentukan.



Sintaksis Year(date)



Contoh Tambahkan tombol dan tambahkan fungsi berikut.



Private Sub Constant_demo_Click()



msgbox(Year("2013-06-30")) End sub Ketika Anda menjalankan fungsi di atas, menghasilkan output berikut.



2013



VBA - Nama Bulan Fungsi MonthName mengembalikan nama bulan untuk tanggal yang ditentukan.



Sintaksis MonthName(month[,toabbreviate])



Deskripsi Parameter 



Bulan - Parameter yang diperlukan. Ini menentukan jumlah bulan.







Toabbreviate yang



Parameter



menunjukkan



jika



opsional. Nilai nama



bulan



Boolean harus



disingkat. Jika dibiarkan kosong, nilai default akan dianggap False. Contoh Tambahkan tombol dan tambahkan fungsi berikut.



Private Sub Constant_demo_Click() msgbox("Line 1 : " & MonthName(01,True)) msgbox("Line 2 : " & MonthName(01,false)) msgbox("Line 3 : " & MonthName(07,True))



msgbox("Line 4 : " & MonthName(07,false)) End Sub Ketika Anda menjalankan fungsi di atas, menghasilkan output berikut.



Line Line Line Line



1 2 3 4



: : : :



Jan January Jul July



VBA - WeekDay ngsi WeekDay mengembalikan bilangan bulat dari 1 hingga 7 yang mewakili hari dalam seminggu untuk tanggal yang ditentukan.



Sintaksis Weekday(date[,firstdayofweek])



Deskripsi Parameter 



Tanggal -



Parameter yang diperlukan. Hari



kerja



akan mengembalikan tanggal yang ditentukan. 



Firstdayofweek - Parameter opsional. Menentukan hari pertama dalam seminggu. Ini dapat mengambil nilai-nilai berikut. o



0



=



vbUseSystemDayOfWeek



pengaturan



API



Bahasa



(NLS) o



1 = vbSunday - Minggu



o



2 = vbMonday - Senin



-



Gunakan



Nasional



Dukungan



o



3 = vbTuesday - Selasa



o



4 = vbWednesday - Rabu



o



5 = vbThursday - Kamis



o



6 = vbFriday - Jumat



o



7 = vbSaturday - Sabtu



Contoh Tambahkan tombol dan tambahkan fungsi berikut.



Private Sub Constant_demo_Click() msgbox("Line 1: " & Weekday("2013-05-16",1)) msgbox("Line 2: " & Weekday("2013-05-16",2)) msgbox("Line 3: " & Weekday("2013-05-16",2)) msgbox("Line 4: " & Weekday("2010-02-16")) msgbox("Line 5: " & Weekday("2010-02-17")) msgbox("Line 6: " & Weekday("2010-02-18")) End Sub Ketika Anda menjalankan fungsi di atas, menghasilkan output berikut.



Line Line Line Line Line Line



1: 2: 3: 4: 5: 6:



5 4 4 3 4 5



VBA - Nama WeekDay



Fungsi WeekDayName mengembalikan nama hari kerja untuk hari yang ditentukan.



Sintaksis WeekdayName(weekday[,abbreviate[,firstdayofweek]])



Deskripsi Parameter 



Hari kerja - Parameter yang diperlukan. Jumlah hari kerja.







Toabbreviate yang



Parameter



menunjukkan



opsional. Nilai



jika



nama



Boolean



bulan



harus



disingkat. Jika dibiarkan kosong, nilai default akan dianggap False. 



Firstdayofweek - Parameter opsional. Menentukan hari pertama dalam seminggu. o



0



=



vbUseSystemDayOfWeek



pengaturan



API



Bahasa



(NLS) o



1 = vbSunday - Minggu



o



2 = vbMonday - Senin



o



3 = vbTuesday - Selasa



o



4 = vbWednesday - Rabu



o



5 = vbThursday - Kamis



o



6 = vbFriday - Jumat



o



7 = vbSaturday - Sabtu



-



Gunakan



Nasional



Dukungan



Contoh Tambahkan tombol dan tambahkan fungsi berikut.



Private Sub Constant_demo_Click() msgbox("Line 1 : " &WeekdayName(3)) msgbox("Line 2 : " &WeekdayName(2,True)) msgbox("Line 3 : " &WeekdayName(1,False)) msgbox("Line 4 : " &WeekdayName(2,True,0)) msgbox("Line 5 : " &WeekdayName(1,False,1)) End Sub Ketika Anda menjalankan fungsi di atas, menghasilkan output berikut.



Line Line Line Line Line



1 2 3 4 5



: : : : :



Tuesday Mon Sunday Tue Sunday



Fungsi Waktu (Time)



VBA – Fungsi Sekarang (Now) Fungsi Sekarang mengembalikan tanggal dan waktu sistem saat ini.



Sintaksis Now()



Contoh Tambahkan tombol dan tambahkan fungsi berikut.



Private Sub Constant_demo_Click()



Dim a as Variant a = Now() msgbox("The Value of a : " & a) End Sub Ketika Anda menjalankan fungsi di atas, menghasilkan output berikut.



The Value of a : 19/07/2013 3:04:09 PM



VBA - Fungsi Jam (Hour) Fungsi Jam mengembalikan angka antara 0 dan 23 yang mewakili jam hari untuk stempel waktu yang ditentukan.



Sintaksis Hour(time)



Contoh Tambahkan tombol dan tambahkan fungsi berikut.



Private Sub Constant_demo_Click() msgbox("Line 1: " & Hour("3:13:45 PM")) msgbox("Line 2: " & Hour("23:13:45")) msgbox("Line 3: " & Hour("2:20 PM")) End Sub Ketika Anda menjalankan fungsi di atas, menghasilkan output berikut.



Line 1: 15 Line 2: 23



Line 3: 14



VBA - Fungsi Menit (Minute)



Fungsi Menit mengembalikan angka antara 0 dan 59 yang mewakili menit dari jam untuk stempel waktu yang ditentukan.



Sintaksis Minute(time)



Contoh Tambahkan tombol dan tambahkan fungsi berikut.



Private Sub Constant_demo_Click() msgbox("Line 1: " & Minute("3:13:45 PM")) msgbox("Line 2: " & Minute("23:43:45")) msgbox("Line 3: " & Minute("2:20 PM")) End Sub Ketika Anda menjalankan fungsi di atas, menghasilkan output berikut.



Line 1: 13 Line 2: 43 Line 3: 20



VBA - Fungsi Kedua Fungsi Kedua menghasilkan angka antara 0 dan 59 yang mewakili detik dari jam untuk stempel waktu yang ditentukan.



Sintaksis Second(time)



Contoh Tambahkan tombol dan tambahkan fungsi berikut.



Private Sub Constant_demo_Click() msgbox("Line 1: " & Second("3:13:25 PM")) msgbox("Line 2: " & Second("23:13:45")) msgbox("Line 3: " & Second("2:20 PM")) End Sub Ketika Anda menjalankan fungsi di atas, menghasilkan output berikut.



Line 1: 25 Line 2: 45 Line 3: 0



VBA - Fungsi Waktu Fungsi Waktu mengembalikan waktu sistem saat ini.



Sintaksis Time()



Contoh Private Sub Constant_demo_Click() msgbox("Line 1: " & Time()) End Sub



Ketika Anda menjalankan fungsi di atas, menghasilkan output berikut.



Line 1: 3:29:15 PM



VBA - Fungsi Pengatur Waktu Fungsi Timer mengembalikan jumlah detik dan milidetik sejak jam 12:00 AM.



Sintaksis Timer()



Contoh Tambahkan tombol dan tambahkan fungsi berikut.



Private Sub Constant_demo_Click() msgbox("Time is : " & Now()) msgbox("Timer is: " & Timer()) End Sub Ketika Anda menjalankan fungsi di atas, menghasilkan output berikut.



Time is : 19/07/2013 3:45:53 PM Timer is: 56753.4



VBA - Fungsi Serial Waktu Fungsi TimeSerial mengembalikan waktu untuk nilai jam, menit, dan detik yang ditentukan.



Sintaksis TimeSerial(hour,minute,second)



Deskripsi Parameter 



Jam - Parameter yang diperlukan, yang merupakan bilangan bulat antara 0 dan 23 atau ekspresi numerik apa pun.







Menit - Parameter yang diperlukan, yang merupakan bilangan bulat antara 0 hingga 59 atau setiap ekspresi numerik.







Kedua - Parameter yang diperlukan, yang merupakan bilangan bulat antara 0 hingga 59 atau setiap ekspresi numerik.



Contoh Tambahkan tombol dan tambahkan fungsi berikut.



Private Sub Constant_demo_Click() msgbox(TimeSerial(20,1,2)) msgbox(TimeSerial(0,59,59)) msgbox(TimeSerial(7*2,60/3,15+3)) End Sub Ketika Anda menjalankan fungsi di atas, menghasilkan output berikut.



8:01:02 PM 12:59:59 AM 2:20:18 PM



VBA - Nilai Waktu Fungsi Fungsi TimeValue mengubah string input yang diberikan ke waktu yang valid.



Sintaksis TimeValue(StringTime)



Contoh Tambahkan tombol dan tambahkan fungsi berikut.



Private Sub Constant_demo_Click() msgbox(TimeValue("20:30")) msgbox(TimeValue("5:15")) msgbox(TimeValue("2:30:58")) End Sub Ketika Anda menjalankan fungsi di atas, menghasilkan output berikut.



8:30:00 PM 5:15:00 AM 2:30:58 AM