tarih farkı bulma fonksiyonu

[esdebay]

Hocam Tarih farkı bulma fonksiyonunda bir hücredeki rakamı yıl , ay, gün ilave ederek nasıl buluruz?

 

[Necdet]

Tarihfarkilaveli :

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

 

[edre33]

hocam bana ilk tarih girip sonrada y&#305;l girdi&#287;imde mesala &#246;&#287;renciler i&#231;in 20.03.2007 kay&#305;t oldu bundan 3 y&#305;l sonra mezun olacak yani ilk kay&#305;t tarihine 3 ekleyecegim ve bana mezun olacag&#305; gun ay y&#305;l&#305; verecek nas&#305; nas&#305; bir form&#252;l yazmam gerek

 

[Necdet]

A1 --> Kay&#305;t Tarihi
B1 --> S&#252;re (Y&#305;l olarak)
C1 --> = DATE(YEAR(A1)+B1;MONTH(A1);DAY(A1))

DATE=TAR&#304;H
YEAR=YIL
MONTH=AY
DAY=G&#220;N

 

[edre33]

tssekkur

A1 --> 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

cok tesekkur ederim hocam saol işimi gordu