function GetLastDateOfMonth(aYear, aMonth: Integer): TDateTime;
begin
Result := EncodeDate(aYear, aMonth, GetLastDayOfMonth(aYear, aMonth));
end;
Tampilkan postingan dengan label Date and Time. Tampilkan semua postingan
Tampilkan postingan dengan label Date and Time. Tampilkan semua postingan
Rabu, 07 November 2007
GetLastDateOfMonth
AddMonthsToDate
function AddMonthsToDate(aDate: TDateTime; aNrMonths: Integer): TDateTime;
begin
Result := IncMonth(aDate, aNrMonths);
end;
MonthsPassed
function MonthsPassed(aFrom, anUntil: TDateTime): Integer;
begin
Result := 12 * (YearFromDate(anUntil) -
YearFromDate(aFrom)) +
MonthFromDate(anUntil) -
MonthFromDate(aFrom);
end;
Langganan:
Comment Feed (RSS)
