FastReport da DecodeDate(,,,); kullanmasını bilen varmı

[Ademkoysuren]

selam
Fastreport da tarihleri ayırmak istiyorum. fastreport aşağıdaki kodu destekliyor ama nasıl kullanacağımı bilmiyorum. bilen arkadaş varsa bana bir örnek gönderebilirmi
DecodeDate(Date:TDateTime;var Year,Month,Day:Word)

[hcr]

Kod: Tümünü seç

procedure MemoDateOnAfterData(Sender: TfrxComponent);
var
 gun, ay, yil : word;
begin
  decodedate(date,yil,ay,gun);
  memoGun.text := inttostr(gun);
  memoAy.text := inttostr(ay);
  memoYil.text := inttostr(yil);
end;

iyi çalışmalar..