Dim N, jam, menit, detik
' N = Jumlah detik, misal N = 3661
N = 3661
jam = ((N \ 3600) \ 10) & ((N \ 3600) mod 10)
menit = (((N mod 3600) \ 60) \ 10) & (((N mod 3600) \
60) mod 10)
detik = (((N mod 3600) mod 60) \ 10) & (((N mod 3600)
mod 60) mod 10)
msgbox jam & " : " & menit & " : " & detik
Regards,
Henri
--- JK <[EMAIL PROTECTED]> wrote:
> [mudah-an script ini bisa membantu konversi jml
> detik mjd
> jam-menit-detik | maaf dipublish disini, barangkali
> ada yang pingin
> belajar/lupa/atau ada yg bisa nambahi..:) ]
>
> Barangkali ada yang punya ide lain yang lebih
> simpel.. script berikut
> kayaknya panjang amat yaaaa
> ------------------------------------
> 'misalnya jumlah detiknya ada di Text1
> 'format tampilan hasil akhir silahkan diperbaiki
> sesuai keinginan
>
> Dim nDetik1, nDetik2, nDetik3
> Dim nJam, nMenit, nDetik
> Dim HasilAkhir
>
> nDetik1 = Text1
>
> 'jumlah jamnya
> If Val(nDetik1) >= 3600 Then
> nJam = Round(nDetik1 / 3600, 0)
> nDetik2 = nDetik1 Mod 3600
> Else
> nJam = "0"
> nDetik2 = nDetik1
> End If
>
> 'jumlah menit
> If Val(nDetik2) >= 60 Then
> nMenit = Round(nDetik2 / 60, 0)
> nDetik3 = nDetik2 Mod 60
> Else
> nMenit = "0"
> nDetik3 = nDetik2
> End If
>
> 'jumlah detik
> nDetik = nDetik3
>
> HasilAkhir = nJam & "-" & nMenit & "-" & nDetik
> --------------------------------------
>
>
>
>
> mas maaf... cara konversinya gimana ^_^
> saya punya nilai detiknya
> tapi pembagian ke jam, menit dan detiknya saya masih
> mengalami kendala.
> mohon pencerahannya
>
>
>
__________________________________
Yahoo! Mail - PC Magazine Editors' Choice 2005
http://mail.yahoo.com
------------------------ Yahoo! Groups Sponsor --------------------~-->
Get Bzzzy! (real tools to help you find a job). Welcome to the Sweet Life.
http://us.click.yahoo.com/A77XvD/vlQLAA/TtwFAA/k7folB/TM
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> 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/
