dernier jour du mois / nombre de jours dans le mois

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : dernier jour du mois / nombre de jours dans le mois

tantemerde

c'est pas faux

Salut à tous !

Le dernier jour du mois ce n'est pas seulement le jour de la paye, c'est aussi un fichu nombre qui varie selon les mois et les années, entre 28, 29, 30 et 31.
Je cherche donc une fonction Delphi qui prendrait en entrée un TDate ou un TDateTime, et qui me renverrait un entier ou un TDate ou un TDateTime contenant le dernier jour du mois ou le nombre de jours du mois.
L'un de vous aurait ce genre d'infos ?
(la fonction de Recherche ne me donne rien à ce sujet, au revoir les flammers)

Publicité

tantemerde

c'est pas faux

Je sais qu'il est possible de le faire par calcul en décomposant la date, en ajoutant un mois puis en retirant un jour, mais je cherche une fonction qui fait ça toute seule.

antp

Super Administrateur
Champion des excuses bidons

Y a pas de fonction toute faite, mais c'est pas vraiment difficile de calculer le dernier jour du mois :

d := IncMonth(RecodeDay(LaDate, 1)) - 1

Pour le nombre de jours du mois il y a DaysInMonth / DaysInAMonth (depuis Delphi 6 - au cas où tu as une plus vieille version...)

Ce qui permettrait de faire pour la 1e fonction :

d := RecodeDay(DaysInMonth(LaDate))

Message édité par antp le 12-12-2007 à 15:00:33

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

aldo13000

Salut ,

Suivant ta version tu peux regarder avec EndOfTheMonth .

---------------

antp

Super Administrateur
Champion des excuses bidons

Ha mince j'avais pas vu qu'elle existait aussi celle-là [:ddr555]

aldo13000

Pas grave va .

Tu vas t'en remettre non ?

---------------

tantemerde

c'est pas faux

Merci de vos réponses

Malheureusement pour ce projet j'utilise Deplhi 5 et les fonctions citées ci-dessus sont toutes inconnues.

J'ai donc codé ma propre fonction, que je copie ici au cas où ça intéresserait d'autres personnes :

Code :

{******************************************************************************************}
{*** Cette fonction renvoie le numéro du dernier jour du mois relatif à la date fournie ***}
{******************************************************************************************}
function LastDayOfMonth(d: TDate): integer;
var A,M,J: Word;
begin
{ On incrémente la date reçue d'un mois }
d := IncMonth(d,1);
{ On décode la date obtenue }
DecodeDate(d,A,M,J);
{ On réencode la date incrémentée d'un mois, avec un jour à 1 }
d := EncodeDate(A,M,1);
{ On revient en arrière d'un jour ==> on obtient le dernier jour du mois demandé }
d := d-1;
{ On décode à nouveau la date obtenue pour récupérer le numéro du jour }
DecodeDate(d,A,M,J);
{ On renvoie le résultat du calcul }
result := J;
end;

Et tant qu'on y est j'ai aussi écrit une fonction qui renvoie le numéro de la semaine pour la date fournie en paramètre, je partage au cas où :

Code :

{***********************************************************************************************}
{*** Cette fonction renvoie le numéro de la semaine dans laquelle se trouve la date fournie. ***}
{***********************************************************************************************}
function TFSRIS01.NumSemaine(d: TDate): integer;
var A,M,J: Word;
d1: TDate;
nb: integer;
begin
{ On calcule le nombre de jours qui nous séparent du dimanche suivant }
nb := 8-DayOfWeek(d);
if (nb = 7) then nb := 0;
{ On ajout ce nombre à la date fournie pour se positionner sur le dernier jours de la semaine demandée }
d := d+nb;
{ On décode la date obtenue pour récupérer l'année}
DecodeDate(d,A,M,J);
{ On vérifie que la date ne se trouve pas dans une zone "charnière" entre deux années}
if ((M = 1) and ((J-nb) <= 0)) then
begin // période charnière
d1 := EncodeDate(A,1,1);
nb := DayOfWeek(d1);
if ((nb >= 6) or (nb <= 1)) then
A := A-1;
end;
{ On crée une date au premier janvier de l'année demandée }
d1 := EncodeDate(A,1,1);
{ On calcule le nombre de semaines entières écoulées depuis le 1er janvier }
nb := Round((d-d1+1)/7);
{ On renvoie le résultat du calcul }
result := nb;
end;

Message édité par tantemerde le 06-02-2008 à 10:50:30

antp

Super Administrateur
Champion des excuses bidons

La fonction IncMonth existe dans Delphi 5, c'est plus simple pour ajouter 1 mois

Et en alternative du DaysInMonths que j'avais utilisé, on peut faire MonthsDays[IsLeapYear(Annee)][mois];

FORUM HardWare.fr

Programmation

Delphi/Pascal

dernier jour du mois / nombre de jours dans le mois

Sujets relatifs
Remplir un grand nombre de comboBox avec une boucle	[résolu][Ti-Basic]Compter le nombre de chiffres d'une variable
Calculer la date d'il y a 30 jours en PHP	compter le nombre d'occurrence
erreur code jeu de nombre	[SQL] Afficher un certain nombre de donnée dans 1 ligne d'un tableau
[BATCH] Nombre de fichier ??	[SQL] Maximum de chaque mois en une requête
Mysqli bind_param sur nombre de paramètres variable	[Résolu] explode(): connaitre le nombre de donnée dans une variable
Plus de sujets relatifs à : dernier jour du mois / nombre de jours dans le mois

Page générée en 0.033 secondes