12 July 2014

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:

BagianKeterangan
intervalWajib 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
numberWajib ada. Jumlah yang ingin ditambahkan dengan satuan interval.
dateWajib 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:
BagianKeterangan
intervalWajib 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, date2Wajib ada; Date. The two dates you want to use in the calculation
firstdayofweekBoleh kosong. Sebuah konstanta untuk menemukan hari pertama dalam minggu, jika kosong maka dianggap minggu adalah hari pertama.
firstweekofyearBoleh 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.


4 comments:

Panji Abdi said...

mbak , mau nanya mbak. jika datediff nya menghitung antara selisih waktu dari jam 23:00 ke jam 07:00 hasilnya menjadi negatif mbak, sedangkan jam 07:00 ke jam 23:00 hasilnya positif mbak. apa yang harus saya lakukan pada datediff yang jam 23:00 ke jam 07:00 agar hasil selisih nya tidak menjadi negatif., apakah saya harus menggunakan perulangan? jika hasil datediffnya itu ditambah 1 hari itu seperti apa yah mbak ?

rani irsan said...

DateDiff("h", "07:00", "23:00") hasil nya positif
DateDiff("h", "23:00", "07:00") hasil nya negatif
karena tidak ditulis tanggal lengkap maka dianggap 1 hari yang sama
silahkan bedakan hasil nya dengan ini:
DateDiff("h", "2015-01-01 23:00", "2015-01-02 07:00")

Panji Abdi said...

iyah mbak, sudah dapat mbak.. makasi yah.,


o yah mbak, ada yang minta ni buat aplikasi absensi menggunakan finger print tipe U are U 4500. mbak ada gak masukan referensi ttg program aplikasi absensi yang menggunakan u are u 4500 mbak? kalau kita mau buat menggunakan vb.net dan SQL Server berarti kita buat dulu program nya baru sesuaikan dengan finger print nya mbak?

aris zunianto said...

pagi, saya mau buat setiap tgl 1 setiap bln maka otomatis akan menambahkan stok, nha tu bagaimana ya supaya saya bisa mengambil tanggal saat ini di komputer jika tgl 1 maka tabel stok akan bertambah 1??