Wa'alaikumussalam Wr. Wb.
Mungkin mau coba juga :
*** max : milliseconds
msgbox evaluate("text(" & (timer-test)/86400 & ",""HH:mm:ss.000"")")
-> misal (timer-test) menghasilkan 0.123 second, berarti formulanya
berbunyi : TEXT( 0.123/86400,"HH:mm:ss.000")
bisa juga :
test=timer-test '-> simpan selisih waktu (dalam detik)
msgbox format$( test/86400,"HH:mm:ss" ) & replace(format$(
test-int(test),".000###"),",",".")
-> fungsi Format hanya mampu sampai seconds. 1 detik = 1000 milidetik
dan bisa ditempelkan (concatenate) ke format datetime
Wassalamu'alaikum Wr. Wb.
Kid.
2014-04-16 9:51 GMT+07:00 Heri Pamungkas ( Gmail ) <[email protected]>:
>
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> Alhamdulillah,
>
> Miss, kayanya Pak Aji ada di samping saya ni
> jadi 1 hari serasa 3600 Detik dihatiku....#jiahhh
>
> Berikut penampakan scriptnya, yang Alhamdulillah
> sepertinya sudah berjalan seperti yang saya harapkan :
>
> Private Sub Unhide_Sheet()
> Dim Test As Single
> Test = Timer
> Sheets("ILev").Visible = True
> Sheets("mDBeg").Visible = True
> Sheets("mDH-1").Visible = True
> Sheets("mDH").Visible = True
> Sheets("Ostd").Visible = True
> MsgBox Format((Timer - Test) / 86400, "hh:mm:ss") & " " &
> Right(Format(Timer - Test, "#0.000"), 3), , "Coba-Coba"
> End Sub
>
>
> Hehehe, jadi semangat belajar VB nie.
>
> Pak/Bu Moderator,Miss dan Teman2 Be-Excell,
> adakah contoh Problem dengan VB sederhana ?!
> Jadi kaya semacam kuis gitu, Biar saya belajarnya
> sekalian nyemplung... hehehehe
>
>
> #ehmmm,.. Pemanasan sebelum Kopdar#2
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
>
> On 16/04/2014 9:10, Jan Raisin wrote:
>
>
> Wa'alaikumsalam wr. wb.,
>
> pak Heri.. kalo di komputer Jan 1 hari 1 malam itu 86400 detik (24 jam *
> 60 menit * 60 detik), jadi kalo Jan membaginya dengan angka 86400 ^_^
>
> karena nilai 1 di komputer adalah mewakili 1 hari penuh dan 0,5 mewakili
> 12 jam
>
> bagian yang kedua, yang harus dilakukan pertama kali adalah melakukan
> format #0.000 untuk menampilkan 3 angka di belakang desimal (misal: 0.450),
> setelah itu baru mengambil 3 digit sebelah kanan yaitu 450
> jadi scriptnya harusnya Right(Format(Timer - Test, "#0.000"), 3) bukan
> sebaliknya
>
> tambahan sedikit:
>
> - Timer tidak perlu ditulis di dalam tanda kurung karena ini adalah
> fungsi internal VB, contoh script: Test = Timer
> - Timer akan menghasilkan nilai bertipe single, karena itu tipe data
> harus single >> ini alasan pemilihan tipe data single
> - Tipe data single akan menghasilkan nilai positif terkecil
> adalah 1.401298E-45 atau 45 angka Nol di belakang koma, karena itu harus
> ditampilkan 3 angka di belakang koma dahulu, setelah muncul 3 angka desimal
> barulah diambil menggunakan fungsi Right.
>
> Semoga kali ini scriptnya akan berjalan dengan baik.
>
> Wassalam,
>
> -Miss Jan Raisin-
>
>
> Pada 15 April 2014 17.10, Heri Pamungkas ( Gmail ) <[email protected]
> > menulis:
>
>>
>> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> Semangat pagi,.
>>
>> Miss dan Teman2 Be-Exceller yang Budiman,..
>> Hehehe, Alhamdulillah Scriptnya bisa berjalan Normal.
>>
>> Beginilah hasil penalaran saya yang terlihat aneh :
>>
>> Private Sub Unhide_Sheet()
>> ' Unhide_Sheet Macro
>> Dim Test As Single
>> Test = (Timer)
>> Sheets("ILev").Visible = True
>> Sheets("mDBeg").Visible = True
>> Sheets("mDH-1").Visible = True
>> Sheets("mDH").Visible = True
>> Sheets("Ostd").Visible = True
>> MsgBox Format((((Timer) - Test) / 3600), "hh:mm:ss") & " " &
>> Format(Right((Timer) - Test, 3), "#0.000"), , "Coba-Coba"
>> End Sub
>>
>>
>> Deng denggggggg..... Problemnya.
>>
>> Sekali klik Jalan normal, tapi waktu klik kedua hasilnya
>> agak menNgenyuhkan yang membuat aku terhenyak (Bahasanya agak ngaco...).
>>
>>
>> Ada apakah gerangan sehingga bisa menyebabkan Minus ?!
>> Atau ada ketikan saya yang salah ya ?!
>>
>> Atau sebenarnya Waktu yang berjalan Mundur ?!..
>> #hmmmm,... masang tampang Mikir...
>>
>>
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>
>> Warm Regards,
>>
>>
>>
>
<<inline: image/png>>
