VB6: Fungsi Date & Time

1. Tanggal & Waktu Saat Ini
Untuk mendapatkan nilai waktu dan tanggal saat ini dengan cara sebagai berikut:
'Menampilkan waktu sekarang
Print Time             '12:53:12 PM

'Menampilkan tanggal sekarang
Print Date             '04-09-2012

'Displays current date,time
Print Now              '04-09-2012  12:53:12 PM


2. Tanggal/Waktu sebagai Variable
Kita dapat menyimpan nilai tanggal dan waktu dalam variable dengan tipe data Date.
Berikut adalah cara menyimpan nilai dalam variable yang diambil dari method.
Dim d As Date
d = Now
Print d

Kita juga dapat menentukan sendiri tanggal yang ingin kita masukan ke variable.
Dim d As Date
d = CDate("2011-11-24")
Print d


3. DateAdd
Fungsi ini untuk mengembalikan nilai tanggal yang sudah ditambahkan dengan interval tertentu.
Sintaks:
DateAdd(interval, number, date)

Berikut ini penjelasan dari sintaks diatas:

Bagian	Keterangan
interval	Wajib ada. Bentuk ekspresi string yang mewakili interval apa yang ingin ditambahkan. Ekspresi string ini bisa berupa: - "yyyy" -> tahun - "q" -> perempat tahun (3 bulan) - "m" -> bulan - "y" -> hari dalam tahun - "d" -> waktu - "w" -> Weekday (skip weekend) - "ww" -> minggu - "h" -> Jam - "n" -> menit - "s" -> detik
number	Wajib ada. Jumlah yang ingin ditambahkan dengan satuan interval.
date	Wajib ada. Nilai tanggal yang ingin ditambahkan.

Contoh:
Print Now
Print "Using 'q':"; Tab(20); DateAdd("q", 3, Now)
Print "Using 'm':"; Tab(20); DateAdd("m", 3, Now)
Print "Using 'y':"; Tab(20); DateAdd("y", 3, Now)
Print "Using 'd':"; Tab(20); DateAdd("d", 3, Now)
Print "Using 'w':"; Tab(20); DateAdd("w", 3, Now)
Print "Using 'ww':"; Tab(20); DateAdd("ww", 3, Now)
Print "Using 'h':"; Tab(20); DateAdd("h", 3, Now)
Print "Using 'n':"; Tab(20); DateAdd("n", 3, Now)
Print "Using 's':"; Tab(20); DateAdd("s", 3, Now)

Catatan : untuk number bisa menggunakan angka negative sebagai pengurang.

4. DateDiff
Fungsi DateDiff mengembalikan nilai long integer yang mengindikasikan interval antara dua tanggal yang berbeda.
Sintaks:
DateDiff(interval,date1,date2[,firstdayofweek[,firstweekofyear]])

Berikut ini penjelasan dari sintaks diatas:

Bagian	Keterangan
interval	Wajib ada. Ekspresi string yang digunakan sebagai satuan interval perbedaan dua tanggal/waktu. Ekspresi yang dapat digunakan adalah sebagai berikut: - "yyyy" -> tahun - "q" -> perempat tahun (3 bulan) - "m" -> bulan - "y" -> hari dalam tahun - "d" -> waktu - "w" -> Weekday (skip weekend) - "ww" -> minggu - "h" -> Jam - "n" -> menit - "s" -> detik
date1, date2	Wajib ada; Date. The two dates you want to use in the calculation
firstdayofweek	Boleh kosong. Sebuah konstanta untuk menemukan hari pertama dalam minggu, jika kosong maka dianggap minggu adalah hari pertama.
firstweekofyear	Boleh kosong. Minggu pertama dari tahun jika kosong maka dianggap 1 januari adalah minggu pertama.

Contoh:
Print "Using 'yyyy':"; Tab(20); DateDiff("yyyy", #1/1/2001#, Now)
Print "Using 'q':"; Tab(20); DateDiff("q", #1/1/2001#, Now)
Print "Using 'm':"; Tab(20); DateDiff("m", #1/1/2001#, Now)
Print "Using 'y':"; Tab(20); DateDiff("y", #1/1/2001#, Now)
Print "Using 'd':"; Tab(20); DateDiff("d", #1/1/2001#, Now)
Print "Using 'w':"; Tab(20); DateDiff("w", #1/1/2001#, Now)
Print "Using 'ww':"; Tab(20); DateDiff("ww", #1/1/2001#, Now)
Print "Using 'h':"; Tab(20); DateDiff("h", #1/1/2001#, Now)
Print "Using 'n':"; Tab(20); DateDiff("n", #1/1/2001#, Now)
Print "Using 's':"; Tab(20); DateDiff("s", #1/1/2001#, Now)


Click here if you like this article.