sem contar o código do país.... tem algumas empresas que utilizam...
+55 (xxx) 1234-4321
String Telefone
Moderador: Moderadores
-
JoséQuintas
- Administrador
- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
String Telefone
Que tal simplificar....
Gravo CEP, CNPJ, CPF, IE, etc. contendo a formatação.
Na hora que preciso só números, uso a função SoNumeros(cCampo)
Gravo CEP, CNPJ, CPF, IE, etc. contendo a formatação.
Na hora que preciso só números, uso a função SoNumeros(cCampo)
Código: Selecionar todos
Function SoNumeros(cCampo)
Local cResultado := "", nCont := 0, cLetra := ""
For nCont = 1 To Len(cCampo)
cLetra := Substr(cCampo,nCont,1)
If cLetra $ "0123456789"
cResultado += cLetra
Endif
Next
Return cResultado
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
String Telefone
Pessoal... apenas complementando... agora em SP os celulares tem o 9º (nono) dígito...
Exemplo para números antigos... se o cara tinha o celular (11) 9234-5678 ficou assim: (11) 99234-5674
[]´s
Exemplo para números antigos... se o cara tinha o celular (11) 9234-5678 ficou assim: (11) 99234-5674
[]´s
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
-
sygecom
- Administrador
- Mensagens: 7131
- Registrado em: 21 Jul 2006 10:12
- Localização: Alvorada-RS
- Contato:
String Telefone
Olá Pessoal,
Aproveitando o tópico, sabem me dizer se vai mudar para todos os celulares do estado de São Paulo, ou apenas para os DDD 11 ?
Aproveitando o tópico, sabem me dizer se vai mudar para todos os celulares do estado de São Paulo, ou apenas para os DDD 11 ?
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
xHarbour.org + Hwgui + PostgreSql
-
sygecom
- Administrador
- Mensagens: 7131
- Registrado em: 21 Jul 2006 10:12
- Localização: Alvorada-RS
- Contato:
String Telefone
Já achei, obrigado a todos.
http://www.anatel.gov.br/Portal/exibirP ... 20D%EDgito
http://www.anatel.gov.br/Portal/exibirP ... 20D%EDgito
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
xHarbour.org + Hwgui + PostgreSql