Как добавить наль перед цифрой

[step]

If Len(milisec) = 1 Then milisec = "0" & milisec
If Len(secund) = 1 Then secund = "0" & secund
If Len(minut) = 1 Then minut = "0" & minut
If Len(chasi) = 1 Then chasi = "0" & chasi

If chasi >= 60 Then chasi = "00"
If minut >= 60 Then minut = "00": chasi = chasi + 1
If secund >= 60 Then secund = "00": minut = minut + 1
If milisec >= 100 Then milisec = "00": secund = secund + 1
milisec = milisec + 1
Label6.Caption = chasi & ":" & minut & ":" & secund & ":" & milisec

Как сделать, чтобы в Label6.Caption печаталось "00:01:02:03"
т.е. что-бы если число 1-9, то перед ним ставить 0.

[Konst_One]

Код: Выделить всё

s=Format(Chislo,"00")

[uhm]

Используй функцию Format (см. хелп по ней)

[Zer]

Да уж... Я помню очень давно исходя из длинны добавлял n-ое кол-во нулей... Надо-ж было так извращатся...

[Inferno]

Код: Выделить всё

Private Sub Form_Load()
  dim Number as integer
  Number=1
  MsgBox "0" & Str(Number)
End Sub


[alibek]

Код: Выделить всё

Const PadSize As Long = 3
Number = 2
MsgBox Right$(String$(PadSize, "0") & Trim$(Str$(Number)), PadSize)


А вообще можно сходить на кирпичный завод, там парсер есть текстовый с кучей дополнительных функций.

[step]

Спасибо всем! Это то, что я искал!!!