Bila Anda membutuhkan kode untuk Menghitung Selisih Tanggal di vb yaitu, antar 2 data Tanggal baik secara hari, bulan, atau tahun, berikut contohnya :
Fungsi : DateDiff( Jenis Interval, Tanggal Pertama, Tanggal Kedua )
| Jenis Interval | Keterangan |
|---|---|
| d | Day (Hari) |
| m | Month (Bulan) |
| yyyy | Year (Tahun) |
| h | Hour (Jam) |
| n | Minute (Menit) |
| s | Second (Detik) |
| ww | Week (Minggu) |
| q | Quater (4 Bulan) |
Misalnya Anda ingin menghitung selisih hari antara tanggal 15 Jan 2012 (ditulis #1/15/2012#) dan 20 Jan 2012, yang berarti akan menggunakan jenis interval "d".
t = DateDiff("d", #1/15/2012#, #1/20/2012#) , hasilnya 5
Jika Tanggal didapat dari kontrol semisal DateTimePicker, maka kodenya :
t = DateDiff("d", DateTimePicker1.Value, DateTimePicker2.Value)
0 komentar
Posting Komentar