Table of Content
HAL Forum
function Integer GetMonth (
Date d)
Description:
Returns month part of the given Date
Parameters:
d Date
procedure LastInMonth(Date d,var Date res)
BEGIN
  Integer i,j;
  
  i = GetYear(d);
  j = GetMonth(d);
  i = DaysInMonth(i,j);
  j = GetDay(d);
  i = i-j;
  res = AddDay(d,i);
  RETURN;
END;
Related topics:
««