Ortalama Çek Vadesi Nasıl Hesaplanır ? :(

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
hi_selamlar
Üye
Mesajlar: 523
Kayıt: 05 May 2005 03:24
Konum: DelphiTürkiye.COM

Ortalama Çek Vadesi Nasıl Hesaplanır ? :(

Mesaj gönderen hi_selamlar »

S.A. arkadaşlar.

elimde 4 veya daha fazla çek var.

örneğin;

Kod: Tümünü seç

TARİH		TUTAR
01.01.2007	1.000
05.01.2007	100
10.01.2007	2.000
15.01.2007	3.000
20.01.2007	200
25.01.2007	5.000
30.01.2007	100
buna öyle bir şey yapmam lazım ki, ne müşteri nede satıcı zarar etsin.

ay sonunda müşteriden çek alıcam. çek 30-45 günlük değişken olabilir.

buna nasıl bir formuül uygulamam lazım acaba. aradım-taradım :roll:
bi formül bulamadım.

ortalama vadesini nasıl bulmalıyım ? :?:

S.A.
Herkes cahildir, bazi konularda.
Kullanıcı avatarı
conari
Üye
Mesajlar: 2102
Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık

Mesaj gönderen conari »

Delphi de yapmadım ama
excel de kullandığım formul :

Çek e bu güne ait gün farkı hesaplanır.
örnek 100 YTL Vade 31.05.2007 bugüne göre farkı 9

bulunan gün farkı ay olarak hesaplanır 9/30 = 0,285

çek tutarı(ları) ile bu rakam(lar) çarpılır .
100 * 0,285 = 285

çıkan rakam toplam çek tutarına bölünür 285/100 =0,285
çıkan rakam 30 ile çarpılır 0,285 * 30 = 8,55
çıkan sonuç ortalama vade günüdür. Buda günün tarihine gün olarak eklenerek vade tarihi ortalaması bulunur.
Bir kelimenin anlamını öğretsen bile yeter..
ResimResim
Kullanıcı avatarı
hi_selamlar
Üye
Mesajlar: 523
Kayıt: 05 May 2005 03:24
Konum: DelphiTürkiye.COM

Mesaj gönderen hi_selamlar »

S.A.

arkdaşım acaba rica etsem bana excel yapılmış bir örnek gönderebilirmisin.

valla çok işime yarıyacak. lütfen. :oops:

S.A.
Herkes cahildir, bazi konularda.
Kullanıcı avatarı
TRSoft
Kıdemli Üye
Mesajlar: 636
Kayıt: 13 Şub 2004 11:39
Konum: Konya
İletişim:

Mesaj gönderen TRSoft »

Bende örnek olsun diye yaptığım bir uygulamadan bir parça veriyorum

Kod: Tümünü seç

     ToplamTutar := Dm.CekBordroTB.FieldByName('TOPLAM_TUTAR').AsFloat;
     Vade := 0;
     Dm.CsTB.First;
     while not Dm.CsTB.Eof do
     begin
          Gun := DateOf(Dm.CsTB.FieldByName('CS_VADE_TARIHI').ASDateTime) - DateOf(Dm.CekBordroTB.FieldByName('BORDRO_TARIHI').AsDateTime);
          Tutar := Dm.CsTB.FieldByname('CS_TUTAR').AsFloat;
          Yuzde := ToplamTutar / 100;
          Yuzde := Tutar / Yuzde;
          Gun := (Gun / 100) * Yuzde;
          Vade := Vade + Gun;
          Dm.CsTB.Next;
     end;
İlimle geçen bir gece,
ibadetle geçen bin geceden hayırlıdır.
HZ. MUHAMMED (S.A.)
Kullanıcı avatarı
conari
Üye
Mesajlar: 2102
Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık

Mesaj gönderen conari »

bir ftp ve mail verirsen gönderebilirim.
Bir kelimenin anlamını öğretsen bile yeter..
ResimResim
Kullanıcı avatarı
hi_selamlar
Üye
Mesajlar: 523
Kayıt: 05 May 2005 03:24
Konum: DelphiTürkiye.COM

Mesaj gönderen hi_selamlar »

conari yazdı:bir ftp ve mail verirsen gönderebilirim.
S.A.


hi_selamlar@walla.com
hi_selamlar@mynet.com
hi_selamlar@hotmail.com :oops:

teşekkür ederim.

S.A.
Herkes cahildir, bazi konularda.
Kullanıcı avatarı
conari
Üye
Mesajlar: 2102
Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık

Mesaj gönderen conari »

hotmail e gönderdim.
Bir kelimenin anlamını öğretsen bile yeter..
ResimResim
Kullanıcı avatarı
hi_selamlar
Üye
Mesajlar: 523
Kayıt: 05 May 2005 03:24
Konum: DelphiTürkiye.COM

Mesaj gönderen hi_selamlar »

conari yazdı:hotmail e gönderdim.
teşekkürler... :)

hemen kontrol ediyorum...

saol..
Herkes cahildir, bazi konularda.
nfazakli
Üye
Mesajlar: 34
Kayıt: 25 Mar 2005 01:20

tuz biber ekler..

Mesaj gönderen nfazakli »

Adat = (Vade Tarihi - Alınış Tarihi ) * Tutar


Ortalama vade = Adat / Toplam Tutar


Saygılar,
Cevapla