[VB6] Riempire un campo integer

[Surrender79]

Ciao, scusate la domanda banale e da principiante:
devo costruire una stringa di 12 caratteri composti da 2 campi numerici (integer e smallinteger).
La prima parte di stringa corrisponde al campo ORDL_CODE e deve essere di 8 caratteri, quindi devo aggiungere degli 0 a qst campo se è inferiore (es: ORDL_CODE = 299 deve diventare '00000299')
Stessa cosa con il secondo campo FASE che deve essere di 4 caratteri totali (es: FASE = 10 deve diventare '0010', ma ovviamente mi basta il primo esempio per poi agire su qst campo).

In base agli esempi sopra la mia stringa dovrà essere: 000002990010


Come si fa? :master:

[Johnny_Depp]

che versione di VB utilizzi? (bisogna specificarlo anche nel titolo)

[Surrender79]

Ok scusa: utilizzo VB6 (sp3)

[saraX]

'Dato num intero x, restituisce la stringa associata
'anteponendo tanti zero fino ad arrivare alla lunghezza num
Function putZero(ByVal x As Integer, ByVal num As Integer) As String

  putZero$ = Trim$(Str$(x))
  While Len(putZero$) < num
      putZero$ = "0" & putZero$
  Wend
End Function

ciao
Sara.

[Surrender79]

Grazie