Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
30/04/2009 18:25
Konu Sahibi
teo81a
Yorumlar
10
Okunma
5536
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

teo81a

Aktif Üye
Kullanici Avatari
Aktif Üye
68
23/12/2008
0
Düzce
Ofis 2003
Bugün,00:09
Çözüldü 
Öncelikle herkese merhaba;

Arkadaşlar sitede bu konuyla ilgi arama yaptırdım ama bulamadım. Elinde kademeli faiz hesabı ile ilgili örneği olan varsa lütfen rica etsem buraya ekleyebilirmi acaba?


Cevapla

esrefigit

Aktif Üye
Kullanici Avatari
Aktif Üye
598
30/10/2008
359
Konya
Ofis 2003
03/08/2017,11:47
Çözüldü 
formda örneği var sen sadece nasıl arayacağını bilmiyorsun benim eklediğim örneklere bak eminim bulursun sanırım yanlış hatırlamıyorsam birleşik faiz hesaplaması ile ilgili bir şeydi yaptığım

https://www.accesstr.net/attachment.php?aid=105
birleşik faiz hesaplama kodları

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Dim tar1 As Date
Dim tar As Variant
Dim n As Variant
Dim par As Variant
Dim asd As Variant
Dim vade As Variant
Dim faizoranı As Variant
Dim carpan As Variant
Dim toplam1 As Variant
Private Sub Komut17_Click()
On Error GoTo Err_Komut17_Click
vade = (taksay.Value + 1) / 2
faizoranı = vade * Me.faiz
carpan = (faizoranı / 100) + 1
toplam1 = toplam.Value * carpan
tar1 = bastar.Value

par = toplam1 / taksay.Value

Dim Rs As New ADODB.Recordset
Rs.Open "taksit", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Rs.EOF <> True Then
        Do
If Rs("musid") = musid.Value Then
Rs.Delete
End If
 Rs.MoveNext
        Loop Until Rs.EOF
    End If
asd = 0
z = taksay.Value
For i = 1 To z Step 1
asd = asd + Round(par, 0)


n = musid.Value
tar = DateAdd("m", i, tar1)
Rs.AddNew
Rs("musid") = n
Rs("taksittutari") = Round(par, 0)
Rs("tarih") = tar
Rs.Update
Next i
Rs.MoveLast

Rs("taksittutari") = Rs("taksittutari") + (toplam1 - asd)
Rs.Update
Set Rs = Nothing
Set conn = Nothing
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Komut17_Click:
    Exit Sub

Err_Komut17_Click:
    MsgBox "taksit alanlarından biri boş bu alanları boş geçemezsinizi"
    Resume Exit_Komut17_Click
End Sub


meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla

teo81a

Aktif Üye
Kullanici Avatari
Aktif Üye
68
23/12/2008
0
Düzce
Ofis 2003
Bugün,00:09
Çözüldü 
Sayın esrefigit hocam ilginize teşekkür ederim. Benim yapmak istediğim bileşik faiz olmayacak. Basit faiz uygulaması olacak. (Kalan anaparaya vade günü üzerinden değişen faiz oranlarına göre kademeli faiz hesaplanması lazım). Faiz oranları değişkenlik göstermemiş olsa iş kolaydı benim için. Ama oranlar değişince işler benim için sarp a sarıyor. Konuyla ilgili örnek ekliyorum. İlk açılan menüde resimli anlatım var. Bakabilirseniz çok memnun olurum. Herkes kolay gelsin iyi çalışmalar..


Ek Dosyalar
.rar   DENEME.rar (Dosya Boyutu: 93,83 KB / İndirme Sayısı: 50)
Cevapla

teo81a

Aktif Üye
Kullanici Avatari
Aktif Üye
68
23/12/2008
0
Düzce
Ofis 2003
Bugün,00:09
Çözüldü 
Arkadaşlar bu konuda fikri olan ya da yardımcı olabilecek kimse yokmu? Img-cray


Cevapla

Bilgisayarcı

Atçalı
Kullanici Avatari
Aktif Üye
657
29/01/2008
410
Antalya
Ofis 2003
01/11/2011,15:17
Çözüldü 
Soru : İlk taksit tamam, diğerlerin de hesaplama nasıl oluyor? O resimdeki anlatım yaptığınız yere diğer taksitlerin olması gereken hesaplamalarını da anlatabilir misiniz?

Sonuçta şunu görmek istiyorum: Taksit1 ,istediğim hesaplama sonucu gibi bir tablo gönderirseniz işlemleri anlamaya çalışıp çözelim.

Şahsen ben faizden bileşik olsun olmasın anlamıyorum...


Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla

teo81a

Aktif Üye
Kullanici Avatari
Aktif Üye
68
23/12/2008
0
Düzce
Ofis 2003
Bugün,00:09
Çözüldü 
Kusura bakmayın geç cevap yazıyorum müşteriler vardı hiç müsait olamadım. Ben faizlerin sonuç miktarlarını, değişen faiz oranlarına göre ve kalan anapara tutarına göre nasıl hesaplandığını (formüllerini) resimlerle açıklamaya çalıştım. İlginize çok ama çok teşekkür ederim, beni çok sevindirdiniz. Herkese iyi çalışmalar diliyorum


Ek Dosyalar
.rar   Örnek Anlatım 2.rar (Dosya Boyutu: 122,88 KB / İndirme Sayısı: 53)
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Like Kullanımı Hakkında ALike Hatası anno 11 303 05/10/2017, 14:38 anno
Çözüldü Emlak Takip Programları Hakkında Yardım oguzhanulger 2 167 28/08/2017, 18:07 simendifer
Çözüldü Kademeli Açılır Comboboxlar oturkoz 1 205 24/07/2017, 17:24 ozanakkaya
Çözüldü Cari baş harfine göre firma kodu oluşturma hakkında Gokcen Akan 25 1.069 14/07/2017, 08:32 Gokcen Akan
Çözüldü Verileri Taşıma Hakkında. serkan1985 4 321 02/06/2017, 20:51 serkan1985

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.