- Katılım
- 30 Ocak 2006
- Mesajlar
- 937
- Excel Vers. ve Dili
- Access 2003
Konuya isterseniz burdan devam edelim.
ÖZET:
Taksitli satış programında Modalı'nın verdiği kodları uyguladım. Fakat aslında bir şey değişmedi.. Benim kodlar şöyle idi:
subat = yıl Mod 4 = 0 And (yıl Mod 100 <> 0 Or yıl Mod 400 = 0)
Select Case ay
Case 2
If subat Then gün = 29 Else gün = 28
Case 4, 6, 8, 10, 12
gün = 30
Case 1, 3, 5, 7, 9, 11
gün = 31
End Select
Buna karşılık sayın Modalı bana aşağıdaki kodları önermişti:
Select Case ay
Case 2
If yıl Mod 4 = 0 And (yıl Mod 100 <> 0 Or yıl Mod 400 = 0) Then
gün = 29
Else
gün = 28
End If
Case 4, 6, 8, 10, 12
gün = 30
Case 1, 3, 5, 7, 9, 11
gün = 31
End Select
Bu kodları diğerlerinin yerine uygulamam sonucu çok fazla değiştirmedi. Yine Şubat ayına kadar olan taksitler ilk girdiğim tarihte oluşuyor ama şubat ayından itibaren bir sapma oluşuyor ve mesela 01.01.2008 den başlattığım 1000 YTL lik 20 taksitin dökümü şöyle oluyor:
TAKSİT NO İŞLEM TARİHİ ÖDEME TARİHİ MİKTAR P.BİRİMİ
1. TAKSİT 12.10.2007 01.01.2008 50 YTL
2. TAKSİT 12.10.2007 30.01.2008 50 YTL
3. TAKSİT 12.10.2007 28.02.2008 50 YTL
4. TAKSİT 12.10.2007 30.03.2008 50 YTL
5. TAKSİT 12.10.2007 29.04.2008 50 YTL
6. TAKSİT 12.10.2007 30.05.2008 50 YTL
7. TAKSİT 12.10.2007 29.06.2008 50 YTL
8. TAKSİT 12.10.2007 30.07.2008 50 YTL
9. TAKSİT 12.10.2007 29.08.2008 50 YTL
10. TAKSİT 12.10.2007 29.09.2008 50 YTL
11. TAKSİT 12.10.2007 29.10.2008 50 YTL
12. TAKSİT 12.10.2007 29.11.2008 50 YTL
13. TAKSİT 12.10.2007 29.12.2008 50 YTL
14. TAKSİT 12.10.2007 29.01.2009 50 YTL
15. TAKSİT 12.10.2007 26.02.2009 50 YTL
16. TAKSİT 12.10.2007 29.03.2009 50 YTL
17. TAKSİT 12.10.2007 28.04.2009 50 YTL
18. TAKSİT 12.10.2007 29.05.2009 50 YTL
19. TAKSİT 12.10.2007 28.06.2009 50 YTL
20. TAKSİT 12.10.2007 29.07.2009 50 YTL
Dikkat ederseniz 01.01.2008 de ilk taksit 30.01.2008 de ikinci taksit 28.02.2008 de 3. taksit ve sonrası artık ayın 1'i değil 29 veya 30'una dönüyor. Başlangıç ayında da 2 taksit oluşuyor.
ÖZET:
Taksitli satış programında Modalı'nın verdiği kodları uyguladım. Fakat aslında bir şey değişmedi.. Benim kodlar şöyle idi:
subat = yıl Mod 4 = 0 And (yıl Mod 100 <> 0 Or yıl Mod 400 = 0)
Select Case ay
Case 2
If subat Then gün = 29 Else gün = 28
Case 4, 6, 8, 10, 12
gün = 30
Case 1, 3, 5, 7, 9, 11
gün = 31
End Select
Buna karşılık sayın Modalı bana aşağıdaki kodları önermişti:
Select Case ay
Case 2
If yıl Mod 4 = 0 And (yıl Mod 100 <> 0 Or yıl Mod 400 = 0) Then
gün = 29
Else
gün = 28
End If
Case 4, 6, 8, 10, 12
gün = 30
Case 1, 3, 5, 7, 9, 11
gün = 31
End Select
Bu kodları diğerlerinin yerine uygulamam sonucu çok fazla değiştirmedi. Yine Şubat ayına kadar olan taksitler ilk girdiğim tarihte oluşuyor ama şubat ayından itibaren bir sapma oluşuyor ve mesela 01.01.2008 den başlattığım 1000 YTL lik 20 taksitin dökümü şöyle oluyor:
TAKSİT NO İŞLEM TARİHİ ÖDEME TARİHİ MİKTAR P.BİRİMİ
1. TAKSİT 12.10.2007 01.01.2008 50 YTL
2. TAKSİT 12.10.2007 30.01.2008 50 YTL
3. TAKSİT 12.10.2007 28.02.2008 50 YTL
4. TAKSİT 12.10.2007 30.03.2008 50 YTL
5. TAKSİT 12.10.2007 29.04.2008 50 YTL
6. TAKSİT 12.10.2007 30.05.2008 50 YTL
7. TAKSİT 12.10.2007 29.06.2008 50 YTL
8. TAKSİT 12.10.2007 30.07.2008 50 YTL
9. TAKSİT 12.10.2007 29.08.2008 50 YTL
10. TAKSİT 12.10.2007 29.09.2008 50 YTL
11. TAKSİT 12.10.2007 29.10.2008 50 YTL
12. TAKSİT 12.10.2007 29.11.2008 50 YTL
13. TAKSİT 12.10.2007 29.12.2008 50 YTL
14. TAKSİT 12.10.2007 29.01.2009 50 YTL
15. TAKSİT 12.10.2007 26.02.2009 50 YTL
16. TAKSİT 12.10.2007 29.03.2009 50 YTL
17. TAKSİT 12.10.2007 28.04.2009 50 YTL
18. TAKSİT 12.10.2007 29.05.2009 50 YTL
19. TAKSİT 12.10.2007 28.06.2009 50 YTL
20. TAKSİT 12.10.2007 29.07.2009 50 YTL
Dikkat ederseniz 01.01.2008 de ilk taksit 30.01.2008 de ikinci taksit 28.02.2008 de 3. taksit ve sonrası artık ayın 1'i değil 29 veya 30'una dönüyor. Başlangıç ayında da 2 taksit oluşuyor.