Mungkin function di bawah ini bisa membantu:
Function fJMD(ByVal t1 As Date, ByVal t2 As Date) As String
On Error Resume Next
tDetik = DateDiff("s", t1, t2)
sMenit = tDetik \ 60
sDetik = tDetik Mod 60
sJam = sMenit \ 60
ssMenit = sMenit Mod 60
fJMD = sJam & ":" & ssMenit & ":" & sDetik
End Function
Hasil di immediate window sbb:
?fJMD(#1-jan-2009#,#1-jan-2009 14:06:35#)
14:6:35
?fJMD(#1-jan-2009#,#2-jan-2009 14:06:35#)
38:6:35
?fJMD(#1-jan-2009 21:34:11#,#2-jan-2009 14:06:35#)
16:32:24
?fJMD(#1-jan-2009 21:34:11#,#2-jan-2009#)
2:25:49
?fJMD(#3-august-2009 03:00:00#,#5-august-2009 13:00:00#)
58:0:0
?fJMD(#8/3/2009 03:00:00#,#8/5/2009 13:00:00#)
58:0:0
?fJMD(#3/8/2009 03:00:00#,#5/8/2009 13:00:00#)
1474:0:0
----- Original Message -----
From: "rizal_2705" <[email protected]>
To: <[email protected]>
Sent: Tuesday, August 04, 2009 03:36
Subject: [belajar-access] Durasi Waktu
> Salam Kenal...
>
> saya membutuhkan bantuan dan saran, mengenai cara penghitungan durasi
> waktu (jam, menit, detik) untuk 2 atau lebih hari.
>
> Misalnya
> a. start time : tanggal 03/08/2009 jam 03:00:00
>
> b. end time : tanggal 05/08/2009 jam 13:00:00
>
> saya mengalami kesulitan untuk menghitung total waktu diantara tanggal
> tersebut, sebelumnya pada aplikasi yang saya buat hanya bisa mendukung
> penghitungan waktu selama 24 jam saja tidak lebih dari itu.
>
> sekiranya ada yang berkenan membantu ?
>
> Terima Kasih // Rizal
>
>
>
> ------------------------------------
>
> SPAM IS PROHIBITEDYahoo! Groups Links
>
>
>
