DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Function ETARIH(KÜÇÜK_TARİH As Date, BÜYÜK_TARİH As Date) As String
ETARIH = Evaluate("DateDif(" & CDbl(CDate(KÜÇÜK_TARİH)) & "," & CDbl(CDate(BÜYÜK_TARİH)) & ", ""y"")") & " YIL "
ETARIH = ETARIH & Evaluate("DateDif(" & CDbl(CDate(KÜÇÜK_TARİH)) & "," & CDbl(CDate(BÜYÜK_TARİH)) & ", ""ym"")") & " AY "
ETARIH = ETARIH & Evaluate("DateDif(" & CDbl(CDate(KÜÇÜK_TARİH)) & "," & CDbl(CDate(BÜYÜK_TARİH)) & ", ""md"")") & " GÜN"
End Function