Rellena Izquierda

Estimated reading: 1 minute 477 views

DESCRIPCIÓN:

Anexa por la izquierda a la cadena ValorOrigen caracteres indicicados en Condicion1Valor hasta que se complete un tamaño de cadena igual al valor indicado en Factor.

EJEMPLO:

ValorOrigen: “12345”

Condicion1Valor: “0”

Factor: “10”

ValorProcesado: “0000012345”

Tipo	Valor
Valor
Valor2
Relacion
Relacion2
Operacion	Rellena izquierda
Factor	10

				
					If ValorOrigen <> “” Then

If (ValorOrigen.Length() < CInt(Factor)) Then

Dim cantidadARellenar As Integer = CInt(Factor) – ValorOrigen.Length()

Dim cadenaFinal As String = “”

For i As Integer = 0 To cantidadARellenar – 1

cadenaFinal += Condicion1Valor

Next

ValorProcesado = cadenaFinal + ValorOrigen

Else

ValorProcesado = ValorOrigen

End If

End If