CARA MEMBUAT JAM DAN TANGGAL DI VB6

Siapkan :

1. 6 label(lblday,lblmonth,lblyear,lblnumber,lbltime)
2. 1Timer (timDisplay)

isi koding ditimer berikut:

Option Explicit

Private Sub timDisplay_Timer()

Dim Today As Variant

Today = Now

lblDay.Caption = Format(Today, "dddd")

lblMonth.Caption = Format(Today, "mmmm")

lblYear.Caption = Format(Today, "yyyy")

lblNumber.Caption = Format(Today, "d")

lblTime.Caption = Format(Today, "h:mm:ss ampm")

End Sub

Harga buku " Cara Gampang Membuat Program Point Of Sales " hanya 50.000