Date/Time Label

Berikut ini cara yang digunakan agar kontrol Label menampilkan Date/Time atau tanggal dan waktu sesuai dengan yang ada di komputer.

[ VB 6.0 ]
Buat Form baru dengan sebuah kontrol Label (AutoSize=True; Alignment=Center) dan Timer (Interval=1000). Lalu ketikkan kode berikut di bagian 'Form_Load' dan 'Timer1_Timer'.

Label1.Caption = Format(Now, "dddd" & vbCrLf & "dd MMMM yyyy" & vbCrLf & "hh : mm : ss")

[ VB .NET ]
Buat Form baru dengan sebuah kontrol Label (TextAlign=TopCenter) dan Timer (Enabled=True; Interval=1000). Lalu ketikkan kode berikut di bagian 'Form1_Load' dan 'Timer1_Tick'.

Label1.Text = Format(Now, "dddd" & vbCrLf & "dd MMMM yyyy" & vbCrLf & "HH : mm : ss")