Public Class cVERAG_OUT_NCTS Shared Function genVERAG_OUT_NCTS_FromDAKOSY(DY_BezugsNr) Dim OUT As New cVERAG_OUT_NCTS Dim DY As New DateTimeKind End Function End Class