OK, kita lanjutkan pembahasan mengenai datetime ini, saya akan jelaskan bagaimana cara menghitung selisih, menambah datetime dan mengurangi datetime.
Menambah Hari :
Dim tanggal As DateTimetanggal = 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 :
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 :
- Menghitung tanggal expired, misalnya jika 3 bulan sebelum tanggal expired, maka ada warning, atau jika sudah melebihi tanggal expired maka ada peringatan.
- 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).
- Mengetahui berapa tanggal terakhir penjualan untuk sales atau customer tertentu, atau sebaliknya berapa tanggal pertamakali si sales atau cutomer itu melakukan penjualan.
- Menghitung berapa lama masa kerja suatu karyawan/pegawai jika dihitung dari tanggal masuk
- dan lain lain, so jangan kemana mana.
Tags:
menghitung selisih tanggal, contoh datediff vbnet, contoh dateadd vbnet, apa fungsi datediff, dateadd, dateserial, datevalue
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
