Re: [belajar-excel] Waktu Kalkulasi VB

[Heri Pamungkas ( Gmail )]

السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ 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 ) <ghery.dha...@gmail.com> 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,