Date en VB6
Dian
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
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!
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:
- Date en VB6
- Vb6 - Télécharger - Divers Utilitaires
- Jm date désabonnement ✓ - Forum Consommation & Internet
- Jm date avis - Forum Consommation & Internet
- Publipostage date en anglais ✓ - Forum Excel
- Airpods 3 date de sortie - Guide
4 réponses
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...
Mais dans ce cas si l'utilisateur a comis une erreur de saisie et désire effacer. ça se complique là
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 :
;o)
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)
