DeJiN´isimli üyeden Alıntı

Kıdem veya Yaşınızı Gününe Kadar Hesaplayın

Kağıt üstünde iki tarih arası farkı 30 gün hesasına göre nasıl hesaplıyorsak fonksiyonumuz aynı mantıkla hesaplar

Private Function kidem(Başlangıç_Tarihi, Son_Tarih)
Dim c As Date
Dim d As Date
On Error Resume Next
a = Başlangıç_Tarihi
b = Son_Tarih
c = Başlangıç_Tarihi
d = Son_Tarih

a1 = Int(Left$(a, 2))
a2 = Int(Mid(a, 4, 2))
a3 = Int(Right$(a, 4))

b1 = Int(Left$(b, 2))
b2 = Int(Mid$(b, 4, 2))
b3 = Int(Right$(b, 4))
If c > d Then GoTo SON

If b1 > a1 Then
Gun = (b1 - a1)
ElseIf b1 = a1 Then
Gun = 0
Else
b2 = (b2 - 1)
Gun = ((b1 + 30) - a1)
End If

If b2 > a2 Then
ay = (b2 - a2)
ElseIf b2 = a2 Then
ay = 0
Else
b3 = (b3 - 1)
ay = ((b2 + 12) - a2)
End If
yıl = b3 - a3
If yıl >= 0 Then yıl = Format(yıl, "00"): Yıl1 = (yıl & " Yıl, ") Else Yıl1 = ""
If ay >= 0 Then ay = Format(ay, "00"): Ay1 = (ay & " Ay, ") Else Ay1 = ""
If Gun >= 0 Then Gun = Format(Gun, "00"): Gun1 = (Gun & " Gün ") Else Gun1 = ""
If Yıl1 = "" And Ay1 = "" And Gun1 = "" Then Kidem1 = 0 Else Kidem1 = Yıl1 & Ay1 & Gun1
SON:
kidem = Kidem1
End Function