IsLeapYear函数 - Borland Delphi 开发工作者手册

返回介绍

IsLeapYear函数

发布于 2019-08-04 字数 444 浏览 1352 评论 0

SysUtils

function IsLeapYear(Year:Word):Boolean;

IsLeapYear说明了一个指定的年份是否一个闰年。调用IsLeapYear决定Year参数指定了的年份是否为一个闰年。Year说明了日历的年。使用DecodeDate过程来获得Year的值。

以下的代码定义了一个函数来说明当前年是否是一个闰年。

function IsThisLeapYear: Boolean;

var

Yr,Mnth,day;word;

begin

DecodeDate(Date,Yr,Mnth,day);

Result:=IsLeapYear(Yr);

end;

上一篇:IsDelimiter函数

下一篇:IsPathDelimiter函数

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!