Delphi IsThisLeapYear 判断闰年

本文整理自网络，侵删。

 
function IsThisLeapYear(year : Word): Boolean;
begin
  Result := SysUtils.IsLeapYear(year);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  year : integer;
begin
  year := StrToInt(Edit1.Text);
  if (IsThisLeapYear(year)) then
    ShowMessage(Edit1.Text + ' is a leap year.')
  else
    ShowMessage(Edit1.Text + ' is not a leap year.');
end;
 

相关阅读 >>

Delphi console程序中一种定时方法

Delphi中使用xmlhttp / xmlhttprequest 避免缓存

Delphi中使用词霸2005的动态库xdictgrb.dll实现屏幕取词

Delphi xp下的进程静音技术

ttreeview的两个事件ondragdrop、ondragover 实现自动拖放功能

Delphi 动态更改webbrowser数据流内容

Delphi操作access

Delphi 已经最小化的窗体如何让它自己还原？

Delphi固定窗口大小

Delphi 几个实用的html解析函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi IsThisLeapYear 判断闰年