Concatenar dos o más variables con ceros a la izquierda

Si me pueden ayudar, se tiene 2 variables con valores numéricos (mes=2 y numero=1), se desea concatenar las 2 variables de tal forma que ambas variables se rellenen con ceros a la izquierda, por ejemplo: 020001. Que la variable mes tenga un cero y la variable numero llegue a 4 dígitos con los ceros.

1 respuesta

Respuesta
2

Prueba lo siguiente:

Sub test()
  Dim mes As Long
  Dim numero As Long
  Dim nvaVariable As String
  '
  mes = 2
  numero = 1
  nvaVariable = Format(mes, "00") & Format(numero, "0000")
  MsgBox nvaVariable
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas