logikanya aja:
dim selisih as string
selesih=TimeValue(sekarang) - TimeValue(startTime)
selesih=format(selisih,"hh:mm:ss")
From: agli_07 <[EMAIL PROTECTED]>
To: [email protected]
Sent: Thursday, October 26, 2006 5:55:00 AM
Subject: [Programmer-VB] Membuat Selisih Waktu.....
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
| Indonesia phone card | Programmer | Indonesia tour |
| Indonesia travel | Indonesia flower |
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
__,_._,___
