'---------------------------------------------------------------------------
----
' Stellt je nach Bedarf "0"llen vor einen String
'---------------------------------------------------------------------------
----
Function FillWithZeros(DerString As String, Stellen As Integer)
Dim AnzahlNullen As Integer, Zaehler As Integer
If Len(DerString) < Stellen Then
AnzahlNullen = Stellen - Len(DerString)
For Zaehler = 1 To AnzahlNullen
FillWithZeros = FillWithZeros & "0"
Next
End If
FillWithZeros = FillWithZeros & DerString
End Function
muss ncoh auf VBScript angepasset werden, moment:
'---------------------------------------------------------------------------
----
' Stellt je nach Bedarf "0"llen vor einen String
'---------------------------------------------------------------------------
----
Function FillWithZeros(DerString, Stellen)
Dim AnzahlNullen, Zaehler
If Len(DerString) < Stellen Then
AnzahlNullen = Stellen - Len(DerString)
For Zaehler = 1 To AnzahlNullen
FillWithZeros = FillWithZeros & "0"
Next
End If
FillWithZeros = FillWithZeros & DerString
End Function
Andreas Roth
--------------------------------------
[EMAIL PROTECTED] *jetzt mit Chat*
http://www.EuphoriasChild.DarkTech.org
--------------------------------------
> -----Urspr�ngliche Nachricht-----
> Von: Steppel [mailto:[EMAIL PROTECTED]]
> Gesendet: Donnerstag, 20. Dezember 2001 13:45
> An: AspGerman Kaffeehaus
> Betreff: [aspdecoffeehouse] 2-Stellig
>
>
> Hi,
>
> wie formatiere ich eine zahl das sie immer 2 stellig ist,
> falls sie nur eine
> stelle hat soll eine null davor, wie geht sowas?
>
> gruss
> steppel
>
>
> | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
> | Sie k�nnen sich unter folgender URL an- und abmelden:
> |
> http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffee
> house.asp
>
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
