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

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
Kullanıcı avatarı
y.kulac
Üye
Mesajlar: 275
Kayıt: 08 Kas 2003 12:03
Konum: sapanca/sakarya

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

Mesaj gönderen y.kulac » 03 May 2005 10:32

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.
Güzel gören güzel düşünür (S.Nursi k.s.)

Cevapla