Mesi: nome e numero

[orcim]

Come faccio a sostituire il numero che contraddistingue un mese con il suo nome, ad esempio ricevo "8" devo trasformarlo in "Agosto" ?

grazie

[weppos]

http://www.weppos.com/asp/vbsdocs/fu..._monthname.asp

[orcim]

Originariamente inviato da weppos
http://www.weppos.com/asp/vbsdocs/fu..._monthname.asp

Scusa ma forse non mi sono spiegato... da un form si valorizza il numero del mese, ad esempio:

nrMese = request.form("nrMese")

in base a ciò che si valorizza devo associare il nome del mese.... arriva 8 devo stampare a video Agosto...

[optime]

mirko pigrone... se hai gia' il numero, ricava il nome da un array.

[Shagrat]

Originariamente inviato da orcim
Scusa ma forse non mi sono spiegato... da un form si valorizza il numero del mese, ad esempio:

nrMese = request.form("nrMese")

in base a ciò che si valorizza devo associare il nome del mese.... arriva 8 devo stampare a video Agosto...

Beh ma la funzione che ti ha segnalato weppos fa proprio quello...hai letto l'articolo??

[orcim]

L'ho letto ed adesso mi ha anche convinto:

nrMese = 4

response.write(MonthName(nrMese))&"
"
response.write(MonthName(nrMese, true))&"
"

[optime]

Originariamente inviato da orcim Ma qualcosa di più comodo...

A R R A Y

[orcim]

Originariamente inviato da optime
A R R A Y

Se intendi questo (sicuramente no...) non mi pare tanto più comodo...:

nrMese = 12
Dim NomeMese(12) 
NomeMese(1) = "Gennaio" 
NomeMese(2) = "Febbraio" 
NomeMese(3) = "Marzo" 
NomeMese(4) = "Aprile" 
NomeMese(5) = "Maggio" 
NomeMese(6) = "giugno" 
NomeMese(7) = "luglio" 
NomeMese(8) = "agosto" 
NomeMese(9) = "settembre" 
NomeMese(10) = "ottobre" 
NomeMese(11) = "novembre" 
NomeMese(12) = "dicembre"
 
Response.Write(NomeMese(nrMese))

:master:

[orcim]

Originariamente inviato da orcim
Se intendi questo (sicuramente no...) non mi pare tanto più comodo...:

nrMese = 12

Dim NomeMese(12) 
NomeMese(1) = "Gennaio" 
NomeMese(2) = "Febbraio" 
NomeMese(3) = "Marzo" 
NomeMese(4) = "Aprile" 
NomeMese(5) = "Maggio" 
NomeMese(6) = "Giugno" 
NomeMese(7) = "Luglio" 
NomeMese(8) = "Agosto" 
NomeMese(9) = "Settembre" 
NomeMese(10) = "Ottobre" 
NomeMese(11) = "Novembre" 
NomeMese(12) = "Dicembre"
 
Response.Write(NomeMese(nrMese))

:master:

[Shagrat]

A me sa proprio che optime intendesse proprio quello (occhio che quel codice ha un errorino devi dimensionare l'array a 13 non a 12)

Dim NomeMese(13)