Mungkin seperti ini : privet sub hitung_click() dim ws as date, wl as date, ws as date dim hasil as date
ws = cdate(textwaktustart.text) 'pada bagian ini terjadi error wl = cdate(textwaktulapor.text) wf = cdate(textwaktufinish.text) hasil = wf-wl waktubd.caption = format$(hasil , "HH:MM:SS") end sub Wassalam, Kid. 2013/9/9 Kurniawan Tufail <kurniawan_tuf...@ymail.com> > ** > > > dear all excel-ler,, > > mau tanya, gmna cara melakukan pengurangan waktu?? untuk pengurangan > tanggal saya sudah bisa dengan menggunakan argument "as date" untuk > menyatakan value sebagai tanggal. pertanyaan saya apakah untuk menyatakan > value sebagai waktu, misal (text 08:00) sebagai waktu, juga menggunakan > argument "as date" atau "as time" (jika ada) (maaf jika salah). > kira seperti ini yang telah saya lakukan > > privet sub hitung_click() > dim ws as date, wl as date, ws as date > dim hasil as long > > ws = textwaktustart.value 'pada bagian ini terjadi error > wl = textwaktulapor.value > wf = textwaktufinish.value > > hasil = wf-wl > > waktubd.caption = hasil > > end sub > > mohon pencerahannya........ > > >
