Tips&Trik Mengolah/Hitung/Format DateTime di VBNET (PART 2)

OK, kita lanjutkan pembahasan mengenai datetime ini, saya akan jelaskan bagaimana cara menghitung selisih, menambah datetime dan mengurangi datetime.

Menambah Hari :

Dim tanggal As DateTime

tanggal = CDate("2014/01/31") 'contoh akhir bulan januari

tanggal = tanggal.AddDays(1) : hasilnya adalah "2014/02/01" tanggal 1 februari 2014

begitupun jika misalnya di akhir tahun 2014/12/31, maka jika ditambah 1 hari hasilnya akan 2015/1/1

Mengurangi Hari :

tanggal = CDate("2014/01/31") 'contoh akhir bulan januari

tanggal = tanggal.AddDays(-1) : hasilnya adalah "2014/01/30" , tinggal minus (-1) saja.

jika ingin tambah atau mengurangi bulan, tahun, jam, menit, detik, milisecond bisa dilakukan seperti halnya contoh diatas, lihat screeshot dibawah ini :

ada juga cara lain untuk melakukan hal diatas, yaitu dengan fungsi DATEADD, contoh :

tanggal = DateAdd(DateInterval.Day, 1, tanggal) : hasilnya sama "2014/02/01" tanggal 1 februari 2014

tanggal = DateAdd(DateInterval.Day, -1, tanggal) : hasilnya sama "2014/01/30", tinggal minus (-1) saja.

jika ingin tambah atau mengurangi bulan, tahun, jam, menit, detik, milisecond dengan fungsi DATEADD bisa dilakukan seperti halnya contoh diatas, lihat screeshot dibawah ini :

Menghitung Selisih Hari :

Dim tanggal As DateTime

tanggal = CDate("2014/01/20")

Dim tanggal2 As DateTime

tanggal2 = CDate("2014/01/31")

Dim selisih As Integer

selisih = tanggal2.Day - tanggal.Day : hasilnya adalah 11 hari

begitupun untuk menghitung selisih bulan, tahun, jam, menit, detik, milisecond

selisih = tanggal2.Month - tanggal.Month

selisih = tanggal2.Year - tanggal.Year

selisih = tanggal2.Hour - tanggal.Hour

dan seterusnya, atau kita juga bisa menggunakan fungsi DATEDIFF, contoh yang sama :

selisih = DateDiff(DateInterval.Day, tanggal, tanggal2) : hasilnya adalah hasilnya adalah 11 hari

begitupun untuk menghitung selisih bulan, tahun, jam, menit, detik, milisecond, lihat screeshot dibawah ini :

Nah di postingan saya selanjutnya (Part 3) saya akan mulai ke contoh kasus umum yang sering kita hadapi saat coding program, contoh :

1. Menghitung tanggal expired, misalnya jika 3 bulan sebelum tanggal expired, maka ada warning, atau jika sudah melebihi tanggal expired maka ada peringatan.
2. Mengecek periode setting, misalnya kita punya seting discount 5% untuk semua barang dalam periode waktu 1 minggu dari tanggal 1 - 7, nah jika pembelian sebelum tanggal 1 atau sesudah tanggal 7 , maka discount tidak berlaku lagi (tidak akan diberikan).
3. Mengetahui berapa tanggal terakhir penjualan untuk sales atau customer tertentu, atau sebaliknya berapa tanggal pertamakali si sales atau cutomer itu melakukan penjualan.
4. Menghitung berapa lama masa kerja suatu karyawan/pegawai jika dihitung dari tanggal masuk
5. dan lain lain, so jangan kemana mana.

Tags:

menghitung selisih tanggal, contoh datediff vbnet, contoh dateadd vbnet, apa fungsi datediff, dateadd, dateserial, datevalue