add LicenseManager from DD_LIB_STANDARD

Modules.License/LicenseLegacy.vb

@@ -0,0 +1,44 @@
+Public Class LicenseLegacy
+    ' ++++++++++++++++++++++++++++++++++++++++++++++ Methoden ++++++++++++++++++++++++++++++++++++++++++++++
+
+    ''' <summary>
+    ''' Konstruktor der Lizenz
+    ''' </summary>
+    Sub New(ByVal _ModuleName As String, ByVal _Expires As Date, ByVal _Type As String, ByVal _AnzProfile As String)
+        Modulename = _ModuleName
+        Expires = _Expires
+        Type = _Type
+        Anz_Profile = _AnzProfile
+    End Sub
+
+    ' ++++++++++++++++++++++++++++++++++++++++++++++ Properties ++++++++++++++++++++++++++++++++++++++++++++++
+
+    ''' <summary>
+    ''' Liefert oder setzt den Namen des Moduls für diese Lizenz
+    ''' </summary>
+    Public Property Modulename() As String
+    ''' <summary>
+    ''' Liefert oder setzt das Gültigkeitsdatum der Lizenz für das Modul
+    ''' </summary>
+    Public Property Expires() As Date
+    ''' <summary>
+    ''' Liefert den Typen der Lizenz
+    ''' </summary>
+    Public Property Type() As String
+    ''' <summary>
+    ''' Liefert die Anzahl der Profile
+    ''' </summary>
+    Public Property Anz_Profile() As String
+    ''' <summary>
+    ''' Liefert ob die Lizenz schon abgelaufen ist
+    ''' </summary>
+    Public ReadOnly Property IsExpired()
+        Get
+            If Date.Today > Expires Then
+                Return True
+            Else
+                Return False
+            End If
+        End Get
+    End Property
+End Class