cara penambahan dan pengurangan dalam format waktu

Menghitung Selisih Dua Buah Tanggal (1)

'Deskripsi: Menghitung selisih dua buah tanggal yang diketahui berdasarkan
' (selang waktu) tertentu, apakah hari (d), bulan (m),
' atau tahun (yyyy), menggunakan fungsi DateDiff.
'Pembuat : http://master-digital.blogspot.com
'Persiapan: 1. Buat 1 Project baru dengan 1 Form dan 1 Commandbutton
' 2. Copy-kan coding berikut ke dalam editor form yang bertalian
'----------------------------------------------------------------------------

Private Sub Command1_Click()
Dim hari As Integer, bulan As Integer, tahun As Integer
hari = DateTime.DateDiff("d", _
CDate("22/01/1973"), _
CDate("22/01/2002")) '--> Menghasilkan 10592

bulan = DateTime.DateDiff("m", _
CDate("22/01/1973"), _
CDate("22/01/2002")) '--> Menghasilkan 348

tahun = DateTime.DateDiff("yyyy", _
CDate("22/01/1973"), _
CDate("22/01/2002")) '--> Menghasilkan 29

MsgBox "Selisih antara tanggal 22/01/1973" & vbCrLf & _
"dengan tanggal 22/01/2002 " & vbCrLf & _
"menghasilkan sebagai berikut: " & vbCrLf & _
"" & vbCrLf & _
" " & Format(hari, "#,#") & " hari, ATAU" & vbCrLf & _
" " & Format(bulan, "#,#") & " bulan, ATAU" & vbCrLf & _
" " & Format(tahun, "#,#") & " tahun", _
vbInformation, "DateDiff"
End Sub

'Di bawah ini adalah Referensi lain dari fungsi datetime
'------------------------------------------------
hasil=dateadd(kodenya,angka,tgl/jam)

kode= d=day, m=month, yyyy=tahun,
angknya= angka maju berapa, kalo mundur pake minus (-)

1.maju 2 tahun
msgbx dateadd("YYYY",2,date)

2.mundur 2 tahun
msgbox dateadd("YYYY",-2,date)

3.maju 6 bulan
msgbox dateadd("m",6,date)

4.maju 10 jam
msgbox dateadd("h",10,time)

5.mundur 10 jam
msgbox dateadd("h",-10,time)

6.maju 10 menit
msgbox dateadd("n",10,time)

7.maju 10 detik
msgbox dateadd("s",10,time)


pokoknya mau mundur pake minus (-)

semoga membantuhhhhhh...

Tidak ada komentar:

Poskan Komentar


Dengan Mozilla Firefox --- Website Terbuka Optimal Dengan Resolution 1024 768 Pixels ---- By MASTER DIGITAL Powered By ARYANTO