/// Şimdi bana az önce lazım oldu aradım baya bulamadım en sonunda biraz kafa yordun.
/// ortaya böle bir şey çıktı.
/// 1 adet Label,edit ve buton lazım bize bunları forma koyuyoruz.
/// edite tarih girdikten sonra butonuna basıyoruz ve labele şu andan girilen tarihe
/// kadar ne kadar süre kaldığını öğreniyoruz..
var
Tarih1, Tarih2 : TDateTime;
Sayi : Integer;
fark_trh : TDate;
begin
Tarih1 := Now; // İlk tarih değer
Tarih2 := StrToDateTime(Edit1.Text); // İkinci tarih değer
fark_trh:=tarih2 - tarih1;
label1.caption:='Kalan Hizmet Süresi = '+ formatdatetime('yy',fark_trh)+' Yıl ' + formatdatetime('mm',fark_trh)+' Ay Kaldı ' + formatdatetime('dd',fark_trh)+' Gün Kaldı '
end;
______________
www.Balca-Uzman.tr.gg
Web tasarım, logo tasarım, flash banner tasarım, mobil ödeme bu sitede!