Calculer nombre de jours

bonjour, qu'as-tu essayé?

Salut Benallou.Mohamed,

Delphi a une fonction DaysBetween dans l'unité DateUtils

http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.DateUtils.DaysBetween

Delphi 7 semble bien comporter cette fonction (mais je n'ai pas d'installation sous la main pour le vérifier), que tu devrais utiliser.

En tout cas, cela fonctionne avec Free Pascal Compiler :

program DifferenceJours;

uses
  DateUtils,   // Contient DaysBetween et EncodeDateTime
  SysUtils;    // Contient IntToStr

var
  dateDebut, dateFin : TDateTime;
  
begin
  dateDebut := EncodeDateTime(2016, 12, 20, 0, 00, 0, 0);
  dateFin := EncodeDateTime(2018, 10, 25,  13, 07, 0, 0);

  writeln('Jours de différence = '+
              IntToStr(DaysBetween(dateFin, dateDebut)));
end.

donne :

Jours de différence = 674

Dal