Funktion isoCode(value, TypeIn, TypeOut)

Ulrich Sticker [Grutzeck Software GmbH]
25.10.2011 17:28
Beschreibung:

Die Funktion isoCode(value, TypeIn, TypeOut) ermittelt verschiedene Ländercodes in Abhängigkeit vom übergebenen Wert.
Folgende Werte werden Kodiert/Decodiert je nach Übergabe und wenn der korrespondierende Wert vorhanden ist:

0=Name des Landes
1=ISO 3166 ALPHA-2
2=ISO 3166 ALPHA-3
3=ISO 3166 Numerisch
4=TLD
5=IOC
6=ISO 3166-2
7=UN/LOCODE

Die Funktion isoCode(value, TypeIn, TypeOut) kann über die Funktionsbibliothek Standard1 für eigene Makros verfügbar gemacht werden. Hierzu muss nur die Funktionsbibliothek Standard1 unter Makroincludes im Bereich Administration importiert werden. Über die Anweisung MacroInclude "Standard1" sind alle in dieser Funktionsbibliothek bereitgestellten Funktionen dann im eigenen Makrocode beliebig oft verwendbar.

Anwendungsbeispiel:
MacroInclude "Standard1"                                                
wert=InputBox("Bitte Ländercode eingeben", "Ländercode", "DEU")
Msg = "Informationen zum Wert:" & wert & Chr(13) & "Land: "
Msg = Msg & isoCode(wert, 2, 0) & Chr(13) & "ISO-3166 Alpha2: "
Msg = Msg & isoCode(wert, 2, 1) & Chr(13) 
Msg = Msg & "ISO-3166 Alpha3: " & isoCode(wert, 2, 2) & Chr(13)
Msg = Msg & "ISO-3166 Numerisch: " & isoCode(wert, 2, 3) & Chr(13)
Msg = Msg & "Domainendung: " & isoCode(wert, 2, 4) & Chr(13) 
Msg = Msg & "IOC: " & isoCode(wert, 2, 5) & Chr(13) & "ISO-3166-2: "
Msg = Msg & isoCode(wert, 2, 5) & Chr(13) & "UN/LOCODE: " & isoCode(wert,2,1) & Chr(13)
MsgBox Msg

Gibt eine Messagebox mit allen für den Ländercode ermittelbaren werten aus.

Einrichtung:

Laden Sie sich die aktuelle Funktionsbibliothek Standard1 herunter und installieren Sie diese.

Vorraussetzungen:

Es muss mindestens AGVIP SQL Version 1.21.002 oder höher installiert sein um die Anweisung Macroinclude verwenden zu können.

Tags: Standard1
Durchschnittliche Bewertung: 0 (0 Abstimmungen)

Kommentieren nicht möglich