Salut,

voici ce que je dois faire et que j'ai de la misère.

- Je dois déclarer et définir une fonction ou sub-routine noue permettant de calculer la date de retour d'une réservation quelconque (hôtel, auto, avion...)
- Avec les paramètre suivant: Date de départ et la durée.
EX: Je fais une réservation d'un hotel pour le 26 avril 2004 pour une durée d'une semaine.
- La date de retour qui sera retournée (date de départ + durée) devra être de type String et du format: ddmmyy

Je ne suis pas programmeur alors j'aurais besoin de la déclaration de la fonction et la déclaration des variable. Le code au complet.

Merci beaucoup de votre aide.

il te le faudrait sous quel type de code

vb.net
vb6
vb excel
vbscript...

précise car la réponse sera différente

@+
LIM

Salut,

Va voir du côté des fonctions dateadd pour la date de fin et format pour l'affichage en texte.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Vba sinon Vbscript

alors voilà il faut utiliser la fonction DateAdd

"y" : représente les jours de l'année
10 : le nombre de jours à ajouter
Date  : c'est la date du jour

result=dateadd("y",10,Date)

result ="26/06/2005" puisque aujourd'hui on est le 16

je ne sais pas si çà te suffit




@+
LIM

Remarque, pour le 26 avril 2004 c'est un peu tard pour la réservation  !

Sinon, une piste :

Dim d1 As Date, d2 As Date

d1 = "26/04/2005"
d2 = DateAdd("d", 7, d1)

msgbox "Date de fin : " & d2

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

A mon avis Canis Lupus tu a un peu gourré en lisant
chez moi 26/06/2005 c'est le 26 juin 2005 donc cette année

enfin moi ce que j'en dis

@+
LIM

ou plus simple:
d2 = d1 + 7
msgbox "Date de fin : " & d2

Daniel

ok mais comment je fais pour déclarer ma fonction et mes variables?

Est-ce ceci comprend ma déclaration de ma fonction et mes variable:

"y" : représente les jours de l'année
7 : le nombre de jours à ajouter
Date  : c'est la date du jour

result=dateadd("y",7,Date)


Je ne doit pas préciser que c'est une string ma variable (ex: dim y) et ma fonction ne doit pas être déclaré comme

Dim y
Dim Date
Founction Modification_date
result=dateadd("y",7,Date)
End Function

Qu'est-ce qui fait en sorte que Date va se populer avec la valeur entré dans mon champ?

A ben si bien sur il faut déclarer les focntion et le variables

ici Date est une fonction d'excel qui renvoi la date du jour toute seule

"y" (qui est une string ) est un des paramètres de la fonction DateAdd

donc tu dois adapter le code fourni à ton application

c'est à dire remplacer Date par ton champ

si tu es dans une feuille excel (exemple)
imaginons que dans feuil1.cells(1,1) tu es une date

en lançant la fonction tu vas ajouter 7 jour à la date de feuil1.cells(1,1)

Founction Modification_date
   result=dateadd("y",7,feuil1.cells(1,1))
End Function

evidemment il ne faut la renvoyer dans result mais dans une autre cellule de la feuille

exemple

feuil1.cell(1,2)=dateadd("y",7,feuil1.cells(1,1))


@+
LIM