16 0 446 KB
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