Geçerli tarihi yıl,ay, gün olarak ayırmak

[y.kulac]

geçerli tarihi yıl, ay ve gün olarak ayrı ayrı labellere yazan küçük bir fonksiyon.

Kod: Tümünü seç

function YilAyGun (Index: Integer): Integer;
var
Yil, Ay, Gun: Word;
Begin
DecodeDate(Date, Yil, Ay, Gun);
case Index of
1: Result := Yil;
2: Result := Ay;
3: Result := Gun;
End;
End;

şimdi formumuza 3 adet label koyalım ve formun onshow olayına aşağıdaki kodu yazalım.

Kod: Tümünü seç

Label1.Caption:= inttostr(YilAyGun (1));
Label2.Caption:= inttostr(YilAyGun (2));
Label3.Caption:= inttostr(YilAyGun (3));

kolay gelsin.