VBのDateSerial関数と同様に、パラメータの月・日に範囲外の値を設定しても
それに該当する日付を算出して返します。
何ヶ月後とか何日後とかを計算するのに重宝してます。

例) 
"DateSerial(1996, 15, 48)"とした場合、日付時間型で"1997/4/17"を返します。

function DateSerial(y, m, d:Integer): TDateTime;
var
  wY, wM: Word;
begin
  if  m > 0  then
  begin
    wY := y + (m - 1) div 12;
    wM := (m - 1) Mod 12 + 1;
  end
  else
  begin
    wY := y + m div 12 - 1;
    wM := 12 + m Mod 12;
  end;
  DateSerial := EncodeDate(wY, wM, 1) + (d - 1);
end;

                                     JBC01362  アトリエ まっちゃん

Original document by Atelier Macchan 氏 ID:(JBC01362)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。