ASP.NET - CLASSE DE GESTION DU TEMPS

' -----------------------------------------------------------------------------
Public Class TimeClass
 Private _Secondes As Integer
 Private _Minutes As Integer
 Private _Heures As Integer
 Private _Jours As Integer

#Region "Liste Propriétés de la Classe"
 Public Property Secondes() As Integer
  Get
   Return _Secondes
  End Get
  Set(ByVal Value As Integer)
   _Secondes = Value
  End Set
 End Property
 Public Property Minutes() As Integer
  Get
   Return _Minutes
  End Get
  Set(ByVal Value As Integer)
   _Minutes = Value
  End Set
 End Property
 Public Property Heures() As Integer
  Get
   Return _Heures
  End Get
  Set(ByVal Value As Integer)
   _Heures = Value
  End Set
 End Property
 Public Property Jours() As Integer
  Get
   Return _Jours
  End Get
  Set(ByVal Value As Integer)
   _Jours = Value
  End Set
 End Property
#End Region

 ' -----------------------------------------------------------------------------
 Public Sub New()
  ' Constructeur par Défaut de la classe
  _Secondes = 0
  _Minutes = 0
  _Heures = 0
  _Jours = 0
 End Sub
 ' -----------------------------------------------------------------------------
 Public Sub New(ByVal NbJours As Integer, ByVal NbHeures As Integer, _
  ByVal NbMinutes As Integer, ByVal NbSecondes As Integer)
 ' Constructeur transmettant la valeur de chaque parametre de temps (jour, heure, minute et seconde)
  _Secondes = NbSecondes
  _Minutes = NbMinutes
  _Heures = NbHeures
  _Jours = NbJours
 End Sub

 ' -----------------------------------------------------------------------------
 Public Sub New(ByVal TotalNbSecondes As Long)
 ' Constructeur transmettant le nombre total de secondes
  Dim LeTemps As New TimeClass
  LeTemps.ConversionDetaillee(TotalNbSecondes)
  Secondes = LeTemps.Secondes
  Minutes = LeTemps.Minutes
  Heures = LeTemps.Heures
  Jours = LeTemps.Jours
 End Sub

 ' -----------------------------------------------------------------------------
 Public Sub ConversionDetaillee(ByVal NBSec As Long)
 ' Procédure permettant de calculer chaque variable à partir du Nombre total de secondes
  Jours = NBSec \ 86400
  Heures = (NBSec - (Jours * 86400)) \ 3600
  Minutes = (NBSec - (Heures * 3600) - (Jours * 86400)) \ 60
  Secondes = NBSec - (Minutes * 60) - (Heures * 3600) - (Jours * 86400)
 End Sub
 
 ' -----------------------------------------------------------------------------
 Public Function ConversionSeconde() As Long
 ' Fonction permettant de connaître le nombre total de seconde à partir des valeurs des variables
  Return CType(((((Jours * 24) + Heures) * 60 + Minutes) * 60) + Secondes, Long)
 End Function

 ' -----------------------------------------------------------------------------
 Public Function Egal(ByVal ValeurAComparer As TimeClass) As Boolean
 ' Fonction de test d'égalité de 2 objets TimeClass
  Dim ValeurBase As Long = ConversionSeconde()
  Dim ValeurComp As Long = ValeurAComparer.ConversionSeconde
  If ValeurBase = ValeurComp Then
   Return True
  Else
   Return False
  End If
 End Function

 ' -----------------------------------------------------------------------------
 Public Function DifferenceA(ByVal ValeurAComparer As TimeClass) As Integer
 ' Fonction qui renvoie la différence entre 2 objets TimeClass en secondes
  Dim ValeurBase As Long = ConversionSeconde()
  Dim ValeurComp As Long = ValeurAComparer.ConversionSeconde
  Return CType(ValeurBase - ValeurComp, Integer)
 End Function

 ' -----------------------------------------------------------------------------
 Public Function AjouterTemps(ByVal ValAAjouter As TimeClass) As TimeClass
 ' Fonction qui ajoute un objet TimeClass à un autre par la somme des 2 totaux de secondes
  Dim ValeurBase As Long = ConversionSeconde()
  Dim ValeurComp As Long = ValAAjouter.ConversionSeconde
  Dim TemptResult As New TimeClass(ValeurBase + ValeurComp)
  Return TemptResult
 End Function
    
 ' -----------------------------------------------------------------------------
 Public Function ReturnChaineTemps() As String
 ' Fonction qui renvoie la chaine permettant de définir textuellement la valeur d'un objet TimeClass
  Dim TempChaine As String = ""
  If Jours > 1 Then
   TempChaine &= Jours & " Jours "
  Else
   TempChaine &= Jours & " Jour "
  End If
  If Heures > 1 Then
   TempChaine &= Heures & " Heures "
  Else
   TempChaine &= Heures & " Heure "
  End If
  If Minutes > 1 Then
   TempChaine &= Minutes & " Minutes "
  Else
   TempChaine &= Minutes & " Minute "
  End If
  If Secondes > 1 Then
   TempChaine &= Secondes & " Secondes "
  Else
   TempChaine &= Secondes & " Seconde "
  End If
  Return TempChaine
 End Function

 ' -----------------------------------------------------------------------------
End Class