Gün, Ay, Yıl Bulmak ?

[cenkkoray]

Merhaba Ben şuan bulunduğumuz Günü,ayı ve yılı ayrı labeller içine yazdırmak istiyorum,bir türlü olmuyor,bilgisi olan var mı acaba ?

[sabanakman]

Kod: Tümünü seç

var Yil,Ay,Gun:Word;
begin
  DecodeDate(Date,Yil,Ay,Gun);
  Label1.Caption:=IntToStr(Yil);
  Label2.Caption:=IntToStr(Ay);
  Label3.Caption:=IntToStr(Gun);
end;

[cenkkoray]

kardes cok sagol

[oklawa]

Uses listesine DateUtils ekledikten sonra

Kod: Tümünü seç

IntToStr(YearOf(Now));
IntToStr(MonthOf(Now));
IntToStr(DayOf(Now));

Fonksiyonlarını da kullanabilirsiniz..