girilen iki tarihin farkına göre faiz hesaplama

[todorov]

ekrandan iki tarih ve anaparayı girip, tarihler arasındaki farka göre faiz hesaplatmak istiyorum. yardımcı olursanız sevinirim. bir de henüz iki haftalık delphi kullanıcı olduğum göz önüne alınarak yardımcı olunursa çok iyi olur teşekkürler...

[naile]

Tarih saat fonksiyonlarını kullanarak iki tarih arasındaki farkı bulup hesaplamanızı yapabilirsiniz. Tarih saat fonksiyonları:
http://www.delphiturkiye.com/index.php? ... tetime.htm

[todorov]

az takılmadım forumlara. ama bu hayatımda bi forumdan aldığım en hızlı cevap. çok teşekkür ederim.
anladın mı derseniz maalesef daha en baştaki kural olan uses kısmına DateUtils i bile ekleyemedim. delphi 5 kulanmamdan kaynaklanıyo galiba. 7 ye geçmem lazım.
tekrar teşekkür ederim

[ng]

1. Önce faiz miktarını girmen gerekiyor. Ancak bunu aylık,günlük, yıllık olarak girebilirsin. Daha sonra bunu günlüğe çevirmeni öneririm.
2. Aşağıdaki gibi bir kodla istediğini yapabilirsin sanırım.

Kod: Tümünü seç

var
  gunfarkı,gunlukfaizorani:integer;
  anapara,faiz:real;
begin
  gunfarki:= round(DAteTimepicker1.Date-DateTimepicker2.Date);
  faiz:=anapara*gunlukfaizorani*gunfarki;
end;

diyerek işleyen faiz miktarını bulabilirsin. tabii anapara,gunlukfaizorani,anapara gibi değişkenlere değer vermen gerekiyor. kolay gelsin.

[vedatkaba]

dateutilsi uses kısmında ekileyeceksin.......

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  date1, date2: TDateTime;
  difference: Integer;
begin
  date1 := EncodeDate(2000, 06, 15);  //Date 2000/06/15
  date2 := EncodeDate(2000, 01, 01);  //Date 2000/01/01

  difference := trunc(date1) - trunc(date2);
  ShowMessage(IntToStr(difference));
end;

istersen 2000,06,15 yazan yere tarihi bir edite yazarak alıcaksan datetostr(edit1.text) diyerekte yazarasn olur.
kolay gelsin...

[todorov]

dateutilsi uses kısmında ekileyeceksin.......

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  date1, date2: TDateTime;
  difference: Integer;
begin
  date1 := EncodeDate(2000, 06, 15);  //Date 2000/06/15
  date2 := EncodeDate(2000, 01, 01);  //Date 2000/01/01

  difference := trunc(date1) - trunc(date2);
  ShowMessage(IntToStr(difference));
end;

istersen 2000,06,15 yazan yere tarihi bir edite yazarak alıcaksan datetostr(edit1.text) diyerekte yazarasn olur.
kolay gelsin...

üstad, tarihleri datetimepicker dan alacağım için kodu şu şekilde yazdım;

Kod: Tümünü seç

var
  Form1: TForm1;
  tarih,tarih1:TDateTime;
  sonuc:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  tarih:=EndodeDate(DateTimePicker1.Date);
  tarih1:=EndodeDate(DateTimePicker2.Date);
  sonuc:=trunc(tarih1)-trunc(tarih);
  Edit3.Text:=IntToStr(sonuc);

ancak encodedate kısmında "undeclared identifier" diye hata verdi.

[vedatkaba]

Kod: Tümünü seç

EncodeDate=EndodeDate

hocam eğer gerçekten aşağıdaki gibi yazdıysan hata verecektir.

bence iki terim bir birine eşit değil...yanlış yazmış olamazmısın