'Attribute VB_Name = "mdl_arrDatensatz"
'Array Type Datensatz'
Option Explicit
' ---------------------------------------------------------
' Beispiel: Type arrDatenSatz
' Eingestellt von: Andre Schau
' Datum: 5. Juno 2006
' Kommentar: Array-Type
' Parameter:
' Rückgabe:
'
' Zeigt die Verwendung von Arrays in Kombination mit Type
' und unterschiedlichen Datentypen im Array
' ---------------------------------------------------------
Public Type arrDatenSatz
Name As String
Vorname As String
Geburtstag As Date
Alter As Integer
Krank As Boolean
Kontostand As Currency
End Type

Sub fill_ArrDatenSatz()
'Variablendeklarationen
'arrDatebSatz
Dim Kunde(2) As arrDatenSatz
'Werte zuweisen
Kunde(1).Name = "Mustermann"
Kunde(1).Vorname = "Max"
Kunde(1).Geburtstag = CDate(#12/24/1942#) 'Datum Variante 1
Kunde(1).Alter = DateDiff("yyyy", Kunde(1).Geburtstag, Now)
Kunde(1).Krank = True
Kunde(1).Kontostand = 24006
Kunde(2).Name = "Musterfrau"
Kunde(2).Vorname = "Mia"
Kunde(2).Geburtstag = CDate("24.12.1942") 'Datum Variante 2
Kunde(2).Alter = DateDiff("yyyy", Kunde(1).Geburtstag, Now)
Kunde(2).Krank = False
Kunde(2).Kontostand = "10000"
'Ausgabe
Debug.Print Kunde(1).Alter
End Sub