Thursday, June 5, 2014

Sharing Everything From My Experience And Knowlegde

Sharing Everything From My Experience And Knowlegde

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

Posted: 04 Jun 2014 11:33 PM PDT

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
Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)