Delphi 判斷閏年函數：IsLeapYear 與 IsInLeapYear 完整指南

在 Delphi 開發中，判斷某年份是否為閏年是常見需求。SysUtils 和 DateUtils 單元分別提供了 IsLeapYear 和 IsInLeapYear 兩個函數，雖然功能相似，但參數類型不同，適用場景也有所區別。本文將詳細說明這兩個函數的用法、差異以及實戰代碼示例。

函數簽名與所屬單元

• SysUtils.IsLeapYear(Year: Word): Boolean; — 直接傳入年份整數（如 2024）。
• DateUtils.IsInLeapYear(const AValue: TDateTime): Boolean; — 傳入 TDateTime 日期時間值，內部自動提取年份判斷。

核心區別

完整範例代碼

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses DateUtils;  { 必須引用 DateUtils 才能使用 IsInLeapYear }

procedure TForm1.FormCreate(Sender: TObject);
var
  b: Boolean;
begin
  { 直接用年份判斷 }
  b := IsLeapYear(2009);  { False }
  b := IsLeapYear(2012);  { True }

  { 用日期時間判斷 }
  b := IsInLeapYear(StrToDateTime('2009-1-1'));  { False }
  b := IsInLeapYear(StrToDateTime('2012-1-1'));  { True }

  { 可選：顯示結果 }
  // ShowMessage(BoolToStr(b, True));
end;

end.

常見陷阱與最佳實踐

1. 忘記引用 DateUtils：呼叫 IsInLeapYear 時若未在 uses 子句加入 DateUtils，編譯器會報「Undeclared identifier」。
2. 年份範圍：Word 類型支援 0~65535，實際應用建議限制在 1600~9999 之間，避免格里曆改制前的邊界問題。
3. 效能考量：若在緊迴圈中大量判斷，優先使用 IsLeapYear，避免額外的 TDateTime 解析開銷。

擴展：自訂閏年判斷邏輯

若需在不依賴 RTL 的情況下判斷（如跨平台或教學演示），可自行實現：

function IsLeapYearCustom(Y: Word): Boolean;
begin
  Result := (Y mod 4 = 0) and ((Y mod 100 <> 0) or (Y mod 400 = 0));
end;

總結：根據手頭資料類型選擇 IsLeapYear 或 IsInLeapYear，注意單元引用，即可輕鬆解決 Delphi 中的閏年判斷需求。