Microsoft Office Access 2007-Programmierung - Das Handbuch

BEISPIEL

BEISPIEL

BEISPIEL

Die ersten zehn Zeichen eines Strings werden beseitigt.

Dim s1 As String

s1 = "Das Große Access-Buch"

s1 = Mid$(s1,11) ' "Access-Buch"

Ein String wird am Trennzeichen »-« in Teilstrings zerlegt und anschließend (ohne Trennzeichen) wieder zu-

sammengefügt.

Dim a() As String ' dynamisches Array (unterster Feldindex = 0 !)

Dim s As String

s = "Alle Vögel - sind – schon da!"

a = Split(s, "-")

MsgBox a(2) ' "schon da!"

s = Join(a, "")

MsgBox s ' "Alle Vögel sind schon da!"

Bemerkungen

■ Der (optionale) start-Parameter der Instr-Funktion beginnt immer mit 1.

■ Vorsicht beim Umgang mit der Val-Funktion, denn sie berücksichtigt nicht die Ländereinstellungen.

Format-Funktion

Mit dieser Funktion können Sie die unterschiedlichsten Datentypen in eine Zeichenkette verwandeln. Auf-

grund der großen Vielfalt an Formatierungsstrings ergeben sich verschiedenste Darstellungsmöglichkeiten

für Zahlen, Strings, Währungen und Datums-/Zeitangaben. Auf letztere werden wir erst später näher einge-

hen.

Die Syntax:

Format(Ausdruck[, Formatstring])

Wird der Formatierungsstring weggelassen, so liefert die Format$-Funktion dasselbe Ergebnis wie die Str$-

Funktion. Allerdings fehlt bei positiven Zahlen das (ansonsten für das Vorzeichen reservierte) führende

Leerzeichen.

Ein Vergleich zeigt den Unterschied.

? Str$(35) ' liefert " 35" (man beachte das Leerzeichen am Anfang!)

? Format$(35) ' ergibt "35"

103

Zeichenkettenfunktionen

BEISPIEL

Kapitel 2: Programmieren mit VBA

Standardformate

Für die am häufigsten benötigten Formatierungen stellt VBA eine Reihe von vordefinierten Stringkonstan-

ten bereit:

Formatierung Erläuterung

Standard Darstellung mit Tausender-Trennzeichen (.) und mindestens zwei Nachkommastellen.

General Number Normaldarstellung, ohne Tausender-Trennzeichen (.)

Fixed Darstellung mit mindestens einer Vor- und mindestens zwei Nachkommastellen

Currency Währungsformat

Percent Prozentdarstellung

Scientific Wissenschaftliche Notation

Yes/No 0 => Nein, sonst Ja

True/False 0 => Falsch, sonst Wahr

On/Off 0 => Aus, sonst Ein

Tabelle 2.12 Bezeichner zur Formatierung

Die Anweisungsfolge:

Dim geld As Double

geld = 12.6857

MsgBox Format$(geld, "Currency") ' ergibt "12.69 Euro"

Nutzerdefinierte Formate

Zeichen Erläuterung

"" (Leerstring) formatfreie Zahlenausgabe

0 Platzhalter, zeigt die Zahl 0 oder ein anderes Zeichen

# Platzhalter, zeigt nichts oder ein Zeichen

. (Punkt) Dezimaltrennzeichen, bestimmt die Vor- und Nachkommastellen

% Prozentplatzhalter, multipliziert die Anzeige mit 100

Zeichen Erläuterung

, (Komma) Tausender-Trennzeichen, für Zahlen mit vier und mehr Stellen vor dem Dezimaltrennzeichen

E- E+ e– e+ wissenschaftliches Format

– + $ ( ) Leerzeichen Diese Zeichen werden direkt angezeigt.

\ Das nachfolgende Zeichen wird angezeigt.

Tabelle 2.13 Benutzerdefinierte Formate

104