Soru = Sistem tarihini 20.04.2008 yerine 20 Nisan 2008 olarak gösteren programı prosedürde yapınız.

Şekli :

Kodlar :

Procedure tarih(gun,ay,yil:string); 
begin 
case strtoint(ay) of
1:ay:='Ocak';
2:ay:='Şubat';
3:ay:='Mart';
4:ay:='Nisan';
5:ay:='Mayıs';
6:ay:='Haziran';
7:ay:='Temmuz';
8:ay:='Ağustos';
9:ay:='Eylül';
10:ay:='Ekim';
11:ay:='Kasım';
12:ay:='Aralık';
end;
showmessage(gun+' '+ay+' '+yil);
end;  

Procedure TForm1.Button1Click(Sender: TObject); 
var 
g,a,y:string[10];
begin 
g:=copy(datetostr(date),1,2);
a:=copy(datetostr(date),4,2);
y:=copy(datetostr(date),7,4);
tarih(g,a,y);
end; 

Çalışma Şekli : 

‘Tarih Formatına Çevir' butonuna tıkladığımızda bize bugünkü tarihin ay kısmındaki formatının değiştiğini göreceksiniz.