Discussion :

[celiaaa]

Bonjour,


j'aimerais soustraire une date avec des jours et que ça me renvoit un date sous la forme "dd/mm/yyyy"

j'ai essayé

Code :

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

Date1 = DateDiff("dd/mm/yyyy", 5, maVarDate)

mais ce la m'affiche une erreur.

Par aillerus en fonction du résultat, cela doit envoyé un mail..et j'aimerai que ce mail ne soit envoyé que pendant les jours ouvrés..et là je ne sais pas du tout comment faire?

Merci bien

[Elstak]

pour les jours ouvré,

peut etre

Weekday, fonction, exemple
Cet exemple utilise la fonction Weekday pour obtenir le jour de la semaine à partir de la date indiquée.

Dim MyDate, MyWeekDay
MyDate = #12 february 1969# ' Attribue une date.
MyWeekDay = Weekday(MyDate) ' MyWeekDay contient 4 car MyDate
' correspond à mercredi.

oui 4 = mercredi car de mémoire le 1 correspond à dimanche

[celiaaa]

Merci beaucoup!

Est-il possible de soustraire une date avec des jours.?

[celiaaa]

bon après quelque recherches j'ai essayé ceci

Code :

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

 dateOuvre = DateAdd("d", 2, "#" & date1 & "#")

Je pense que ça marche de la même façon qu'une différence mais sans succès
il me mette incompatibilité de type

j'essaie

Code :

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

 dateOuvre = DateAdd("d", 2, "#" & cstr(date1 )& "#")

mais toujorus sans succes

[Elstak]

hop,

ton date1 est de quel type?
de toute facon c'est sur qu'il faut pas faire cstr car le 3eme parametre est de type date...

sinon regarde "format" ca pourrait t'aider (peut etre pas pour ton pb là mais pour ta mise en forme de date)

Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #Janvier 27, 1993#

' Renvoie l'heure système courante dans le format long défini par le 'système.
MyStr = Format(Time, "Heure, complet")

' Renvoie la date système courante dans le format long défini par le 'système.
MyStr = Format(Date, "Date, abrégé")

MyStr = Format(MyTime, "h:m:s") ' Renvoie "17:4:23".
MyStr = Format(MyTime, "hh:mm:ss AMPM") ' Renvoie "05:04:23 PM".
MyStr = Format(MyDate, "jjjj j mmm yyyy") ' Renvoie "Vendredi 27 janvier

[celiaaa]

Génial
merci bcp pr ton aide