Classe pour manipuler une date

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 284 fois - Téléchargée 43 fois

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

Ajouter un commentaire Commentaires
Messages postés
6728
Date d'inscription
mardi 14 mai 2002
Statut
Contributeur
Dernière intervention
11 janvier 2016

salut,
dans la meme veine...

MsgBox "Date = " & Date & vbCrLf & vbCrLf & _
"Jour = " & Day(Date) & vbCrLf & _
"Mois = " & Month(Date) & vbCrLf & _
"Année = " & Year(Date)

pour le format je vous renvoie au message de AlBud

A +
Messages postés
16
Date d'inscription
mardi 26 février 2002
Statut
Membre
Dernière intervention
13 mars 2002

Ta méthode est bonne, mais celui-là est encore plus rapide :p allez à plus :)
Messages postés
49
Date d'inscription
mardi 18 juin 2002
Statut
Membre
Dernière intervention
19 décembre 2006

utiliser plutot
format("yyyy",strdate) => année
format("dd",strdate) => jour
format("mm",strdate) => mois

ensuite y a plein de variante format("dd-mm-yyyy",strdate) et des fonctions du genre dateadd pour additionner 2 dates, datediff pour soustaire.....

A++

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.