Discussion :

[turbif08]

Bonjour,

J'ai une InputBox dans laquelle je voudrais pouvoir vérifier le format AAAA-MM-JJ ainsi que des intervalles pour les différents champs (AAAA,MM,JJ), je ne vois pas comment faire, j'ai essayé avec une boucle mais sans succès, une piste ?

Merci d'avance

[hackoofr]

Postez votre code et

[turbif08]

J'ai que mon InputBox du coup...

Code :

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

TEST = InputBox("Entrer la date","Date","AAAA-MM-JJ")

[hackoofr]

Testez ce :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Titre = "Valider une date"
TEST = InputBox("Entrer la date",Titre,"2013-12-13")
If Not IsDate(TEST)  Then 
	MsgBox "La Date "& DblQuote(TEST) &" n'est pas valide",16,Titre 
Else 
	MsgBox "La Date "& DblQuote(TEST) &" est valide",64,Titre
End If 
'**********************************************************************************************
'Fonction pour ajouter les doubles quotes dans une variable
Function DblQuote(Str)
	DblQuote = Chr(34) & Str & Chr(34)
End Function
'**********************************************************************************************

[turbif08]

J'avais effectivement essayé avec IsDate, le problème c'est que pour IsDate cette date 1-1-1 est correcte alors que pas pour moi, je voudrais par exemple 0001-01-01.

[omen999]

salut,
un exemple vite fait avec l'astuce qui permet de forcer FormatDateTime à sortir le format yyyy-mm-dd qui n'est pas le format européen courant (merci la suède... )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
curLocale = GetLocale
SetLocale("sv-se")  ' LCID de la suède
rep = InputBox("Entrez la date","Date","AAAA-MM-JJ")
If IsDate(rep) Then
  If Year(rep) > 2013 Or Year(Rep) < 2005 Then
    MsgBox "Année en dehors de l'intervalle"
  Else
    MsgBox "BRAVO LA DATE EST " & FormatDateTime(rep, 2)
  End If
Else
  MsgBox "Format date invalide"
End If
SetLocale(curLocale) ' rétablir les params locaux