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 删除字符串中首个字符

Delphi debug和release区别

Delphi获取各种编码的识别符

Delphi ttabcontrol在tabitem添加关闭按钮

Delphi textfile utf8编码读写

Delphi 如何读取内存中的数据?

Delphi createmessagedialog

Delphi 执行控制台(console)程序获取返回结果

Delphi配置文件ini

Delphi 把流中的字符串转换为 utf 格式

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...