Mula mula buatlah sebuat Form, lalu tambahkan dua buah label dengan nama label1 dan label2, dan sebuah Timer dengan nama Timer1,
setelah itu doble klik Timer lalu tuliskan perintah dibawah
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=FormatDateTime('dd MMMM yyyy',Now);
Label2.Caption:=FormatDateTime('hh:mm:ss',Now);
end;
kalo sudah, tekan menu Run lalu pilih Run atau tekan F9 pada keybord untuk menjalankan program dan liatlah hasilnya
selamat mencoba....!!!!
faesal
No comments:
Post a Comment