[VB6] IsDate mais en tenant compte du format c'est possible ?

Question

Bonjour &#224; tous et toutes,

mon cher boss  a eu une super id&#233;e, il veut que je r&#233;cup&#232;re un chaine dans un textbox (jusque l&#224; &#231;a va hein lol), que je v&#233;rifie si cette chaine est bien une date et si cette date est valide. Pour faire &#231;a, je re&#231;ois deux param&#232;tres (mais je peux en rajouter au besoin) qui sont la chaine et un format (AAAAMMJJ ou JJ/MM/AAAA ect ...).

Ce qui me g&#232;ne tr&#232;s fort c'est que IsDate ne prend en compte que ce qui est sous la forme JJ/MM/AAAA ou MM/JJ/AAAA. Si je fais un IsDate(20060323) => False. Ce qui est g&#233;nant aussi, c'est que le format doit &#234;tre param&#233;trable dans le fichier ini (pour le r&#233;cup&#233;rer &#231;a va aussi).

Avez vous une id&#233;e de comment construire cette fonction ? J'ai d&#233;j&#224; la d&#233;but :

Public Function VerifDate(StrIn as String, FormatIn as String) as boolean
   If  Then
      VerifDate=True
   Else
      VerifDate=False
   End if
End Sub

Je m'excuse d'avance pour le mal de t&#234;te 

Merci &#224; tous et toutes.

cs_DARKSIDIOUS · Answer

Ben à moins de faire ta propre fonction filtre, je vois pas trop ! Le mieux : convertir le texte saisit en format lisible par IsDate => si l'utilisateur saisit 20060302 le convertir en 02/03/2006 avant d'appeler isDate pour vérifier qu'il s'agit bien d'une date valide. _

PhilocheMan · Answer

Salut,
Au pif sans tester :

Public Function VerifDate(StrIn as String, FormatIn as String) as boolean
VerifDate = IsDate(Format(StrIn,FormatIn))
End Function

[VB6] IsDate mais en tenant compte du format c'est possible ?

2 réponses

Discussions similaires