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 Programmer-VB@yahoogroups. , muhammad Taufiqcom
<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 <[EMAIL PROTECTED]>
> To: Programmer-VB@yahoogroups. com
> 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
SPONSORED LINKS
| Indonesia phone card | Programmer | Indonesia tour |
| Indonesia travel | Indonesia flower |
Your email settings: Individual Email|Traditional
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
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
__,_._,___
