Cet article explique comment détecter combien de jours dans un mois donné.
procedure TForm1.Button1Click(Sender: TObject)
var
& nbsp & nbsp Madate : TDateTime
& nbsp & nbsp tmpStr : String
& nbsp & nbsp tmpInt : Integer
begin
& nbsp & nbsp Madate := Date() 365 - (30*5)
& nbsp & nbsp tmpStr := FormatDateTime('mmmm aaaa', Madate)
& nbsp & nbsp tmpInt := DaysInMonth(Madate)
& nbsp & nbsp ShowMessage(tmpStr ' a 'IntToStr(tmpInt)' jours...')
fin
fonction de TForm1.DaysInMonth(ADate:TDateTime):Integer
var
& nbsp & nbsp MyMonth,
& nbsp & nbsp MyYear,
& nbsp & nbsp MyDay : Mot
& nbsp & nbsp MyDayTable : TDayTable
& nbsp & nbsp tmpBool : Boolean
begin
& nbsp & nbsp DecodeDate(ADate, MyYear, MyMonth, MyDay)
& nbsp & nbsp tmpBool := IsLeapYear(MyYear)
& nbsp & nbsp MyDayTable := MonthDays[tmpBool]
& nbsp & nbsp Résultat := MyDayTable[MyMonth]
fin
Jours dans le mois
Jours dans le mois : Plusieurs milliers de conseils pour vous faciliter la vie.
Cet article explique comment detecter combien de jours dans un mois donne.
procedure TForm1.Button1Click(Sender: TObject)
var
& nbsp & nbsp Madate : TDateTime
& nbsp & nbsp tmpStr : String
& nbsp & nbsp tmpInt : Integer
begin
& nbsp & nbsp Madate := Date() 365 - (30*5)
& nbsp & nbsp tmpStr := FormatDateTime('mmmm aaaa', Madate)
& nbsp & nbsp tmpInt := DaysInMonth(Madate)
& nbsp & nbsp ShowMessage(tmpStr ' a 'IntToStr(tmpInt)' jours...')
fin
fonction de TForm1.DaysInMonth(ADate:TDateTime):Integer
var
& nbsp & nbsp MyMonth,
& nbsp & nbsp MyYear,
& nbsp & nbsp MyDay : Mot
& nbsp & nbsp MyDayTable : TDayTable
& nbsp & nbsp tmpBool : Boolean
begin
& nbsp & nbsp DecodeDate(ADate, MyYear, MyMonth, MyDay)
& nbsp & nbsp tmpBool := IsLeapYear(MyYear)
& nbsp & nbsp MyDayTable := MonthDays[tmpBool]
& nbsp & nbsp Resultat := MyDayTable[MyMonth]
fin