Newsgroup: it.comp.www.asp
Titolo: le date a modo mio...

ho sempre avuto il problema della formattazione delle date ma adesso l'ho
risolto così:
function nomegiorno(data)
	select case weekday(data,2)
		case 1
			nomegiorno = "lunedì"
		case 2
			nomegiorno = "martedì"
		case 3
			nomegiorno = "mercoledì"
		case 4
			nomegiorno = "giovedì"
		case 5
			nomegiorno = "venerdì"
		case 6
			nomegiorno = "sabato"
		case 7
			nomegiorno = "domenica"
	end select
end function
 
function nomemese(data)
	select case month(data)
		case 1
			nomemese = "gennaio"
		case 2
			nomemese = "febbraio"
		case 3
			nomemese = "marzo"
		case 4
			nomemese = "aprile"
		case 5
			nomemese = "maggio"
		case 6
			nomemese = "giugno"
		case 7
			nomemese = "luglio"
		case 8
			nomemese = "agosto"
		case 9
			nomemese = "settembre"
		case 10
			nomemese = "ottobre"
		case 11
			nomemese = "novembre"
		case 12
			nomemese = "dicembre"
	end select
end function
function dataestesa(giorno, formato)
  formato = replace(formato, "yyyy", year(giorno))
  formato = replace(formato, "yy", right(year(giorno), 2))
  formato = replace(formato, "mmmm", nomemese(giorno))
  formato = replace(formato, "mmm", left(nomemese(giorno), 3))
  formato = replace(formato, "mm", right("0" & month(giorno), 2))
  formato = replace(formato, "dddd", nomegiorno(giorno))
  formato = replace(formato, "ddd", left(nomegiorno(giorno), 3))
  formato = replace(formato, "dd", right("0" & day(giorno), 2))
  dataestesa = formato
end function
quindi se voglio una data così "martedì 19 giugno 2001" basterà scrivere
datastesa(cdate("19/06/2001"), "dddd dd mmmm yyyy")
per "mar 19 giu 2001"
datastesa(cdate("19/06/2001"), "ddd dd mmm yyyy")
ma lo trovo comodo soprattuto per le date prese da un database...
spero possa servire a qualcuno!
Saluti. Carlo.
--
Per rispondere via e-mail
togliere TOGLIMI dall'indirizzo.
E-mail: 
carl...@tiscalinet.it
Foglio Excel sulle tariffe telefoniche
Web I : 
http://web.tiscalinet.it/carlonike
    II: 
http://dadacasa.supereva.it/carlo_nike/
Scrivi il senso dei tuoi messaggi già nell'oggetto,
sarà più facile ottenere le risposte che cerchi.

 end function
[cut]
beh invece di tutti quei CASE se utilizzi un array riduci di molto il
codice:
function nomegiorno(data)
    giorni = "0, Lunedě, Martedě, Mercoledě, Giovedě, Venerdě, Sabato,
Domenica"
    arrayGiorni = Split(giorni, ", ")
    nomegiorno = arrayGiorni(weekday(data,2))
    Erase arrayGiorni    'un po' di pulizia non fa mai male :o)
end function
idem per i mesi
ciao
--
Kappa
kappa**nospam**@
webngo.net
www.webngo.net

 ha scritto:
} beh invece di tutti quei CASE se utilizzi un array riduci di molto il
} codice:
in effetti tutto si può ridurre con:
function dataestesa(giorno, formato)
  giorni = "0, lunedì, martedì, mercoledì, giovedì, venerdì, sabato, domenica"
  arrayGiorni = Split(giorni, ", ")
  nomegiorno = arrayGiorni(weekday(giorno,2))
 
  mesi = "0, gennaio, febbraio, marzo, aprile, maggio, giugno, luglio, agosto,
settembre, ottobre, novembre, dicembre"
  arrayMesi = Split(mesi, ", ")
  nomemese = arrayMesi(month(giorno))
  formato = replace(formato, "yyyy", year(giorno))
  formato = replace(formato, "yy", right(year(giorno), 2))
  formato = replace(formato, "mmmm", nomemese)
  formato = replace(formato, "mmm", left(nomemese, 3))
  formato = replace(formato, "mm", right("0" & month(giorno), 2))
  formato = replace(formato, "dddd", nomegiorno)
  formato = replace(formato, "ddd", left(nomegiorno, 3))
  formato = replace(formato, "dd", right("0" & day(giorno), 2))
  dataestesa = formato
  Erase arrayGiorni
  erase arraymesi
end function
