Discussion :

[vpourchet]

Bonjour, je suis novice en delphi et je souhaite connaitre le nombre de jours dans un mois X de l'année.

J'utilise delphi 2007. J'ai pu lire qu'il éxistait une fonction DaysInMoth mais je crois que ma version de delphi n'en dispose pas. Actuellement j'utilise un tableau d'entiers initialisé comme suit :

Code :

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

1
2
3
 
DaysInYear: array[1..12] of integer;
DaysInYear :=  (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);

le problème vient, vous l'aurez compris des années bissextiles. Existe t'il une fonction toute faite dans delphi 2007 ou avez vous une fonction sous la main qui pourrait m'aider ?

par avance merci !

[vpourchet]

je crois que j'ai trouvé ...

Code :

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

1
2
3
4
 
month := StrToInt(FormatDateTime('mm',Now));
year := StrToInt(FormatDateTime('yyyy',Now));
nb_jours := MonthDays[isLeapYear(year)][month];

vous en pensez quoi ?

[ero-sennin]

Salut,

Un petit tour dans la FAQ et hop : Comment savoir si une année est bissextile ?

A+

[Cl@udius]

Salut

Tu peux utiliser les fonctions DaysInMonth ou DaysInAMonth. Ces fonctions sont définies dans DateUtils.

Pour l'année bissextile il existe la fonction IsLeapYear (Unit SysUtils) ou IsInLeapYear (unit DateUtils).

@+ Claudius.

[raffik11]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure nbrj(Sender: TObject);
var nj:integer;
begin
 nj := strtoint(FormatDateTime('dd',(now)+30))- strtoint(FormatDateTime('dd',(Now)));
if nj=2 then
showmessage(28)
else if nj=1 then
showmessage(29)
 else if nj=0 then
showmessage(30)
 else if nj=-1 then
showmessage(31);
end;