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: 20419
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
- Curtiram: 1 vez
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, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (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, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (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: 7135
- 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: 7135
- 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