| XML Kiosk |
| Technologie | XAS.Technology | Version | V 6.0.1 |
| Dernière modification | Jeudi 14 Janvier 2010 | Par | Zaïr BEZGHICHE |
| Dernière vérification | Mardi 26 Janvier 2010 | Par | Support France |
| Thème | Administration des comptes, (Web, Web Services, PDA, WidGet, Fat Client) | Fonction | CHECKMOD.checkFrenchPostalCode |
| Prototype |
| Function checkFrenchPostalCode (postalCode As String) As Integer |
| Usage | |||
| Administration-des-comptes.checkFrenchPostalCode(...) | |||
| HTTP (GET,POST) | SOAP WSDL | SOAP REST | XML-RPC |
| Format de sortie | |||
| XML | HTML | TEXT | EXCEL(CSV) |
| Code Source - développement open source |
| Function checkFrenchPostalCode (postalCode As String) As Integer |
Function checkFrenchPostalCode (postalCode As String) As Integer
checkFrenchPostalCode = True
If Len(postalCode) <> 5 Then
checkFrenchPostalCode = False
Exit Function
End If
If Asc(Mid(postalCode, 1, 1)) < 48 Or Asc(Mid(postalCode, 1, 1)) > 57 Then
checkFrenchPostalCode = False
Exit Function
End If
If Asc(Mid(postalCode, 2, 1)) < 48 Or Asc(Mid(postalCode, 2, 1)) > 57 Then
checkFrenchPostalCode = False
Exit Function
End If
If Asc(Mid(postalCode, 3, 1)) < 48 Or Asc(Mid(postalCode, 3, 1)) > 57 Then
checkFrenchPostalCode = False
Exit Function
End If
If Asc(Mid(postalCode, 4, 1)) < 48 Or Asc(Mid(postalCode, 4, 1)) > 57 Then
checkFrenchPostalCode = False
Exit Function
End If
If Asc(Mid(postalCode, 5, 1)) < 48 Or Asc(Mid(postalCode, 5, 1)) > 57 Then
checkFrenchPostalCode = False
Exit Function
End If
End Function
|
| Références XAS.Technology |
| Len , Asc , Mid , |
| Audience |
| Cette documentation est destinée aux personnes s'intéressant aux systèmes d'information collaboratifs. Les Webservices, les architectures collabortives et distribuées, les moteurs transactionnelles et les concepts de programmation orientés objet. |
| XAS Services - Zaïr BEZGHICHE - Copyright 1991-2011 tous droits réservés- Powered by XAS.Technology |