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 | Penjelasan | |
vbSunday | Minggu(Default) | |
vbMonday | Senin | |
vbTuesday | Selasa | |
vbWednesday | Rabu | |
vbThursday | Kamis | |
vbFriday | Jum'at | |
vbSaturday | Sabtu | |
vbUseSystem | 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)
Untuk mendownload Tutorial ini silahkan klik disini
0 komentar:
Posting Komentar
Silahkan tuliskan komentar Anda mengenai tutorial ini disini. Terima Kasih