DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Function PostaKodu(strAdres As String) As String
Dim a, x, y, j As Long
Dim sayaç As Byte
Dim str As String
ReDim Dizi(4) As String
On Error GoTo SafeExit
strAdres = Trim(strAdres)
a = Len(strAdres)
For x = 1 To a
sayaç = 0
str = Mid(strAdres, x, 5)
For y = 0 To 4
Dizi(y) = Mid(str, y + 1, 1)
Next y
For j = 0 To 4
If Asc(Dizi(j)) < 58 And Asc(Dizi(j)) >= 48 Then
sayaç = sayaç + 1
End If
Next j
If sayaç = 5 Then
PostaKodu = Dizi(0) & Dizi(1) & Dizi(2) & Dizi(3) & Dizi(4)
Exit Function
End If
Next x
SafeExit:
Exit Function
End Function