Discussion :

[zandru]

Bonjour,

j'ai trois textbox avec donc trois nombre : le jour, le mois et l'année.

Ce que je souhaite faire c'est les rassembler dans une seule variable date.
en fouinant dans l'aide, j'ai écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim vd As Date
Dim temp As String
temp = "#" & CStr(TextBox1.Value) & "/" & CStr(TextBox2.Value) & "/" & CStr(TextBox3.Value) & "#"
vd = CDate(temp)

mais vba me donne comme réponse "incompatibilité de type"
alors qu'il comprend très bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

vd = CDate(#10/10/2008#)

Comment faire ? Où me suis-je planté ??

[Laestic]

Bonjour,

pourquoi les # dans la chaîne de caractères?
Dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

vd = CDate(#10/10/2008#)

il n'y a pas de chaîne de caractères et #...# est déjà une date.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim vd As Date, temp as String
temp = CStr(tb1.Text) & "/" CStr(tb2.Text) & "/" CStr(tb3.Text)
vd = CDate(temp)

Sauf que tu risques d'avoir un souci de format de date anglais (mm/dd/yyyy et non dd/mm/yyyy). A moins d'avoir vraiment besoin de 3 textboxes pour saisir une date, je recommande l'utilisation du contrôle DateTimePicker, expressément faire pour sélectionner et manipuler des dates.

[ucfoutu]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
annee = "2001"
  mois = "2"
  jour = "25"
  MsgBox DateSerial(annee, mois, jour)

[zandru]

Comme d'habitude,simple, rapide et efficace