Saltar al contenido

Convertir fecha en cadena de caracteres

publicado

Buenos días a todos. Necesito convertir una celda donde tengo una fecha en una cadena de caracteres. El problema es no quiero que elimine los 0 a la izquierda. Por ejemplo 01/07/2022 debería convertirse a 20220701, sin embargo solo consigo que se convierta en 202271. Este es el código simpe que he puesto y que luego lo he de adaptar con bucles y demás.

La fecha la tengo en la celda B1 y he de convertirla  en la celda B2 

Sub fecha_inicio()

anyo = Year(Sheets("Repsol").Range("B1"))
mes = Month(Sheets("Repsol").Range("B1"))
dia = Day(Sheets("Repsol").Range("B1"))

Sheets("Repsol").Range("B2") = anyo & mes & dia

End Sub

Gracias.

Featured Replies

publicado
  • Autor
Hace 28 minutos , Gerson Pineda dijo:

Hola

Prueba así: 

mifecha = VBA.Format(Sheets("Repsol").Range("B1"), "yyyymmdd")

 

@Gerson Pineda, gracias. Era lo que necesitaba.

He adaptado el código a mi programa. 

Sub periodo_inicio()

With Sheets("Repsol")
  anyo = Year(.Range("B1"))
  mes = Month(.Range("B1"))
  dia = Day(.Range("B1"))
  
  mifecha = VBA.Format(.Range("B1"), "yyyymmdd")
 .Range("B2") = mifecha
End With

End Sub

 

publicado

También: 

Sub fecha_inicio()

anyo = Year(Sheets("Repsol").Range("B1"))
mes = Format(Month(Sheets("Repsol").Range("B1")), "00")
dia = Format(Day(Sheets("Repsol").Range("B1")), "00")

Sheets("Repsol").Range("B2") = anyo & mes & dia

End Sub

 

publicado
  • Autor
Hace 57 minutos , Antoni dijo:

También: 

Sub fecha_inicio()

anyo = Year(Sheets("Repsol").Range("B1"))
mes = Format(Month(Sheets("Repsol").Range("B1")), "00")
dia = Format(Day(Sheets("Repsol").Range("B1")), "00")

Sheets("Repsol").Range("B2") = anyo & mes & dia

End Sub

 

Gracias @Antonio. 

 

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas