en Este artículo se muestra cómo detectar cuántos días hay en un mes dado.
procedure TForm1.Button1Click(Sender: TObject)
var
& nbsp & nbsp MyDate : TDateTime
& nbsp & nbsp tmpStr : String
& nbsp & nbsp tmpInt : Integer
begin
& nbsp & nbsp MyDate := Fecha() 365 - (30*5)
& nbsp & nbsp tmpStr := FormatDateTime('mmmm yyyy',MyDate)
& nbsp & nbsp tmpInt := DaysInMonth(MyDate)
& nbsp & nbsp ShowMessage(tmpStr ' ha 'IntToStr(tmpInt)' días de...')
fin
función TForm1.DaysInMonth(ADate:TDateTime):Integer
var
& nbsp & nbsp MyMonth,
& nbsp & nbsp MyYear,
& nbsp & nbsp MyDay : Word
& 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 Resultado := MyDayTable[MyMonth]
fin
Dias en el mes
Dias en el mes : Multi-millones de consejos para hacer su vida mas facil.
en Este articulo se muestra como detectar cuantos dias hay en un mes dado.
procedure TForm1.Button1Click(Sender: TObject)
var
& nbsp & nbsp MyDate : TDateTime
& nbsp & nbsp tmpStr : String
& nbsp & nbsp tmpInt : Integer
begin
& nbsp & nbsp MyDate := Fecha() 365 - (30*5)
& nbsp & nbsp tmpStr := FormatDateTime('mmmm yyyy',MyDate)
& nbsp & nbsp tmpInt := DaysInMonth(MyDate)
& nbsp & nbsp ShowMessage(tmpStr ' ha 'IntToStr(tmpInt)' dias de...')
fin
funcion TForm1.DaysInMonth(ADate:TDateTime):Integer
var
& nbsp & nbsp MyMonth,
& nbsp & nbsp MyYear,
& nbsp & nbsp MyDay : Word
& 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 Resultado := MyDayTable[MyMonth]
fin
