Classe pour manipuler une date

Commenter

Contenu du snippet

1- Créer un module de classe
2- Nommer la classe CDates
2- Copier le code ci-dessous
3- Coller dans le module

Source / Exemple : 


Option Explicit

' Variable pour la date.
Private m_strDate As String * 10
' Variable pour l'année.
Private m_strYear As String * 4
' Variable pour le mois.
Private m_strMonth As String * 2
' Variable pour le jour.
Private m_strDay As String * 2

Public Property Get getDate() As String

getDate = m_strDate

End Property

Public Property Get getYear() As String

getYear = m_strYear

End Property

Public Property Get getMonth() As String

getMonth = m_strMonth

End Property

Public Property Get getDay() As String

getDay = m_strDay

End Property

Private Sub Class_Initialize()

' Obtenir la date courante.
m_strDate = Date
' Prendre la partie année de la date.
m_strYear = Left(m_strDate, 4)
' Prendre la partie mois de la date.
m_strMonth = Mid(m_strDate, 6, 2)
' Prendre la partie jour de la date.
m_strDay = Right(m_strDate, 2)

End Sub

Conclusion :


Cette petite classe vous donnes la possibilité d'obtenir la date courante, mais aussi la partie année, mois et jour séparément.

N'oubliez pas de visiter ma page web :-)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (FunkySteps)