Parcours de dates

Question

Bonjour amis developpeurs,

   Je voudrais savoir comment faire pour ajouter un mois a une variable contenant une date ???

  Merci d'avance

Amonbofis · Answer

J'ai utilisé une Feuille contenant un CommandButton, un TextBox et
un Label:

Private Sub Command1_Click()
  Dim TmpInt1 As Integer
  Dim DatePresente As Date
  Dim NouvelleDate As Date
  
  ' Year (x as Date)   l'année contenu dans 'x'
  ' Month (x as Date)
  ' Day (x as Date)
  ' Now retourne Date et Heure
  ' Date retourne Date seulement
  
  
  DatePresente = Now  ' ou "Date" tout simplement
  'Ligne suivante est la ligne "Magique"
  NouvelleDate = DateSerial(Year(DatePresente), Month(DatePresente) + Val(Text1), Day(DatePresente))
  
  Label1 = Format(NouvelleDate, "dd-mm-yyyy")
End Sub

CyberBob · Answer

N'oubli pas qu'il ya 12 mois dans l'année et non treize

Amonbofis · Answer

Que veux-tu dire?

Parcours de dates

3 réponses

Discussions similaires