Discussion :

[charlene44]

bonjour,

j'ai un petit problème : en fait j'ai une boucle while qui me donne en gros :

Code :

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

1
2
3
4
5
6
7
while conso_totale>stock limite do
  begin
    conso_totale-conso_journaliere;
    i:=i+1 (ou alors date_derniere_livraison+1);
  end;
date_derniere_livraison+i
end;

en fait j'ai une consomation totale, une consommation journaliere, une date de livraison, et un stock limite, et à partir de cela je dois trouver la date de prochaine livraison, c'est pourquoi je fais ce while, mais le probleme c'est que si je prend la solution avec i, i me donnera un nombre de jours, et comment je peux faire pour trouver une date avec un nombre de jours?

[cadetill]

Salut

Si tu as une date initiale, tu peux faire servir la fonction IncDay declaree dans l'unité DateUtils

A+

[LadyWasky]

Tu peux affecter des variables là dedans STP ?

Code :

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

1
2
3
4
5
6
7
while conso_totale>stock limite do
  begin
    conso_totale-conso_journaliere;
    i:=i+1 (ou alors date_derniere_livraison+1);
  end;
date_derniere_livraison+i
end;

trouver une date avec un nombre de jours?

C'est à dire ?
Date_Cherchee:=Date_de_Depart+Nombre_de_Jours ?
Parce que là, on a rien compris... ce serais bien d'être un peu plus clair dans tes explications

Pour t'aider :
Si tu regardes de plus près le type TDateTime,
- la partie entière représente le nombre de jours qui se sont écoulés depuis le 30/12/1899
- la partie fractionnaire, représente la fraction de jour qui s'est écoulée depuis minuit, bref les heures/minutes/seconde dans le jour.
A minuit, la partie fractionnaire sera égale à 0
A midi ---> 0,5
etc...

Du coup si
DateCherchee et Date_de_Depart sont des TDateTime et Nombre_de_Jours un entier, paf :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
conso_journaliere, conso_totale, stock limite,i -->integer
...
var date_derniere_livraison, Date_Cherchee : TDateTime
...
while conso_totale>stock limite do
  begin
    conso_totale:=conso_totale-conso_journaliere[i];
    i:=i+1;
  end;
Date_Cherchee:=date_derniere_livraison+i;
end;

Je ne vois pas ou est le problême...

[charlene44]

Date_Cherchee:=Date_de_Depart+Nombre_de_Jours ?
Parce que là, on a rien compris... ce serais bien d'être un peu plus clair dans tes explications

voila c'est exactement ca, et on peut le faire comme ca en ajoutant un integer à un TdateTime? je croyais que ca aurai été plus subtil que ca...qu'est-ce que j'ai fait comme connrie moi encore......

[LadyWasky]

voila c'est exactement ca, et on peut le faire comme ca en ajoutant un integer à un TdateTime? je croyais que ca aurai été plus subtil que ca...qu'est-ce que j'ai fait comme connrie moi encore......