Masukkan tanggalnya juga. ----- Original Message ----- From: "agli_07" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Wednesday, November 01, 2006 9:03 AM Subject: [Programmer-VB] Re: Membuat Selisih Waktu.....
> 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 > > Yahoo! Groups Links > > > > 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/
