קאנווערטן פאון נומבער'ס צו פאון נומבער פארמאט
די אחראים: זייער נייגעריג,אחראי,thefact
- פאטאקי08
- שר עשרת אלפים
- תגובות: 13865
- זיך איינגעשריבן אום: דאנערשטאג אוגוסט 09, 2007 1:30 pm
- פארבינד זיך:
קאנווערטן פאון נומבער'ס צו פאון נומבער פארמאט
איך האב א דעטע בעיס מיט פאון נומבערס אבער סאיז נישט אויסגשטעלט לויט א פאון נומער פארמאט
אסאך האבן נישט קיין עריע קאוד און אפילו ווער סהאט יא שטייט עס אדער אזוי 212-555-1212
אדער
(212)555-1212 אן קיין ספעיס אינצווישען
ווי אזוי קען איך אויך א גרינגען אויפן זיי קאנווערטן צו א פאון נומער פארמאט אן דארפן איבער גיין אלע איבער טויזענט נומערן?
אסאך האבן נישט קיין עריע קאוד און אפילו ווער סהאט יא שטייט עס אדער אזוי 212-555-1212
אדער
(212)555-1212 אן קיין ספעיס אינצווישען
ווי אזוי קען איך אויך א גרינגען אויפן זיי קאנווערטן צו א פאון נומער פארמאט אן דארפן איבער גיין אלע איבער טויזענט נומערן?
- thefact
- שר האלפיים
- תגובות: 2511
- זיך איינגעשריבן אום: מיטוואך יאנואר 31, 2007 3:30 pm
- לאקאציע: וויליאמסבורג, ברוקלין
- פארבינד זיך:
לייג דעס אריין אין א MODULE (אין די מאדיועל וועט עס זיין געהעריג ליינבאר)
און לייג דעס אריין אין די קווערי
[align=left]
Function ConvertPhone(Phone As String)
On Error GoTo ConvertPhone_err
Dim PhoneLen As Integer
Phone = Replace(Phone, " ", "")
Phone = Replace(Phone, "(", "")
Phone = Replace(Phone, ")", "")
Phone = Replace(Phone, "-", "")
PhoneLen = Len(Phone)
Select Case PhoneLen
Case 7
ConvertPhone = "( ) " & Left(Phone, 3) & _
"-" & Right(Phone, 4)
Case 10
ConvertPhone = "(" & Left(Phone, 3) & ") " _
& Mid(Phone, 4, 3) & _
"-" & Right(Phone, 4)
End Select
Exit Function
ConvertPhone_err:
MsgBox CStr(Error) & " " & Error(Err)
Exit Function
End Function
[/align]
און לייג דעס אריין אין די קווערי
[align=left]
NewPhone: ConvertPhone([OriginalNumber])
[/align]