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: eddfcade.png>>
