1 : <%

2 : '// xxx date ago.

3 : Function fm_date(newsdate)

4 :     Dim dates, dates2, daten, daten2, dated, dated2, dateh, dateh2, datem, datem2, finaldate

5 :     'Date difference

6 :     dates = DateDiff("s", newsdate, Now)

7 :         dates2 = dates

8 :     daten = DateDiff("n", newsdate, Now)

9 :         daten2 = daten

10 :     dateh = DateDiff("h", newsdate, Now)

11 :         dateh2 = dateh

12 :     dated = DateDiff("d", newsdate, Now)

13 :         dated2 = dated

15 :     'Final Date

16 :     finaldate = ""

17 :     

18 :     dates = dates-(daten*60)

19 :         If dates < 0 Then dates = dates2-((daten-1)*60)

20 :     daten = daten-(dateh*60)

21 :         If daten < 0 Then daten = daten2-((dateh-1)*60)

22 :     dateh = dateh-(dated*24)

23 :         If dateh < 0 Then dateh = dateh2-((dated-1)*60)

25 :     'Seconds

26 :     If dated > 0 Then finaldate = finaldate & dated & " gün, "

27 :     If dateh > 0 Then finaldate = finaldate & dateh & " sa, "

28 :     If daten > 0 Then finaldate = finaldate & daten & " dk "

29 : '        If dates > 0 Then finaldate = finaldate & dates & " sn "

31 :     fm_date = finaldate & " "

32 : End Function

33 : %>