Classe Version

Option Compare Database
Option Explicit

Private clsMajor As String
Private clsMinor As String
Private clsBeta As String
Private clsDate As String

Public Property Let Major(Value As String)
    clsMajor = Left(Trim(Value), 2)
End Property
Public Property Get Major() As String
    Major = clsMajor
End Property
Public Property Let Minor(Value As String)
    clsMinor = Left(Trim(Value), 2)
End Property
Public Property Get Minor() As String
    Minor = clsMinor
End Property
Public Property Let Beta(Value As String)
    clsBeta = Left(Trim(Value), 4)
End Property
Public Property Get Beta() As String
    Beta = clsBeta
End Property
Public Property Let vDate(Value As String)
    clsDate = Format(CDate(Value), "dd\/mm\/yyyy")
End Property
Public Property Get vDate() As String
    vDate = clsDate
End Property
Public Function GetFormated() As String
    GetFormated = clsMajor & "." & clsMinor & "." & clsBeta
End Function
Public Function Create(Optional strMajor As String = "", Optional strMinor As String = "", Optional strBeta As String = "", Optional strDate As String = "") As Boolean
    Create = True
    Major = strMajor
    Minor = strMinor
    Beta = strBeta
    vDate = strDate
End Function
Public Function Destroy() As Boolean
    Destroy = True
End Function