Calcul : Jours ouvrables

[VastoMarine]

Bonjour,

J'ai une date, 03/05/2011, je lui ajoute 10 jours.

Je dois calculer la date, en jours ouvrables.

[Michael DELIQUE]

salut
en formules => @BusinessDays

pour le Ls c'ets un peu plus ocmpliqué

[VastoMarine]

Merci Michael,

Voici mon code en LS, mais le calcul se fait en jours calendrier...



Sub Onchange(Source As Field)

Dim Session As New NotesSession
Dim Db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim UIDoc As NotesUIDocument
Dim Doc As NotesDocument
Dim Limite As NotesDateTime
Dim RecupDate As String

Set Db = Session.CurrentDatabase
Set UIDoc = ws.CurrentDocument
Set Doc = UIDoc.Document

RecupDate = UIDoc.FieldGetText("fldMrchDateEnvoiOffres")

Set Limite = New NotesDateTime(RecupDate)

Call Limite.AdjustDay(10)

Doc.fldMrchDateRetourOffres = Limite.LocalTime

UIDoc.Refresh

End Sub

[kheori]

Bonjour

Pourquoi ne pas essayer une truc du genre

Tu definis un compteur de jourouvrable (initialiser a 0)

tu fais une boucle dans laquelle tu incrementes ta variable limite de 1 tu test celle-ci sur le jour de la semaine, si tu as un samedi ou un dimanche tu n'incrementes pas ton compteur de jour ouvrable sinon tu fais un petit +1

Evidemment cela ne compte pas les jous feries mais c'est peut etre une piste .

(Il y a peut etre plus facile)

[Steph_]

pour tout ce qui est date, il faut aller jeter un œil chez Martin Scott


https://www.martinscott.com/DesignLibrary.nsf/scategory?openview&cat=Date!Time+Handling&view=By+Category&count=5000

[VastoMarine]

Voici qui est fait:

@If(fldMrchDateEnvoiOffres=""; d1:=@Today; d1:=fldMrchDateEnvoiOffres);

@While (

@BusinessDays(fldMrchDateEnvoiOffres;d1;1:7) < fldMrchNbreRetourOffres;

d1 := @Adjust(d1;0;0;1;0;0;0)

);

d1 := @Adjust(d1;0;0;1;0;0;0);
d1;

[VastoMarine]

Le tout fonctionne nickel:

@If(fldMrchDateEnvoiOffres=""; d1:=@Today; d1:=fldMrchDateEnvoiOffres);

@While (

@BusinessDays(fldMrchDateEnvoiOffres;d1;1:7) < fldMrchNbreRetourOffres;

d1 := @Adjust(d1;0;0;1;0;0;0)

);

fldMrchDateDay := @Weekday(@Date(fldMrchDateRetourOffres));

@If(fldMrchDateDay = 7; d1 := @Adjust(d1;0;0;3;0;0;0); d1 := @Adjust(d1;0;0;1;0;0;0));

d1;