Les fonctions date par l'exemple.

Soyez le premier à donner votre avis sur cette source.

Vue 6 654 fois - Téléchargée 2 076 fois

Description

Ce post est plus un didacticiel qu?un programme. Je me suis efforcé d?inclure toutes les fonctions date de Visual basic dans le seul but de faire comprendre la manipulation de ces fonctions.
J?ai aussi détaillé ses limites, la syntaxe des fonctions et leur signification ainsi que les paramètres utilisés par certaines fonctions.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
inclure toutes les fonctions dates, ok, mais ce n'est pas pour l'exercice... ce code a un but pédagogique...
du coup, il vaut mieux au moins avertir l'utilisateur dans le code (un commentaire, par exemple).

la raison de ma réticence est simple:
les parametres regionnaux.

en gros, il faut s'y conformer, et ne pas en préjuger la valeur...
sinon, tu ouvre la porte a des bugs, a des problemes d'interpretation de la part de ton programme ou de l'utilisateur.

pour développer un peu plus le sujet, je t'invite a lire :
http://blogs.developpeur.org/renfield/archive/2009/04/14/param-tres-r-gionnaux-en-g-n-ral-et-avec-vb6.aspx
Messages postés
21
Date d'inscription
vendredi 3 janvier 2003
Statut
Membre
Dernière intervention
19 juin 2008

Bonjour Renfield

Je ne comprends pas bien ton commentaire puisque le but de ce post était d’inclure toutes les fonctions date, comme je l’ai écrit dans la description, et non d’écrire un programme dans les règles de l’art. DateSerial et DateValue sont des fonctions équivalentes, à la différence des paramètres qui pour l’une est sous forme de nombre et pour l’autre sous la forme de caractères. Ta réticence pour la fonction DateValue est surement justifiée, mais il fallait bien que je la case pour être en phase avec le but affiché sans pour cela me sentir débutant.
Tes remarques n’en reste pas moins dénuées d’intérêt pour les lecteurs de VbFrance, mais il serait intéressant que tu leur développes la raison de cette réticence.

Cordialement. Gérard
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
Erreur de d"butant ici :

EntréeDate.CmbEntréeQuantième + "/" _
+ Trim(Str(EntréeDate.CmbEntréeMois.ListIndex + 1)) + "/" _
+ EntréeDate.CmbEntréeAnnée

hors de question de faire :

maDate = Jour & "/" Mois & "/" & Année

idem pour DateValue("01/11/1582")

La réponse est pourtant bien dans ton code :
DateEntrée > #1/31/4000#

et

DateSerial(Année, 1, i)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.