Pages

Ads 468x60px

Menu Atas

advertise with us
Place your ads here
Pasang Iklan disini

Menampilkan Jam Digital Di Form

Jam digital
Untuk memanjakan pengguna aplikasi yang berbasis Excel atau sekedar memperindah sebuah tampilan Form, mungkin cara ini bisa Anda jadikan sebagai salah satu alternatifnya - yakni dengan menampilkan sebuah jam digital (seperti yang terlihat di system tray sistem operasi Windows).

Seperti biasanya, aktifkan terlebih dahulu jendela Microsoft Visual Basic - kemudian buat sebuah UserForm (UserForm1) dan sebuah Label (Label1). Dan langkah selanjutnya adalah memasukkan kode berikut :
Option Explicit
Dim Berhenti As Boolean

Private Sub UserForm_Activate()
Do Until Berhenti
    Label1 = FormatDateTime(Time, vbShortTime)
    DoEvents
Loop
End Sub
Private Sub UserForm_Terminate()
Berhenti = True
End Sub

Pilihan untuk mengubah format jam digital :
vbShortTime : tampilan jam tanpa detik (ex, 17:25)
vbLongTime : tampilan jam dengan detik (ex, 17:25:31)
Download file di sini

Write By Ditulis oleh : Anto Ramana
Dipublikasikan pada : 29.12.12 | 20.39
Judul : Menampilkan jam digital di Form
Kategori : Macro VBA
belajar excel
Tutorial Excel Lainnya :