[VB6] Replace di più valori in contemporanea

[optime]

vuoi ottenere la descrizione del mese corrente?

mese = mesetesto(month(now)-1)