FUNGSI DATE TIME PADA VISUAL BASIC

Fungsi Date Time secara umum merupakan fungsi yang digunakan untuk mengetahui waktu baik jam (Time) maupun tanggal (Date) yang ada pada sistem komputer Anda . Format Outputnya tergantung pada format yang ada pada sistem komputer Anda . Biasanya fungsi Date Time digunakan untuk program yang memerlukan pengolahan waktu semisal : program biling internet, program absensi, program gaji pegawai,dll. Berikut ini saya jabarkan tentang macam-macam fungsi Date Time :

·         Day(Date)
Memberikan Output integer yang berupa tanggal dari data date
Contoh :
Sekarang = #February 20,1990#
Tanggal = Day(Sekarang) ‘Tanggal akan berisi 20

·         Date
Menetapkan tanggal pada Sistem komputer.
Contoh :

Tanggal = #February 20,1990#
Date = Tanggal ‘maka secara otomatis tanggal pada sistem komputer Anda akan menjadi tanggal 20 Februari 1990

·         DateAdd(kode_interval,jumlah_interval,tanggal_lama)
Menambahkan tanggal lama dengan interval yang telah ditentukan. Adapun kode interval tersebut adalah :

Kode	Penjelasan
yyyy	Tahun
q	Per – 3 bulan
m	Bulan
d	Tanggal
ww	Per – 7 har
h	Jam
n	Menit
s	Detik

Contoh :
Waktu = DateAdd(“ww”,2,Now)
‘maka isi dari variable waktu adalah tanggal sekarang (Now) ditambah dengan 2 Minggu atau 14 Hari. 

·         DateDiff(kode_interval,date1,date2[, firstdayofweek[, firstweekofyear]]) )
Mencari selisih tanggal antara date1 dengan date2 .
Contoh :
Selisih =DateDiff(“d”,Now,#January 01,2010)
‘dari listing diatas dapat menghasil kan selisih hari (d) dari sekarang(Now) dengan tanggal 1 Januari 2010. 

·         DateValue(Date As String)
Menampilkan tanggal.
Contoh :
Sekarang=DateValue(“"1990-12-02")
‘maka varian SEKARANG akan berisi 02-12-1990(tergantung format tanggal pada sistem komputer Anda) 

·         Hour(Time) 
menghasilkan integer yang menunjukkan jam dari time
Contoh :
Waktu = #09:32:00#Jam = Hour(Waktu)
‘maka varian JAM akan beri 9

·         Minute(Time) 
menghasilkan integer yang menunjukkan menit dari time
Contoh :
waktu= Waktu = #09:42:00#
Menit = Minute(waktu)
‘maka varian MENIT akan berisi 42

·         Month(Date) 
menghasilkan integer yang menunjukkan bulan dari date
Contoh :
tanggal = #March 20,1990#
Bulan = Month(tanggal)
‘maka varian BULAN akan berisi 3

·         MonthName(Month as long,[Abbreviate as boolean])as string 
menghasilkan string berupa nama bulan dari angka( Month As long ) yang kita tetapkan.
Contoh
Bulan1=MonthName(3,false)
‘maka varian BULAN1 akan berisi March
Bulan2=MonthName(3,True)
‘maka varian BULAN2 akan berisi Mar
Bulan3=MontName(3)
‘maka varian BULAN1 akan berisi March
dengan kata lain jika Abbreviate =True maka penyingkatan String diijinkan 

·         Now 
menghasilkan string berupa tanggal dan jam sekarang.
Contoh :
waktu = Now
‘varian WAKTU akan berisi 13/03/2010 10:45:22

·         Second(Time) 
menghasilkan integer yang menunjukkan detik dari time
Contoh :
Waktu=#05:00:63#
Detik = Second(Waktu)
‘maka varian DETIK akan berisi 63

·         Time 
mencari tahu waktu saat ini atau berfungsi sebagai perintah untuk menetapkan waktu pada sistem komputer Anda.
Contoh :
Waktu = Time
‘varian WAKTU akan berisi 09:00:00 (Tergantung waktu yang sekarang


Waktu=#10:12:20#
Time = Waktu
‘maka secara otomatis saat perintah diatas di execute, waktu pada komputer Anda akan menjadi 10:12:20

·         Timer 
menghitung jumlah detik sejak tengah malam
Contoh :
Detik = Timer
‘varian DETIK akan berisi jumlah detik mulai tengah malam

·         TimeValue(Time As String) 
mengubah string waktu menjadi data waktu yang sesuai dengan format waktu yang sesuai dengan sistem komputer Anda.
Contoh :
semisal sistem waktu dikomputer Anda diatur 12 jam(AM / PM)
waktu = TimeValue(“13:00:00”)
‘varian WAKTU akan berisi 01:00:00 PM 

·         Weekday(Date,[FirstDayOfWeek As VbDayOfWeek=vbSunday]) 
menghasilkan integer yang menunjukkan hari dari tanggal( Date ) yang diinputkan
Contoh :
Hari=Weekday(#13-03-2010#)
‘varian HARI akan berisi 7(Sabtu)
menghasilkan interval jangka hari dari hari( FirstDayOfWeek ) ke tanggal( Date ) yang kita tetapkan
Berikut daftar VbDayOfWeek :

VbDayOfWeek	Nilai	Penjelasan
vbSunday	1	Minggu(Default)
vbMonday	2	Senin
vbTuesday	3	Selasa
vbWednesday	4	Rabu
vbThursday	5	Kamis
vbFriday	6	Jum'at
vbSaturday	7	Sabtu
vbUseSystem	0	NLS API

Contoh :
Hari = Weekday(#13-03-2010#,vbMonday)
‘jumlah hari dari Senin(vbMonday) ke Sabtu(Weekday(#13-03-2010#)) = 6 (Monday, Tuesday, Weednesday, Thursday, Friday, Saturday) => maka varian HARI bernilai 6 

·         WeekdayName(weekday As Long,[Abbreviate As Boolean=False],[FirstDayOfWeek As VbDayOfWeek=vbUseSystemDayOfWeek]) 
menghasilkan string nama hari dalam satu minggu dari nilai(Weekday As Long) yang kita tetapkan.
Contoh :
Hari = WeekdayName(3)
‘jika FirstDayOfWeek tidak diisi maka dianggaphari pertama adalah senin(vbMonday).
maka varian HARI akan berisi Rabu.
Hari=WeekdayName(3,True,vbTuesday)
‘karena FirstDayOfWeek diisi dengan vbTuesday maka program akan menganggap bahwa hari pertama dalam satu minggu ada Tuesday(Selasa) sehingga isi dari varian HARI adalah kamis(Selasa,Rabu,Kamis)