Discussion :

[Cl@udius]

Salut

Et comme ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
  TotalJours, NbAnnees, NbMois, NbJours: Integer;
begin
  TotalJours := Trunc(DateTimePicker2.Date) - Trunc(DateTimePicker1.Date) + 1;
  NbAnnees := TotalJours div 360;
  NbMois := (TotalJours mod 360) div 30;
  NbJours := TotalJours - (NbAnnees * 360) - (NbMois * 30);
 
  ShowMessage('Total Jours: ' + IntToStr(TotalJours) + #13#10 +
    'Années: ' + IntToStr(NbAnnees) + #13#10 +
    'Mois: ' + IntToStr(NbMois) + #13#10 +
    'Jours: ' + IntToStr(NbJours));
end;

@+ Claudius

[Linkin]

Et en rajoutant ça?

Code :

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

1
2
3
4
5
 
nbremois :=  nbremois + nbrejrs div 30;
nbrejrs :=  nbrejrs mod 30;
nbrean :=  nbrean + nbremois div 12;
nbremois :=  nbremois mod 12;

[dj_techno]

Salut

Et comme ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
  TotalJours, NbAnnees, NbMois, NbJours: Integer;
begin
  TotalJours := Trunc(DateTimePicker2.Date) - Trunc(DateTimePicker1.Date) + 1;
  NbAnnees := TotalJours div 360;
  NbMois := (TotalJours mod 360) div 30;
  NbJours := TotalJours - (NbAnnees * 360) - (NbMois * 30);
 
  ShowMessage('Total Jours: ' + IntToStr(TotalJours) + #13#10 +
    'Années: ' + IntToStr(NbAnnees) + #13#10 +
    'Mois: ' + IntToStr(NbMois) + #13#10 +
    'Jours: ' + IntToStr(NbJours));
end;

@+ Claudius

oui c'est ca mais:
il me donne le nombre de jours faut, j'ai introduit date_debut:02/05/2002 et date_fin:06/04/2002, le resultats qu'il me donne c'est :340 jours,0 année, 11 mois, 10 jours
mais le resultats exacte
c'est 10 mois et 36 jours----->11 mois et 6 jours (si je prends le mois est 30 jours)

[Cl@udius]

mais le resultats exacte
c'est 10 mois et 36 jours

Je n'arrive pas à comprendre comment tu arrives à ce résultat.

Nous sommes d'accord, il y a bien 340 jours sur cet intervalle de temps ?

[edam]

une copy collez de decodedatetime de delphi 6

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
function DecodeDateFully(const DateTime: TDateTime; var Year, Month, Day, DOW: Word): Boolean;
const
  D1 = 365;
  D4 = D1 * 4 + 1;
  D100 = D4 * 25 - 1;
  D400 = D100 * 4 + 1;
var
  Y, M, D, I: Word;
  T: Integer;
  DayTable: PDayTable;
begin
  T := DateTimeToTimeStamp(DateTime).Date;
  if T <= 0 then
  begin
    Year := 0;
    Month := 0;
    Day := 0;
    DOW := 0;
    Result := False;
  end else
  begin
    DOW := T mod 7 + 1;
    Dec(T);
    Y := 1;
    while T >= D400 do
    begin
      Dec(T, D400);
      Inc(Y, 400);
    end;
    DivMod(T, D100, I, D);
    if I = 4 then
    begin
      Dec(I);
      Inc(D, D100);
    end;
    Inc(Y, I * 100);
    DivMod(D, D4, I, D);
    Inc(Y, I * 4);
    DivMod(D, D1, I, D);
    if I = 4 then
    begin
      Dec(I);
      Inc(D, D1);
    end;
    Inc(Y, I);
    Result := IsLeapYear(Y);
    DayTable := @MonthDays[Result];
    M := 1;
    while True do
    begin
      I := DayTable^[M];
      if D < I then Break;
      Dec(D, I);
      Inc(M);
    end;
    Year := Y;
    Month := M;
    Day := D + 1;
  end;
end;

[Edit]

DecodeDateFully, fonction

Voir aussi

Renvoie les valeurs Année, Mois, Jour et Jour de la semaine d'une valeur TDateTime.

Unité

SysUtils

Catégorie

routines date/heure

function DecodeDateFully(const DateTime: TDateTime; var Year, Month, Day,

DOW: Word): Boolean;

Description

La procédure DecodeDateFully sépare la valeur spécifiée par le paramètre Date en valeurs Année, Mois, Jour et Jour de la semaine. Si Année est une année bissextile, la valeur renvoyée pour la fonction est True*; sinon, la valeur renvoyée est False. Si la valeur TDateTime donnée est une année négative (BC), les paramètres renvoyés sont tous initialisés à zéro.