Standardwert bestimmen!

[dey]

Servus Frank

89  ->   Muster 0000   --> 0089
originalWert = 89
laengeMuster = 4
PaddingChar = "0"

tmpLaengeWertChars = Len(CStr(originalWert))
differenzChars = laengeMuster - tmpLaengeWertChars
'String(Zahl, Zeichen)
fertigerWert = CStr(String(differenzChars,PaddingChar) & originalWert)

So oder so ähnlich hätte ich es in VBS auch gemacht. Ich war nicht sicher ob padden in irgendeiner Sprache ein Kommando sein könnte, so a'la

fertigerWert = padden(originalWert, laengeMuster, PaddingChar)

Hätte ja sein können. Man kann ja nicht alles wissen!?

bydey