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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

teo81a

Aktif Üye
Aktif Üye
 37
 68
 13
 23/12/2008
0
 Düzce
 
 Ofis 2003
 20/08/2018,00:03
Çö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?



Kullanici Avatari

esrefigit

Aktif Üye
Aktif Üye
 Belirtilmemiş
 599
 59
 30/10/2008
359
 Konya
 
 Ofis 2003
 20/09/2018,16:01
Çö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

Kullanici Avatari

teo81a

Aktif Üye
Aktif Üye
 37
 68
 13
 23/12/2008
0
 Düzce
 
 Ofis 2003
 20/08/2018,00:03
Çö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ı: 52)

Kullanici Avatari

teo81a

Aktif Üye
Aktif Üye
 37
 68
 13
 23/12/2008
0
 Düzce
 
 Ofis 2003
 20/08/2018,00:03
Çözüldü 
Arkadaşlar bu konuda fikri olan ya da yardımcı olabilecek kimse yokmu? Img-cray



Kullanici Avatari

Bilgisayarcı

Atçalı
Aktif Üye
 Belirtilmemiş
 658
 34
 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



Kullanici Avatari

teo81a

Aktif Üye
Aktif Üye
 37
 68
 13
 23/12/2008
0
 Düzce
 
 Ofis 2003
 20/08/2018,00:03
Çö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ı: 54)


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Sıralanan Veriler Hakkında notrino 2 45 19/09/2018, 11:42
Son Yorum: notrino
Çözüldü Ole Nesnesi Hakkında notrino 2 60 17/09/2018, 11:09
Son Yorum: notrino
Çözüldü Sayı Sınırlama Hakkında notrino 2 81 06/09/2018, 12:28
Son Yorum: notrino
Çözüldü Satınalma Takip Yazılımı Hakkında DJ_CrAzY43 8 382 06/09/2018, 11:11
Son Yorum: PROSAN
Çözüldü Mesaj Kutusu Hakkında notrino 8 224 01/09/2018, 11:46
Son Yorum: mehmetdemiral

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.