data con lo zero davanti se ad una cifra

[MrRam]

ciao, ho il seguente problema, ho una data che mi costruisco così:

UltimoMese = DateAdd("m", -1, date())
annomese = trim(year(UltimoMese))
mesemese = trim(month(UltimoMese))
giornomese = trim(day(UltimoMese))
DataUltimoMese = mesemese & "/" & giornomese & "/" & annomese

il problema è che vorrei ottenere date con lo zero davanti, mi spiego:

ottengo 9/10/2007, vorrei ottenere 09/10/2007.
Ovviamente se si tratta di mesi a due cifre, rimangono tali.

Avete un idea??

Grazie mille.

[MrRam]

up up go go ..

[optime]

Originariamente inviato da MrRam
up up go go ..

non capisco. che vuol dire "up up go go"

[MrRam]

vuol dire che mando nuovamente all'attenzione della community il mio problema.

ciao.

[Mems]

mese = 9
if mese < 10 then mese = "0" & mese

[MrRam]

così non funziona ... ho provato ma ancora senza lo zero:

giornomese = day(UltimoMese)
if giornomese < 10 then
giornomese = ("0" & giornomese)
end if

Quanlcuno ha un'idea?

[optime]

if cint(giornomese)<10 then

oppure

giornomese=right("00" & giornomese, 2)

[MrRam]

ciao, purtroppo così non funziona ...

ho provato in entrmbi i modi ... nn ho + idee..

[Mems]

Ci fai vedere cosa hai scritto?

[MrRam]

Adesso ho scritto così:

UltimoMese = DateAdd("m", -1, date())
annomese = year(UltimoMese)
mesemese = month(UltimoMese)
if mesemese = right("00" & month(UltimoMese), 2) then
mesemese = ("0" & mesemese)
end if
giornomese = day(UltimoMese)
if giornomese = right("00" & day(UltimoMese), 2) then
giornomese = ("0" & giornomese)
end if
DataUltimoMese = mesemese & "/" & giornomese & "/" & annomese

Ho provato anche a mettere:

if cint(xxx)<10 then

ma il risultato è sempre lo stesso, non vedo lo zero davanti al mese ed al giorno.

Grazie a tutti.