|
Function fixlength(what$, length as integer) as String
Dim x as integer,diff as integer x = len(what$) If x = < length Then diff= length - diff While x < length what$ = "0" & what$ x = len(what$) Wend fixlength = what$ Else fixlength = what$ End If End Function |