Saat Tarih bilgisi veren kod

[command]

Haftanın günü,ay,yıl,ve saat bilgisini veren kod
dos gün bilgisi ve tarih için , sysutils ise saat bilgisi için kullanıldı
kodun tamamı kendime ait değil bir kaç örneği birleştirerek hazırladım ilgilenen arkadaşlara örnek olsun diye

Kod Seç Genişlet



uses crt,sysutils,dos;

Const
Gunler : Array [0..6] Of String[12] =('Pazar','Pazartesı','Salı','Çarşamba','Perşembe','Cuma','Cumartesi');

var
timestamp:string;
Y,A,G,Gun: Word;

BEGIN
highvideo;
repeat
clrscr;
Getdate(Y,A,G,Gun);
timestamp:=FormatDateTime('hh:nn:ss',Time());
textcolor(6);
writeln(Gunler[Gun],', ',G:0,'.', A:0, '.', Y:0,' ',timestamp);
delay(1000);
until keypressed;
normvideo;
halt(0);
END.


örnek çıktı

Kod Seç Genişlet


Çarşamba, 26.8.2009 00:40:14


[ecarpar]

ellerine sağlık kullanmadım işime yararmı bilmiyorumb ile ama birilerinin forum mantığını anladığını görmek beni sevindirdi.

[ekremsenturk]

Pascal'a benziyor.

Bir kod hangi betikte yazılmışsa, sadece aynı betik ile kullanıldığında işe yarar.

[mami96]

Pascal'a benziyor.

Bir kod hangi betikte yazılmışsa, sadece aynı betik ile kullanıldığında işe yarar.

Free Pascal