[vb6] formattare numero a 2 cifre

[ghiboz]

ciao! devo formattare un numero in una stringa in modo da ottenere sempre 2 cifre, esempio se ho 12 vedrò 12, ma se ho 6 vorrei vedere 06...
come fare???
tnx!

[stebux]

io farei in questo modo, non so se sia il migliore ma è l'unico che conosco e che userei anche io:

if len(text1)<2 then
      
     text1="0" & text1

end if

spero di esserti stato utile

[LMondi]

Se hai nella form diversi Txt potresti usare una funzione, così:

Public Function Ctr(strTesto As String)
On Error Resume Next
        If Len(strTesto) < 2 Then
                Ctr = CStr("0" & strTesto)
            Else: Ctr = (strTesto)
        End If
End Function
-----------------------------------------
Private Sub Command1_Click()
    Text2.Text = Ctr(Text1.Text)

End Sub

Ciao.

[Jupy64]

ciao, un'alternativa potrebbe essere questa:

strNumero = Right$("0" & Text1.Text, 2)