DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Function TarihFarkilaveli(İlkTarih As Date, SonTarih As Date, İlaveTarihYıl As Date, İlaveTarihAy As Date, İlaveTarihGun As Date) As String
Dim Y As Integer
Dim M As Integer
Dim D As Integer
Dim Temp1 As Date
Temp1 = DateSerial(Year(SonTarih), Month(İlkTarih), Day(İlkTarih))
Y = (Year(SonTarih) + (İlaveTarihYıl)) - Year(İlkTarih) + (Temp1 > SonTarih)
M = (Month(SonTarih) + (İlaveTarihAy)) - Month(İlkTarih) - (12 * (Temp1 > SonTarih))
D = (Day(SonTarih) + (İlaveTarihGun)) - Day(İlkTarih)
If D < 0 Then
M = M - 1
D = Day(DateSerial(Year(SonTarih), Month(SonTarih), 0)) + D
End If
TarihFarkilaveli = Y & " Yıl " & M & " Ay " & D & " Gün"
End Function
cok tesekkur ederim hocam saol işimi gorduA1 --> Kayıt Tarihi
B1 --> Süre (Yıl olarak)
C1 --> = DATE(YEAR(A1)+B1;MONTH(A1);DAY(A1))
DATE=TARİH
YEAR=YIL
MONTH=AY
DAY=GÜN