Date en VB6 Fermé

Question

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!



Configuration: Windows 7 / Safari 532.5

choubaka · Answer

Salut
Ceci peut t'aider ??

http://www.a1vbcode.com/snippet-2795.asp

choubaka · Answer

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...

Dian · Answer

Mais dans ce cas si l'utilisateur a comis une erreur de saisie et désire effacer. ça se complique là

Polux31 · Answer

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)

Date en VB6

4 réponses

Discussions similaires