Calculer nombre de jours

Benallou.Mohamed Messages postés 28 Statut Membre -  
[Dal] Messages postés 6205 Date d'inscription   Statut Contributeur Dernière intervention   -
Salut tout le monde, je veux savoir comment calculer nombre de jours entre une date et la date du jour sur Delphi 7, je veux savoir comment procéder de A a Z SVP...

2 réponses

yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584
 
bonjour, qu'as-tu essayé?
0
Benallou.Mohamed Messages postés 28 Statut Membre 1
 
j'ai rien essayé pour le moment, je ne sais même pas par quoi commencé
0
[Dal] Messages postés 6205 Date d'inscription   Statut Contributeur Dernière intervention   1 106
 
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
0
Benallou.Mohamed Messages postés 28 Statut Membre 1
 
Justement, Delphi 7 ne comporte pas cette fonction, celle-ci est pour Delphi 10.2 Tokyo
0
[Dal] Messages postés 6205 Date d'inscription   Statut Contributeur Dernière intervention   1 106
 
0
[Dal] Messages postés 6205 Date d'inscription   Statut Contributeur Dernière intervention   1 106
 
Sinon, selon https://github.com/project-jedi/jedi/blob/master/jedi.inc#L562 issu de https://www.delphi-jedi.org/ l'unité DateUtils serait présente depuis les versions Delphi 6+
0