45 lines
1.4 KiB
VB.net
45 lines
1.4 KiB
VB.net
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
|