[VB6] Replace di più valori in contemporanea

[pierchi]

Salve,

vi scrivo questo codice:

    mesenumero = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12")
    mesetesto = Array("Gen.", "Feb.", "Mar.", "Apr.", "Mag.", "Giu.", "Lug.", "Ago.", "Set.", "Ott.", "Nov.", "Dic.")
    mese = Replace(Month(Now), mesenumero, mesetesto)

Possibile che il metodo non funzioni?

In php facevo una cosa simile, mi chiedo se si può fare anche in visual basic.

Al momento mi da errore:
TIPO NON CORRISPONDENTE

ciao

[oregon]

In realtà non ho capito cosa vorresti fare. Spiegalo meglio, a parte il fatto della Replace ....

[optime]

vuoi ottenere la descrizione del mese corrente?

mese = mesetesto(month(now)-1)

[oregon]

O usi la Format

mese=Format(month(now), "mmm")

[oregon]

O usi la Format

mese=Format(month(now), "mmm")

P.S. Ma perché ti complichi la vita?

[pierchi]

vuoi ottenere la descrizione del mese corrente?

mese = mesetesto(month(now)-1)

questo va benissimo, volevo appunto ottenere il nome del mese scritto come volevo io.

Grazie

[optime]

optime!