Function FARKYIL(YIL1 As Long, AY1 As Integer, GÜN1 As Integer, YIL2 As Integer, AY2 As Integer, GÜN2 As Integer)
If GÜN1 < GÜN2 Then
GÜN1 = GÜN1 + 30
AY1 = AY1 - 1
End If
If AY1 < AY2 Then
AY1 = AY1 + 1
YIL1 = YIL1 - 1
End If
FARKYIL = YIL1 - YIL2
End Function