De: 'Marcelosn - IG - SP' Enviado: Thu May 5 9:20
Para: Prioridade: Normal
Assunto: Saber Agencia e tipo do CEP Tipo: Embeded HTML/Text
Segue uma função que montei para os Correios:
A mesma identifica o local centralizador / Recebedor dos Correios.
Identificar o tipo de CEP: Cx. Postal / CEP Normal / CEP Promocional / CEP Especial.....
Neste caso podemos informar ao usuário a origem do CEP e qual são os estado que os correios atendem e até
saber (noção) do tempo para entrega da correspondência
Function IdCEP(CEP As String)
Dim AA, BB, CC, DD
AA = Left$(cep, 1)
BB = Right$(cep, 3)
Select Case AA ' Avalia Número.
Case 0
CC = "Grande São Paulo - Sede SP"
Case 1
CC = "São Paulo - Sede: Santos"
Case 2
CC = "Rio de Janeiro / Espirito Santos - "
Case 3
CC = "Minas Gerais - Sede: BH"
Case 4
CC = "Bahia / Sergipe - Sede Sobrado"
Case 5
CC = "PE /AL / PB / RN - Sede Recife"
Case 6
CC = "CE / PI / MA / AM / AC / AP / RR :Sede: Fortaleza"
Case 7
CC = "DF / GO / TO / MT / MS / RO :Sede: Brasilia"
Case 8
CC = "PR / SC :Sede: CURITIBA"
Case 9
CC = "RS :Sede: POA"
Case Else ' Outros valores.
MsgBox "Sem Rerefencia do Estado"
End Select
Select Case BB ' Avalia Número.
Case 0 To 899
DD = "Faixa de CEP Normal"
Case 900 To 959
DD = "Cep Especiais"
Case 960 To 969
DD = "Cep Promocionais"
Case 970 To 989
DD = "Unidades dos Correios"
Case 999
DD = "Unidades dos Correios"
Case 990 To 998
DD = "Caixa Postal"
Case Else ' Outros valores.
MsgBox "Sem referencia do final do CEP"
End Select
MsgBox "Local recebedor dos Correios para distribuir: " & CC & vbCrLf & "Refer. " & DD
End Function
|