usa questo codice per le date

[aledg]

questo codice è utilissimo per modificare le date a tuo piacimento:

ecco le istruzioni per utilizzarlo

1)copia tutto il codice dentro una pagina nuova senza fare nessuna modifica chiamiamola per esempio format_date.asp

2)nella pagina dove devi modificare la data formattandola a tuo piacimento includi la pagina con il codice quindi fai include ... format_date.asp (l'inclusione falla tra le prime righe della pagina)

3) per formattare la data ti basterà richiamare il nome della tua variabile dentro questa funzione

variabile_stampata = kaos_date("%D/%M/%Y", variabile_damodificare)


nelle prime righe di codice della pagina format_date trovi un glossario di tutte le possibili formattazioni. io uso db mysql e funziona benissimo

ecco il codice

<%
'##DATE FORMATTING OPTIONS KEY
'##-- Times --
'## %a = am or pm
'## %A = AM or PM
'## %g = hour of the day, 12hr format, no leading zeros: 1 to 12
'## %G = hour of the day, 12hr format: 01 to 12
'## %h = hour of the day, 24hr format, no leading zeros: 0 to 23
'## %H = hour of the day, 24hr format: 00 to 23
'## %t = minutes of the hour: 00 to 59
'## %T = seconds of the minute: 00 to 59

'##-- Dates --
'## %d = day of month, no leading zeros: 1 to 31
'## %D = day of month, 2 digits: 01 to 31
'## %s = day of month suffix: st, nd, rd, th
'## %S = day of month suffix, upper case: ST, ND, RD, TH
'## %e = day of week, abreviated: Sun, Mon, etc
'## %E = day of week, long form: Sunday
'## %w = day of week, as a single digit: 1 -sunday to 7 -saturday
'## %z = day of year: 0 to 365
'## %m = month, as digits without leading zeros: 1 to 12
'## %M = month, as 2 digits: 01 to 12
'## %n = month name, abreviated: Jan
'## %N = month name, long form: January
'## %y = year as 2 digits: 01
'## %Y = year as 4 digits: 2001


'## variabile_stampata = kaos_date("%D/%M/%Y", variabile_damodificare)






'# refer to documentation for options codes for the StringStructure
Function kaos_date(ByVal StringStructure,ByVal Timestamp)
'-- validate arguments --
If Not IsDate(Timestamp) Then 'invalid date
kaos_date = Timestamp
Exit Function
End If
If InStr(1,StringStructure,"%",0) = 0 Then 'invalid structure
kaos_date = Timestamp
Exit Function
End If
Dim zTmpDate1,zTmp1,zTmp2
zTmpDate1 = StringStructure
'# day of month / suffixes #
zTmp1 = Day(Timestamp) 'day of month number
Select Case zTmp1 'day suffix
Case 1,21,31
zTmp2 = "st"
Case 2,22
zTmp2 = "nd"
Case 3,23
zTmp2 = "rd"
Case Else
zTmp2 = "th"
End Select
zTmpDate1 = Replace(zTmpDate1,"%d",zTmp1,1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%D",Right(("0" & zTmp1),2),1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%s",zTmp2,1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%S",UCase(zTmp2),1,-1,0)
'# weekday name / number #
zTmp1 = Weekday(Timestamp)
zTmp2 = WeekdayName(zTmp1)
zTmpDate1 = Replace(zTmpDate1,"%e",Left(zTmp2,3),1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%E",zTmp2,1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%w",zTmp1,1,-1,0)
'# month name / number #
zTmp1 = Month(Timestamp)
zTmp2 = MonthName(zTmp1)
zTmpDate1 = Replace(zTmpDate1,"%m",zTmp1,1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%M",Right(("0" & zTmp1),2),1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%n",Left(zTmp2,3),1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%N",zTmp2,1,-1,0)
'# year / day of year #
zTmp1 = Year(Timestamp)
zTmpDate1 = Replace(zTmpDate1,"%y",Right(CStr(zTmp1),2),1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%Y",zTmp1,1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%z",DatePart("y",Timestamp),1,-1,0)

'# times #
'am/pm indicator
zTmp1 = Hour(Timestamp)
If zTmp1 < 12 Then
zTmp2 = "am"
Else
zTmp2 = "pm"
End If
zTmpDate1 = Replace(zTmpDate1,"%a",zTmp2,1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%A",UCase(zTmp2),1,-1,0)
'24hr hour number
zTmpDate1 = Replace(zTmpDate1,"%h",zTmp1,1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%H",Right(("0" & zTmp1),2),1,-1,0)
'12hr hour number
If zTmp1 > 12 Then
zTmp1 = zTmp1 - 12
End If
'hour 0 fix, courtesy of Bob Gregorius. thanks Bob
If zTmp1 = 0 Then
zTmp1 = 12
End If
zTmpDate1 = Replace(zTmpDate1,"%g",zTmp1,1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%G",Right(("0" & zTmp1),2),1,-1,0)
'minutes and seconds
zTmpDate1 = Replace(zTmpDate1,"%t",Right(("0" & Minute(Timestamp)),2),1,-1,0)
zTmpDate1 = Replace(zTmpDate1,"%T",Right(("0" & Second(Timestamp)),2),1,-1,0)

'# return the now parsed date string to the function #
kaos_date = zTmpDate1
End Function
%>

[aledg]

scusate volevo rispondere ad un post e invece ne ho creato per sbaglio uno nuovo

come mai non riesco a cancellarlo mi dice che il mio utente non è collegato al forum

[Santino83_02]

carina sta funzione potrebbe tornare utile..

non puoi cancellare post neanche se li apri te