Dear, Toviconline & Rekans....
Saya berterima kasih sekali atas pencerahannya untuk kendala yang saya temukan dan kini sudah terpecahkan atas bantuan anda.... Namun saya menyadari kalo coding yang anda telah berikan telah menyelesaikan satu masalah yang saya temukan, tetapi ternyata dalam program yang aku buat masih menemukan kendala yaitu bagaimana caranya agar jika StartTime dimulai dan lintas antar 2 hari tanggal yang berbeda, Misal : StartTime1.caption = "22:00:00" dan Waktu = Now () = "02:00:00" ' ditanggal berikutnya... Mungkin anda ato rekan lain yang bisa membantu memberikan saran kepada saya lagi, untuk permasalah tersebut diatas ?? Thank's Ago --- In [email protected], muhammad Taufiq <[EMAIL PROTECTED]> wrote: > > udah coba pake timevalue > > logikanya aja: > > dim selisih as string > > selesih=TimeValue(sekarang) - TimeValue(startTime) > > selesih=format(selisih,"hh:mm:ss") > > > ----- Original Message ---- > 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 > > > > > > > > > > > > > > > <!-- > > #ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans- serif;} > #ygrp-mlmsg table {font-size:inherit;font:100%;} > #ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;} > #ygrp-mlmsg pre, code {font:115% monospace;} > #ygrp-mlmsg * {line-height:1.22em;} > #ygrp-text{ > font-family:Georgia; > } > #ygrp-text p{ > margin:0 0 1em 0; > } > #ygrp-tpmsgs{ > font-family:Arial; > clear:both; > } > #ygrp-vitnav{ > padding-top:10px; > font-family:Verdana; > font-size:77%; > margin:0; > } > #ygrp-vitnav a{ > padding:0 1px; > } > #ygrp-actbar{ > clear:both; > margin:25px 0; > white-space:nowrap; > color:#666; > text-align:right; > } > #ygrp-actbar .left{ > float:left; > white-space:nowrap; > } > .bld{font-weight:bold;} > #ygrp-grft{ > font-family:Verdana; > font-size:77%; > padding:15px 0; > } > #ygrp-ft{ > font-family:verdana; > font-size:77%; > border-top:1px solid #666; > padding:5px 0; > } > #ygrp-mlmsg #logo{ > padding-bottom:10px; > } > > #ygrp-vital{ > background-color:#e0ecee; > margin-bottom:20px; > padding:2px 0 8px 8px; > } > #ygrp-vital #vithd{ > font-size:77%; > font-family:Verdana; > font-weight:bold; > color:#333; > text-transform:uppercase; > } > #ygrp-vital ul{ > padding:0; > margin:2px 0; > } > #ygrp-vital ul li{ > list-style-type:none; > clear:both; > border:1px solid #e0ecee; > } > #ygrp-vital ul li .ct{ > font-weight:bold; > color:#ff7900; > float:right; > width:2em; > text-align:right; > padding-right:.5em; > } > #ygrp-vital ul li .cat{ > font-weight:bold; > } > #ygrp-vital a { > text-decoration:none; > } > > #ygrp-vital a:hover{ > text-decoration:underline; > } > > #ygrp-sponsor #hd{ > color:#999; > font-size:77%; > } > #ygrp-sponsor #ov{ > padding:6px 13px; > background-color:#e0ecee; > margin-bottom:20px; > } > #ygrp-sponsor #ov ul{ > padding:0 0 0 8px; > margin:0; > } > #ygrp-sponsor #ov li{ > list-style-type:square; > padding:6px 0; > font-size:77%; > } > #ygrp-sponsor #ov li a{ > text-decoration:none; > font-size:130%; > } > #ygrp-sponsor #nc { > background-color:#eee; > margin-bottom:20px; > padding:0 8px; > } > #ygrp-sponsor .ad{ > padding:8px 0; > } > #ygrp-sponsor .ad #hd1{ > font-family:Arial; > font-weight:bold; > color:#628c2a; > font-size:100%; > line-height:122%; > } > #ygrp-sponsor .ad a{ > text-decoration:none; > } > #ygrp-sponsor .ad a:hover{ > text-decoration:underline; > } > #ygrp-sponsor .ad p{ > margin:0; > } > o {font-size:0;} > .MsoNormal { > margin:0 0 0 0; > } > #ygrp-text tt{ > font-size:120%; > } > blockquote{margin:0 0 0 4px;} > .replbq {margin:4;} > --> > 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/
