Menonton dengan VB

pertama munculkan lima label

lables lima nama tersebut sebagai lblDay, lblMonth, lblYear, lblDate, lblTime

kemudian mengambil waktu dalam waktu properti memberikan interval 1000

klik dua kali pada halaman ini dan paste kode di bawah ini seperti yang diberikan setelah menjalankan sistem ini akan menampilkan tanggal dan waktu



Tidak ada hari ini sebagai Varian
To day = now
lblDay.Caption = Format (To day, "dddd")
lblMonth.Caption = Format (To day, "mmmm")
lblYear.Caption = Format (To day, "yyyy")
lblDate.Caption = Format (To day, "d")
lblTime.Caption = Format (To day, "jj: mm: dd ampm")