[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! 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/
