Discussion :

[Nako_lito]

Bonjour,

je m'en remets a votre bon savoir car j'ai un problème avec une date (étonnant non ?)

Alors voila ce que je cherche a faire.

Tester si le format de la date correspond au format système ?

je ne peux pas mettre de format en dur car le format dépend vraiment des parmètres de la machine.

Il y a la fonction Date$ qui retourne la date système au format système mais je ne peux pas appliquer de .Format dessus, ou alors je m'y prend mal.

Merci par avance.

[XylonAkau]

_ Ia ora na.
_ Chez moi,

Code :

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

MsgBox Date$

affiche

08-27-2012

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Code :

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

MsgBox Date

affiche

27/08/2012

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
et

Code :

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

MsgBox Format$(Date, "mmmm")

affiche

août

_ Bon courage pour la suite de votre projet.

[Nako_lito]

humm, en fait, j'ai trouvé une alternative qui est infallible

Code :

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

1
2
3
4
 
If Not IsDate(datebox.value then
----
End if

A confirmer, mais je pense que c'est la meilleur solution.

[ProgElecT]

humm, en fait, j'ai trouvé une alternative qui est infaillible

If Not IsDate(datebox.value) then
----
End if

A confirmer, mais je pense que c'est la meilleur solution.

.value, cela ressemble à du VB.net

VB6 étant (trop) permissif pour ce type de donnée.
Donc si en VB6, et que DateBox.TexT contient une inversion du mois/jour et/ou mois/jour/année, IsDate renverra toujours True, la seule condition pour un retour à False serai que la date du jour dépasse le maximum du mois et/ou que le mois soit supérieur à 12.

[Nako_lito]

je viens de tester, il s'adapte bien au comportement du systeme.
j'ai testé avec une date normale, ca passe
une date tronquée : 2008-
une date avec le mois faux : 2008-20-20
une date avec le jour faux : 2008-05-35

Donc IsDate fonctionne correctement, du moins dans mon cas.

[DarkVader]

.../...
VB6 étant (trop) permissif pour ce type de donnée..../...

VB6 n'est pas plus permissif qu'un autre langage :
une date ce n'est qu'un double dont la partie entière représente le nombre de jour depuis le 30/12/1899
et la partie décimale, l'heure ; après ce n'est qu'un problème de mise en forme au format texte par le biais de Format ou autre.


Le format de la date système est indiqué par GetLocaleInfo ou GetLocaleInfoEx avec
LOCALE_IDATE qui retourne l'ordre des champs
0Month-Day-Year 1Day-Month-Year 2Year-Month-Day
et
LOCALE_SDATE le modèle de séparateur de champs.