Date en VB6

Dian -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Bonjour à tous et bon dimanche!
Svp c'est la millième fois que je consulte ce forum, mais jamais je n'ai reçu de l'aide. Espérons qu'avec cette Pentecôte, ça va changer.
Je veux faire un test sur une textbox en vb6, textbox dans laquelle l'utilisateur saisit la date. Le test consiste à vérifier si il n'ya pas de valeur négative ou que c'est bien une date (pas plus de 31jours, plus de 12 mois).
Aussi veiller à ce que ce soit au format dd/mm/yyyy.

Merci du fond du coeur!
Aidez moi svp!



A voir également:

4 réponses

choubaka Messages postés 39442 Date d'inscription   Statut Modérateur Dernière intervention   2 105
 
Sinon, une autre solution est d'utiliser un contrôle de type Calendar et de faire sélectionner la date au lieu de la taper manuellement...
1
choubaka Messages postés 39442 Date d'inscription   Statut Modérateur Dernière intervention   2 105
 
Salut
Ceci peut t'aider ??

http://www.a1vbcode.com/snippet-2795.asp
0
Dian
 
Mais dans ce cas si l'utilisateur a comis une erreur de saisie et désire effacer. ça se complique là
0
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Bonjour,

La fonction IsDate() permet de vérifier si la chaine passée en paramètre est bien une date. Voilà un exemple d'utilisation :

Public Function CtrlDate(ByVal chaine As Variant) As String

    If Not IsDate(chaine) Then
        CtrlDate = "Ceci " & chaine & " n'est pas une date valide"
    Else
        CtrlDate = Format(chaine, "dd/mm/yyyy")
    End If
    
End Function

Sub test()

    MsgBox CtrlDate("21 janvier 2010")
    
    MsgBox CtrlDate("21 dupont 1914")
    
End Sub


;o)
0