Postada em 09/12/2009 13:04 hs
Amigo, pelo que pude entender da sua explicação, construi essa função:
Public Function CompletaString(ByVal Casas As Integer, ByVal CasaD As String, ByVal Digito As String) As String
Dim Resultado As String = ""
Dim QuantosDigitos As Integer = Casas - Len(CasaD)
Dim i As Integer
Dim AcrescentaString As String = ""
For i = 1 To QuantosDigitos
AcrescentaString &= Digito
Next
Resultado = CasaD & AcrescentaString
Return Resultado
End Function
Parâmetros:
Casas --> recebe a quantidade de casas que deve possuir a string resultante
CasaD --> recebe a string original
Digito --> recebe o dígito que deve ser acrescentado na frente da string original
Espero que lhe ajude essa função.
Abraços!
|
