Dear, BH... Aku dah set Data Format pada label StartTime1 = "m:d:yy hh:n" begitu pula dengan WaktuNow.
Namun setelah aku jalan kan pada kedua label tersebut setelah di RUN yang terdisplay malah format "hh:mm:ss" untuk StartTime1 & WaktuNow dan hasil Selisih berformat "hh:mm:ss". Mungkin ada yang kurang dari apa yang saya telah lakukan mohon pencerahannya !! Thank's Ago --- In [email protected], Bambang Hartoko <[EMAIL PROTECTED]> wrote: > > saya coba bantu langsung dengan contoh, misal: > start = 1 November 2006 22:00:00 > sekarang = 2 November 2006 02:00:00 > > maka selisih = sekarang - start, hasilnya adalah 0.16666666667 (dalam satuan hari). > > jika ingin tampil dalam satuan waktu, format(sekarang - start, "hh:mm:ss"), > hasilnya adalah 04:00:00 > > silahkan dicoba, semoga berhasil. > salam, > > BH. > > > > agli_07 <[EMAIL PROTECTED]> wrote: > 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 > <toviconline@> 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 <ago@> > > 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;} > > --> > > > > > > > > > --------------------------------- > Everyone is raving about the all-new Yahoo! Mail. > 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/
