fm_Date() ASP Readable Date Range Function

26.02.2004

Okuyucu : 3.662
Günlük Okuyucu : 2,3

Kaynak Kodunu Download Edin (Download Source Code);

/opensource/source-code/fm-date-ranges.txt

Kaynak Kod;

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 : %>
Source Script is modified version of HiLiter
Ferruh Mavituna
© 2002-2007, Ferruh Mavituna

Sabit IP Adresi : 81.22.99.133, SSL Erişimi, Hakkında