Prozeduren und Parameter optimieren

Von: Lorenz Hölscher
Stand: 1. Juni 2011
3.5
(2)
Anmelden um Kommentare zu schreiben

Zurück zu Parametern

Datentypen

Selbst wenn Sie nur eine "normale" Funktion mit einem einzigen Rückgabewert schreiben, können Sie darin mehrere Daten zusammenfassen. Dazu brauchen Sie einen neuen Datentyp, den Sie wie im folgenden Listing am Anfang eines Moduls deklarieren:

Type Adresse
	Vorname As String
	Nachname As String
	Geburtstag As Date
	AnzahlKinder As Integer
End Type

Function SuchePerson(lngPersonalNr As Long) As Adresse
	'hier könnte jetzt ein Datensatz aus einer Datenbank
	'ermittelt werden, zur Vereinfachung nur Pseudo-Daten...
	With SuchePerson
		.Vorname = "Lorenz"
		.Nachname = "Hölscher"
		.AnzahlKinder = 2
		.Geburtstag = "24.11.1960"
	End With
End Function

Sub TesteSuchen()
	Dim Ergebnis As Adresse

	Ergebnis = SuchePerson(1234)
	MsgBox Ergebnis.Vorname & " " & Ergebnis.Nachname & " hat am " & Ergebnis.Geburtstag & " Geburtstag!"
End Sub

Der neue Datentyp Adresse ist ein zusammengesetzter Datentyp aus verschiedenen Variablen, auch solchen unterschiedlicher Datentypen.

Diese Seite ist für Mitglieder von akademie.de reserviert.

Möchten Sie die Mitgliedschaft 14 Tage kostenlos testen und den Beitrag komplett lesen?

Oder möchten Sie zunächst mehr über diesen Beitrag erfahren und die Leseproben sehen?

Ich bin bereits Mitglied
Jetzt Probemitglied werden
Ich kann in den 14 Tagen Probezeit formlos z.B. per E-Mail stornieren. Wenn ich das nicht tue, entscheide ich mich für ein