nombre exact de mois entre deux dates calendaires?

**dj_techno** · 21/10/2008, 15h25

salut
est ce qu'il y'a une fonction en delphi qui renvoi le nombre exacte d'années,mois,jours entre deux dates calendaires, même si la date est passé par exemple entre 02/03/2004 et 05/07/2005:
il faut qu'il me donne 15 mois/calendrier+35jours, que je dois le convertir moi (en considérant qu'un mois égal à 30 jrs) en 16 mois et 5 jours (ou peut être: 1 an et 4 mois et 5 jours)
si non comment je peux le faire?
merci

**tourlourou** · 21/10/2008, 15h40

essaye DaysBetween et ses frères !

**dj_techno** · 21/10/2008, 15h44

Envoyé par dj_techno

salut
est ce qu'il y'a une fonction en delphi qui renvoi le nombre exacte d'années,mois,jours entre deux dates calendaires, même si la date est passé par exemple entre 02/03/2004 et 05/07/2005:
il faut qu'il me donne 15 mois/calendrier+35jours, que je dois le convertir moi (en considérant qu'un mois égal à 30 jrs) en 16 mois et 5 jours (ou peut être: 1 an et 4 mois et 5 jours)
si non comment je peux le faire?
merci

je ne trouve pas daysbetween dans le help delphi F1

**Just-Soft** · 21/10/2008, 15h45

Salut;

plus de détails stp. Tes données proviennent d'une table de données? saisi à la main dans des edit? de quel types de données s'agit-il?

Bonne chance.

**Lung** · 21/10/2008, 15h51

Envoyé par Aide Delphi

Renvoie le nombre de jours entiers séparant deux valeurs TDateTime spécifiées.

Unité

DateUtils

Catégorie

routines date/heure

function DaysBetween(const ANow, AThen: TDateTime): Integer;

Description

Appelez DaysBetween pour obtenir la différence, en jours, entre deux valeurs TDateTime.

DaysBetween ne compte que les jours entièrement écoulés. Ainsi, DaysBetween renvoie 0 pour la différence entre le 31 décembre 1999 23h59 et le 1er janvier 2000 23h58 car il manque une minute pour que la différence soit d'un jour entier.

Pour les mois, voir MonthsBetween, ...

**dj_techno** · 21/10/2008, 16h08

les dates sont stockées dans une base, mais il y'a un calcul avant le stockage l'utilisateur doit saisir une date début (dbedit1) et une date fin (dbedit2) qui vont être stocké avec leurs différence exacte biensûre.

**dj_techno** · 21/10/2008, 16h35

j'ai ajouté dateutils dans uses mais cette unité n'existe pas?

**tourlourou** · 21/10/2008, 16h59

Code :

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

1
2
3
4
MyDaysBetween(First, Last: TDateTime): Cardinal;
begin
  Result:=Trunc(Double(Last)-Double(First));
end;

rapidement concocté...

[EDIT] et avec un petit coup de StrToDateTime pour coder Last à partir de 02/05/2008...

**Just-Soft** · 21/10/2008, 17h06

Re;

mais tu ne dis toujours pas quels sont les types de données?

**dj_techno** · 21/10/2008, 17h16

Envoyé par Kelloucheaeh

Re;

mais tu ne dis toujours pas quels sont les types de données?

pas compris, les types de données sont saisie par l'utilisateur et sont de tdatetime

**dj_techno** · 21/10/2008, 17h19

Envoyé par tourlourou

Code :

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

1
2
3
4
MyDaysBetween(First, Last: TDateTime): Cardinal;
begin
  Result:=Trunc(Double(Last)-Double(First));
end;

rapidement concocté...

[EDIT] et avec un petit coup de StrToDateTime pour coder Last à partir de 02/05/2008...

result va contenir quoi exactement, pouvez vous mieu expliquer?

**tourlourou** · 21/10/2008, 18h46

la partie entière d'un TDateTime (il est stocké comme un réel du type Double) correspond au nombre de jours écoulés depuis une date de référence : 12/30/1899 12:00 am

en faisant la différence entière de 2 TDateTime pris comme réels, on obtient le nombre de jours les séparant. (comme TDateTime est déclaré comme Double, on peut même se passer du transtypage)

il faudrait bien sûr tester que Last est postérieur à First, ou prendre la valeur absolue :

Code :

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

1
2
3
4
function MyDaysBetween(First, Last: TDateTime): Cardinal;
begin
  Result:=Trunc(Abs(Last-First));
end;

**ShaiLeTroll** · 21/10/2008, 18h48

Le Trunc va juste retirer la partie Time, il faut savoir que la partie entière d'un TDateTime est exprimé en nombre de jour écoulé depuis le 01/01/1900 donc si tu soustraits deux valeurs, tu obtiens forcément la différence en nombre de jour entre deux dates ...
Maintenant, MonthBetween ou SpanMonth de DateUtils, fournisse des valeurs approximatives en se basant sur une mois de 30,4 jours, ce qui donnera forcément une valeur fausse si l'intervalle comprend un mois de février et que l'intervalle est court (par exemple entre 2008-01-01 et 2008-01-01, il n'y a pas de mois écoulé, mais que 28 jours donc moins que 30), ... mais tu semblais déjà parti sur une solution approximative donc autant utiliser MonthSpan... sinon, une boucle, qui incremente mais c'est lourd !

Envoyé par DateUtils

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
const
  { average over a 4 year span }
  ApproxDaysPerMonth: Double = 30.4375;
  ApproxDaysPerYear: Double  = 365.25;
 
function MonthSpan(const ANow, AThen: TDateTime): Double;
begin
  Result := DaySpan(ANow, AThen) / ApproxDaysPerMonth;
end;
 
function MonthsBetween(const ANow, AThen: TDateTime): Integer;
begin
  Result := Trunc(MonthSpan(ANow, AThen));
end;

**dj_techno** · 22/10/2008, 08h34

bonjour
bon j'ai compris se que vous venez de suggerer, mais le probléme c'est que mon application doit exactement calculer le nombre de mois entre deux dates calendaires,
je vais mieux expliquer, mon application est pour la gestion des ressources humaines ou ou il y'a une rubrique "contracts", dans cette rubrique il y'a des saisie des dates de début et de fin de contract, chaque personne peut avoir plus qu'un contract (1, 2 ou plus), mais leurs cumul de mois ne doit pas passer 45 mois selon la calendrier, donc il faut prendre en considération les mois ou il y'a 31 jours,30 jours et 28 ou 29 jours le cas de février.
Je ne sais pas comment réaliser sa, j'ai fais une simple soustraction des dates en ajoutant 1 ou résultat, mais je dois avoir le résultat selon la calendrier exactement en nombre de mois, aussi je n'arrive pas à utiliser DateUtils et comment l'intégrer, je travaille avec delphi 5 et DateUtils n'existe pas.
merci

**Linkin** · 22/10/2008, 09h41

un algo de ce type devrait convenir, non?

Code :

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

1
2
3
4
5
 
nbannees := yearof(fin) -yearof(debut);
nbmois := monthof(fin) -monthof(debut)
 
result := nbannees*12 + nbmois;

Êdit: pour delphi 5, yearof et monthof peuvent être simulés par des decodedate, en ne récupérant que l'année ou que le mois.

**dj_techno** · 25/10/2008, 09h34

Bonjour,
SVP, avec Delphi 5 ou je peux trouver l'unité DateUtils pour l'ajouter dans Uses de mon application, car j'ai mis dateutils dans uses mais il ne l'a pas reconnu.
merci

**Linkin** · 27/10/2008, 08h30

il n'existe pas avec Delphi 5.

As-tu essayé le code précdédent en utilisant DecodeDate?

**dj_techno** · 27/10/2008, 15h55

Envoyé par Linkin

un algo de ce type devrait convenir, non?

Code :

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

1
2
3
4
5
 
nbannees := yearof(fin) -yearof(debut);
nbmois := monthof(fin) -monthof(debut)
 
result := nbannees*12 + nbmois;

Êdit: pour delphi 5, yearof et monthof peuvent être simulés par des decodedate, en ne récupérant que l'année ou que le mois.

voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure Tadm.ADOTableembBeforePost(DataSet: TDataSet);
var
datedeb,datefin: tdatetime;
andeb,anfin,moisdeb,moisfin,jrsdeb,jrsfin,result,nbremois,nbrean:word;
begin
if (dbedit1.Text<>'') and (dbedit2.Text<>'') then
begin
datedeb:=strtodate(dbedit1.text);
datefin:=strtodate(dbedit2.text);
decodedate(datedeb,andeb,moisdeb,jrsdeb);
decodedate(datefin,anfin,moisfin,jrsfin);
nbremois:=moisfin-moisdeb;
nbrean:=anfin-andeb;
result:=nbrean*12+nbremois;
adotableemb.Fields[7].AsCurrency:=result;
end;
end;

bon il fonctionne bien, mais la valeur n'est pas exacte 100%, pour mois je veux que la différence entre date sois exacte et calendaire c'est à dire en année et mois et jours, par exemple si il n'y a pas d'année on mets zero est ce que je dois faire comme ca:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure Tadm.ADOTableembBeforePost(DataSet: TDataSet);
var
datedeb,datefin: tdatetime;
andeb,anfin,moisdeb,moisfin,jrsdeb,jrsfin,result,nbremois,nbrean,nbrejrs:word;
begin
if (dbedit1.Text<>'') and (dbedit2.Text<>'') then
begin
datedeb:=strtodate(dbedit1.text);
datefin:=strtodate(dbedit2.text);
//adotableemb.Fields[7].AsCurrency:=1+(datefin-datedeb);*)
decodedate(datedeb,andeb,moisdeb,jrsdeb);
decodedate(datefin,anfin,moisfin,jrsfin);
nbremois:=moisfin-moisdeb;
nbrean:=anfin-andeb;
nbrejrs:=jrsfin-jrsdeb;
end;
end;

et afficher nbrean,nbremois et nbrejrs pour qu'il y aura une valeur exacte.
merci

**Linkin** · 27/10/2008, 16h22

Donc tu veux le nombre de mois, avec des virgules pour le nombre de jour c'est ça?

**dj_techno** · 27/10/2008, 16h40

Envoyé par Linkin

Donc tu veux le nombre de mois, avec des virgules pour le nombre de jour c'est ça?

par exemple, si date_debut est 02/05/2001 et date_fin est 03/07/2002 je veux:
13 mois et 33 jrs ----> ici si je veux arrondir les jours, je vais prendre pour 30 jrs sont un moi,
donc j'ai:
14 mois 3jours qui sont 1 an 2 mois 3 jours
vous me comprenez maintenant

nombre exact de mois entre deux dates calendaires?

Langage Delphi

Discussions similaires

Partager

Partager