Discussion :

[jbat]

Salut,

Je cherche à obtenir la différences entre deux dates, mais pas en nombre de jours ou d'années ou de mois... Non, ce que je souhaite obtenir, c'est une différence en langage naturel.

Exemple de ce que je souhaite obtenir :

01/06/2005 - 01/07/2003 = - 1 an, 11 mois et 0 jour.

Après avoir cherché assez longtemps et testé plusieurs solutions, je viens vous demander un peu d'aide...

Savez-vous comment on peut faire ça ?

Merci !

[Reisubar]

Il faut programmer cela manuellement... Un exemple perso, qui ne gère pas au delà des jours :

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
function DiffToStr(const ANow, AThen: TDateTime): string;
resourcestring
  strLessThanOnMinute = 'Il y a moins d''une minute';
  strLessThanOneHour = 'Il y a environ %d minute(s)';
  strLessThanForHours = 'Il y a environ %d heure(s).';
  strToday = 'Aujourd''hui';
  strYesterday = 'Hier';
  strBeforeYesterday = 'Avant hier';
  strBeforeDays = 'Il y a environ %d jour(s).';
var
  LSeconds: Int64;
  LHours: Int64;
  LToday: TDateTime;
begin
  LSeconds := SecondsBetween(ANow, AThen);
  LHours := HoursBetween(ANow, AThen);
  if LSeconds < 60 then
    Result := strLessThanOnMinute
  else
    if LSeconds < 3600 then
      Result := Format(strLessThanOneHour, [Round(LSeconds / 60)])
    else
      if LHours < 4 then
        Result := Format(strLessThanForHours, [LHours])
      else
      begin
        LToday := EncodeDateTime(YearOf(ANow), MonthOf(ANow), DayOf(ANow), 0, 0, 0, 0);
        LHours := HoursBetween(LToday, AThen);
        if AThen > LToday then
          Result := strToday
        else
          if LHours < 24 then
            Result := strYesterday
          else
            if LHours < 48 then
              Result := strBeforeYesterday
            else
              Result := Format(strBeforeDays, [(LHours div 24) + 1]);
      end;
end;

[edam]

Code :

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

1
2
3
4
5
6
7
 
Function CenlangNaturel(d2,d1:TDateTime):string;
   VAR D:TDateTime;
begin
     d:=d1-d2;
     result:=FormatDateTime(' yyyy ans mm mois dd jour',d);
end;

une idée

[sjrd]

Avec les routines de l'unité DateUtils, c'est très simple :

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
function DiffDate(Date1, Date2 : TDate) : string;
var Tmp : TDate;
    Between : integer;
begin
  if Date1 > Date2 then
  begin
    Tmp := Date1;
    Date1 := Date2;
    Date2 := Tmp;
    Result := '';
  end else Result := '- ';
  Between := YearsBetween(Date1, Date2);
  Result := Result+IntToStr(Between) + ' an';
  if Between > 1 then Result := Result + 's';
  Between := MonthsBetween(Date1, Date2);
  Result := Result+', '+IntToStr(Between)+ 'mois et ';
  Between := DaysBetween(Date1, Date2);
  Result := Result+IntToStr(Between) + ' jour';
  if Between > 1 then Result := Result + 's';
end;

[jbat]

Merci pour vos idées...

Celles de réisubar et celle de sjrd sont très proches. Elles me retournent une différence en nombre de jour et/ou de mois et/ou d'années... Ce n'est pas ce que je voulais. Par exemple, avec ces solutions, s'il y a 1 an et 11 mois d'écart, je vais obtenir 1 an et 23 mois d'écart.

Celle d'edam me retourne des résultats étranges centrés autours de 1900 !!!

Je pense maintenant qu'effectivement, pour faire ce que je souhaite, il faut se taper l'algo à la main en s'inspirant des solutions proposées ... Dommage qu'il ne semble pas exister de fonction toutes faite.

Si quelqu'un en trouve toutefois une ou si quelqu'un veux bien partager un algo similaire qu'il aurai déjà écrit, ce serai sympa !

Merci pour votre aide.