manipulation de dateRésolu

Question

bonjour à tous 
 j'ai desoin d'une fonction qui retourne à partir d'une date donnée la date qui précède la date de départ  de 10 jours 
cad :
namefunction ("18/01/2006) retourne 8/01/2006
j'ai chercher sur le net et j'ai pas trouver 
svp de m'envoyer le code s'il y a  ou bien de me donner l'idée pour faire cette fonction
merci d'avance et A+

cs_Willi · Accepted Answer

Bonjour,
Y a vraiment rien de compliqué une simple soustraction suffit

Exemple:
    
Dim tadate As Date
tadate = DateValue("18/01/2006")
MsgBox (SousDate(tadate, 10))   'Retourne le 08/01/2006

Function SousDate(yourdate As Date, xdays As Integer) As Date   
    SousDate = yourdate - xdays
End Function

cs_DARKSIDIOUS · Answer

Je suis pas sûr qu'une simple soustraction comme la tienne donne le résultat attendu : on travaille sur une date, pas un entier. Préfère plutôt la fonction DateAdd qui est spécifiquement développé pour faire des opérations sur les dates. _ Avant de poster dans le forum, prière d'aller lire ceci : http://www.codes-sources.com/reglement.aspx

BruNews · Answer

Une date est un flottant dont la partie entière représente les jours, la soustraction directe est donc la voie la plus rapide.

ciao...
BruNews, MVP VC++

cs_JMO · Answer

Bonjour 

MsgBox "07/04/2006 - 10 jours = " & DateAdd("d", -10, "07/04/2006")

Manipulation de date

4 réponses

Votre réponse

Discussions similaires