- お知らせ -
  • 当wikiのプログラムコードの表示を直してみました(ついでに長い行があると全体が下にぶっ飛ぶのも修正)。不具合があればBBSまでご連絡下さい。

日付操作いろいろ。

特定の日付を得る Edit

EncodeDate(年, 月, 日)を使う。

1
2
// 1992年1月1日の例
MogeDate := EncodeDate(1992, 1, 1);

今年の最後の日を得る Edit

DateをDecodeDateに渡して年を得て、EncodeDateで12月31日を指定する。

1
2
3
4
5
6
7
8
9
10
function NowLastDate: TDateTime;
  function DecodeToYear(Date: TDateTime): Integer;
  var Year, Month, Day: Word;
  begin
    DecodeDate(Date, Year, Month, Day);
    Result := Year;
  end;
begin
  Result := EncodeDate(DecodeToYear(Date), 12, 31);
end;



Front page   Edit Freeze Diff Backup Upload Copy Rename Reload   New Pages Search Recent changes   Help   RSS of recent changes
Last-modified: 2006-04-24 Mon 22:13:02 JST (4801d)