unitimizin type kısmına ' function hangigun(d:tdate):shortstring; ' ekledikten sonra:
--------------------------------------------------------
function tform1.hangigun(d:tdate):shortstring;
begin
case dayofweek(d) of
1:result:='Pazar';
2:result:='Pazartesi';
3:result:='Salı';
4:result:='Çarşamba';
5:result:='Perşembe';
6:result:='Cuma';
7:result:='Cumartesi';
end;
end;
--------------------------------------------------
kullanımı:
ÖRNEK 1 :
button1click(sender)
begin
showmessage(hangigun(now));
end;
ÖRNEK 2 :
button1click(sender)
var
tarih:tdate;
gun:string;
begin
gun:=hangigun(tarih);
end;
ÖRNEK 3 :
button1click(sender)
begin
showmessage(hangigun(27052004)); // = 27.05.2004
end;
ÖRNEK 4 :
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
showmessage(hangigun(datetimepicker1.DateTime));
end;
ÖRNEK 5 :
button1click(sender);
begin
showmessage(hangigun(strtodate(edit1.text))); // editte gg.aa.yyyy yazmalı
end;
---------------------------------------------------------------------
iyi çalışmalar...