Grundlagen der Programmierung mit VBA Visual Basic for

Für Zahlen mit 28 Dezimalstellen gilt der Bereich
+/-7,9228162514264337593543950335.
Die kleinste mögliche Zahl ungleich Null ist
0,0000000000000000000000000001.
CInt Integer -32.768 bis 32.767; Nachkommastellen werden gerundet.
CLng Long -2.147.483.648 bis 2.147.483.647; Nachkommastellen werden
gerundet.
CSng Single -3,402823E38 bis -1,401298E-45 für negative Werte;
1,401298E-45 bis 3,402823E38 für positive Werte.
Cvar Variant Numerische Werte im Bereich des Typs Double.
Nichtnumerische Werte im Bereich des Typs String.
CStr String Rückgabe für CStr hängt vom Argument Arg ab.
3.4.4 selbstdefinierte Datentypen
Selbstdefinierte Datentypen sind auch als Record (vgl. FORTRAN 90) oder Structure (vgl. C) bekannt.
Ein Record ist die Zusammenfassung mehrerer unterschiedlicher Datentypen unter einem Namen, im
Gegensatz zum Array.
Syntax
[Public|Private]Type Name
Name1 As Typ
Name2 As Typ
...
End Type
Parameter Verwendung
Name Name des Records
NameN Namen der einzelnen Variablen des Records
Typ Datentyp der einzelnen Variablen
> Der Typ eines Records muß grundsätzlich auf Modulebene, vor der ersten Prozedur definiert
werden.
> Zur Verwendung von Records müssen Variablen seines Typs deklariert werden.
> Variablen eines Records werden wie Eigenschaften eines Objektes angesprochen: Name.Var
> Records können auch Elemente eines Arrays sein.
> Records können untereinander als Ganzes verglichen werden.
Beispiel. Einfache Mitarbeiter-Datenbank.
Type TypeMitArb
LfdNr As Long
Name As String
GebDat As Date
Gehalt As Currency
End Type
Sub Mitarbeiter()
' einfache Mitarbeiter-Datenbank
Dim MitArb(10) As TypeMitArb
Dim msg As String
MitArb(0).LfdNr = 10001 ' Stamm-Nummer
MitArb(0).Name = "Mustermann" ' Name
MitArb(0).GebDat = "1/15/2000" ' Achtung: Monat/Tag/Jahr
MitArb(0).Gehalt = 6200# ' Gehalt
msg = CStr(MitArb(0).LfdNr) & MitArb(0).Name & _
CStr(MitArb(0).GebDat) & CStr(MitArb(0).Gehalt)
MsgBox msg
End Sub
31