Ofimática - Problemas con los formatos

Buenos días,

Estoy realizando una macro en la que recibo, como uno de los parámetros de un formulario, una fecha, con dicha fecha (dd/mm/yyyy) debo generar un nombre de archivo del estilo archivo_ddmmyyyy.txt. El problema que me encuentro es que los días y meses menores de 10 no consigo que se concatenen con dos dígitos, sino que siempre lo hacen con uno (sale archivo_772006.txt en vez de archivo_07072006.txt). Si alguien me pudiera echar una mano se lo agradecería.

Muchas gracias y un saludo.

podrias hacerlo trabajando por separado la fechay despues unirla por medio del texto por ejemplo if (month(now)< 10) then "0"&trim(month(now)) else month(now))

con eso despues lo agregas al dia y año

espero que te sirva.
atte
alejandro suarez.

que tal esto:

function dosdigitos(num)
dosdigitos=left(cstr(num*100),2)
end function

dim archivo

' si ponemos año, mes y dia los archivos siempre estaran ordenados
archivo=year(date) & dosdigitos(month(date)) & dosdigitos(day(date)) & ".txt"

Hola, quizás muy tarde respondo tu pregunta; pero igual te informo: que si te ocurre eso lo más simple es:
NombreArchivo = "archivo_" & Format$(Format$("dd",fecharecibida),"00") & Format(Format$("mm",fecharecibida),"00") & Format$("yyyyy",fecharecibida)
donde fecharecibida es la variable que recibes y NombreArchivo es el nuevo nombre que obtendrás....

Saludos,
Edwin Eduardo Robledo Gonzales
email: [email protected]