Dear, Rekans...
Saat ini saya mendapatkan kendala untuk menghitung selisih waktu,
adapun coding sebagai berikut :
Sub jam3_change()
If Me.Roller3.Enabled = False Then
TotJam = DateDiff("h", Format(StartTime3, "hh:mm:ss"), Format
(Waktu, "hh:mm:ss"))
TotMenit = DateDiff("n", Format(StartTime3, "hh:mm:ss"), Format
(Waktu, "hh:mm:ss"))
TotDetik = DateDiff("s", Format(StartTime3, "hh:mm:ss"), Format
(Waktu, "hh:mm:ss"))
DuraTime3 = Format(TotJam - Int((TotJam / 60)) * 60, "00") & ":" &
_
Format(TotMenit - Int((TotMenit / 60)) * 60, "00")
& ":" & _
Format(TotDetik - Int((TotDetik / 60)) * 60, "00")
End If
End Sub
Kendalannya coding selisih waktu diatas saya jadikan semacam
stopwatch cuman jika StartTime = "01:50:00" dan WaktuNow
= "02:10:00" maka DuraTime Pasti menampilkan selisih waktu melebihi
1 Jam padahal logikanya sebenarnya belum...
Mungkin hanya itu yang ingin saya sampaikan, semoga diantara rekan
ada yang dapat membantu.
Thank's
Ago
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/Programmer-VB/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
