Consejo para mostrar fecha actual en VBA... Pregunta para experto Luis Mondelo
Tengo la siguiente linea de código:
fecha = Day(Date) & " de " & MonthName(Month(Date)) & " del " & Year(Date)
De tal manera que me genere la fecha de la así "20 de noviembre del 2012"
Pero cuando el día es entre el 01 y el 09, lo genera de la siguiente manera ; "1 de abril del 2012"
Lo que yo quisiera es que para el caso de esas fechas: genere así "01 de abril del 2012", osea con el "cero" adelante.
Muchas gracias
1 Respuesta
Respuesta de Luis Mondelo
1
Esta sería la solución:
sub ponerfecha()
if day(date) < 10
fecha = "0" & Day(Date) & " de " & MonthName(Month(Date)) & " del " & Year(Date)
else
fecha = Day(Date) & " de " & MonthName(Month(Date)) & " del " & Year(Date)
end if
activecell.value = fecha 'lo volcamos a una celda para probarlo
end sub
