AW: [ASP] zahlen zerlegen

[markus tesch]

danke

...
Ergebnis = Right(Zahl, 3)
...

reicht vollkommen aus


-----Ursprüngliche Nachricht-----
Von: activeserverpages-admin@glengamoi.com
[mailto:activeserverpages-admin@glengamoi.com]Im Auftrag von Thomas
Bandt
Gesendet: Freitag, 14. Jänner 2005 16:03
An: activeserverpages@glengamoi.com
Betreff: AW: [ASP] zahlen zerlegen


Dim Zahl : Zahl = 20401003

Dim Ergebnis : Ergebnis = Right(Zahl, 3)

Dim ErgebnisOhneNull

If Left(Zahl,1) = 0 Then
	For i=1 To 3
		If Mid(Ergebnis,i) <> 0 Then
			ErgebnisOhneNull = ErgebnisOhneNull &
Mid(Ergebnis,i)
		End If
	Next
Else
	ErgebnisOhneNull = Ergebnis
End If

----------

Alle Syntax-Angaben ohne Gewähr, hab' lange nix mehr in VBScript
gemacht.

Gruß, Thomas

http://blogs.dotnetgerman.com/thomas/

> -----Ursprüngliche Nachricht-----
> Von: activeserverpages-admin@glengamoi.com
> [mailto:activeserverpages-admin@glengamoi.com] Im Auftrag von
> markus tesch
> Gesendet: Freitag, 14. Januar 2005 15:36
> An: activeserverpages@glengamoi.com
> Betreff: [ASP] zahlen zerlegen
>
> hallo leute,
>
> habe ein kleines zahlenproblem.
>
> ich bekomme eine zahl übermittelt und muß mir die letzten 3 ziffern
> rausholen und daraus wieder eine zahl bilden.
>
> zb.
> 20401003 --> 3
> 56899425 --> 425
>
> schätze das es eh eine einfache lösung gibt, aber mein hirn streikt.
>
> so long
> markus
>
> _______________________________________________
> ActiveServerPages Mailingliste, Postings senden an:
> ActiveServerPages@glengamoi.com
> An-/Abmeldung und Suchfunktion unter:
> http://www.glengamoi.com/mailman/listinfo/activeserverpages
>


_______________________________________________
ActiveServerPages Mailingliste, Postings senden an:
ActiveServerPages@glengamoi.com
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/activeserverpages