Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: telefonnummer formatieren
Autor: Jan99
Datum: 06.04.05 15:09
hi ! habe soeben bei spotlight folgendes gefunden: Public Function FormatTelefon(ByVal S) FormatTelefon = S If Not IsNull(S) Then Dim Res As String, I As Long, G As Boolean, Ch As String S = Replace(S, " ", "") G = True For I = Len(S) To 1 Step -1 Ch = Mid(S, I, 1) If (Ch = "/" Or Ch = "-") And Not G Then Res = " " & Res G = Not G If Ch = "/" Or Ch = "-" Then G = True Res = Ch & Res If G And I > 1 Then Res = " " & Res Next I FormatTelefon = Res End If End Function gruß Jan Visual Basic 6.0 Grundkenntnisse und ansonsten alles rund um AutoCAD

telefonnummer formatieren	2.936	Jan99	06.04.05 13:41
Re: telefonnummer formatieren	1.591	Lord_Duke	06.04.05 14:03
Re: telefonnummer formatieren	1.462	stefot888	06.04.05 14:51
Re: telefonnummer formatieren	1.565	Jan99	06.04.05 15:09

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen