İki tarih arası hafta hesaplama

[maori]

Merhabalar,

İki tarih arasındaki (bugünün tarihi ve ileriye dönük seçeceğim bir tarih) haftaları hesaplayıp, x firmasına olan borcumu bu hafta sayısına bölerek haftalık ödeme tutarımı bulmak istiyorum.

ÖRNEK:
x firmasına olan borç 5000 TL
bugün 01.04.2011
seçilecek tarih 01.10.2011
iki tarih arası 24 hafta
5000TL/24=208,33 TL bu hafta x firmasına yapmam gereken ödeme
not: 5000TL kısmını elle girmeden toplam borcumu gösteren hücreden alacağım.

Bu konuda yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

 

[mancubus]

merhaba.
küsuratlı haftalar yukarı mı, aşağı mı yuvarlanacak?
örneğin 25,2 hafta 25 mi, 26 mı olacak?


26 için örnek: A1 tarih, B1 5000TL, C1 ödeme

Sub haftabul()

Dim hafta As Long, odeme As Double

hafta = WorksheetFunction.Ceiling((Range("A1") - Date) / 7, 1)
odeme = Range("B1") / hafta
Range("C1") = odeme

End Sub

25 için örnek: A1 tarih, B1 5000TL, C1 ödeme

Sub haftabul()

Dim hafta As Long, odeme As Double

hafta = Int((Range("A1") - Date) / 7)
odeme = Range("B1") / hafta
Range("C1") = odeme

End Sub

 

[maori]

eline sağlık, teşekkür ederim.

 

[mancubus]

rica ederim.

ilk satırı şu şekilde düzeltirsek daha doğru olacak.

Dim hafta As Double, odeme As Double