Konstanten
PeterDoering
Gesendet: 13.02.19 15:25
Betreff: RE: Konstanten



Extreme Veteran

Beiträge: 410
100100100100
Hallo,

Im Kopfbereich eines Moduls:

Option Compare Database
Option Explicit

Public Const cBenutzerJahr As String = "FIBU 2019 - Markus" 'Anwendungsweit gültig
Private Const cWasAnderes As Integer = 128 'gültig innerhalb des Moduls

Public Function MeineSuperFunktion(Aufrufparameter As String)
Const cIrgendwas = 100 'gültig innerhalb der Funktion/Prozedur

End Function

-----
Gruss - Peter
Top of the page Bottom of the page