文档章节

IsLeapYear、IsInLeapYear - 是否是闰年

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 78
阅读 2
收藏 0
SysUtils.IsLeapYear();
DateUtils.IsInLeapYear();

 
 
 
 
 

 

 

  

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;

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.


DateUtils-Function

本文转载自:http://www.cnblogs.com/del/archive/2009/05/21/1486175.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
bool isLeapYear(int year)-判断年份是否为闰年的函数

程序计算   如果输入的年份是闰年则返回 true,否则,返回 false   bool isLeapYear( int year )   {   if (year%400 == 0 || (year%4 == 0 && year%100 != 0))   return true;  ...

peterli
2012/08/19
0
0
初学的程序,做了一点修改,结果就不对的。帮忙看看,谢。

是一个给定年、月,打印当月日历的程序。 ———————————————————————— //起点 1800年1月1号,算本月1日是星期几,先算差了几年,几个月,其中有闰年, //然后用差值+...

socalmboy
2016/01/11
110
0
Java8 日期时间 —— LocalDate —— 年月日

一、简介 二、获取 LocalDate 的方法 1.获取当前的日期 LocalDate 2.根据年月日的值获取 LocalDate 3.根据某年的第n天获取 LocalDate 4.从时间纪元(1970年1月1日)开始第n天(负数表示在时间...

动听的椰子
2016/12/21
67
0
jquery中如何获得时间

js(jQuery)获取时间的方法及常用时间类 $(function(){ var mydate = new Date(); var t=mydate.toLocaleString(); /alert(t);/ $("#time").text(t); $("#time").load("Untitled-1.html"); })......

writeademo
2016/10/08
489
0
计算闰年的代码

在与日期有关的计算中往往需要知道某年是否为闰年,这里提供两种代码供大家选择使用(输出0表示非闰年,1表示闰年): 1:shell方法 2:awk方法

红薯
2009/05/06
406
1

没有更多内容

加载失败,请刷新页面

加载更多

CentOS5.11配置Let's Encrypt免费证书

安装环境: [root@WQ02 opt]# lsb_release -aLSB Version::core-4.0-amd64:core-4.0-ia32:core-4.0-noarch:graphics-4.0-amd64:graphics-4.0-ia32:graphics-4.0-noarch:printing-4.0-amd6......

m_lm
37分钟前
1
0
看看Canonical分享的2018年的十大Linux Snap

导读 Linux在2018年最令人耳目一新的一个方面是Snaps的普及。 Canonical透露,集装箱化的包装已经取得了巨大的成功。今天,Ubuntu制造商分享了2018年的十大Snap。 随着2018年即将结束,我发现...

问题终结者
50分钟前
3
0
天啦噜!在家和爱豆玩"剪刀石头布",阿里工程师如何办到?

阿里妹导读:如今,90、00后一代成为消费主力,补贴、打折、优惠等“价格战”已很难建立起忠诚度,如何与年轻人建立更深层次的情感共鸣?互动就是一种很好的方式,它能让用户更深度的参与品牌...

阿里云官方博客
今天
1
0
聊聊flink的Table API及SQL Programs

序 本文主要研究一下flink的Table API及SQL Programs 实例 // for batch programs use ExecutionEnvironment instead of StreamExecutionEnvironmentStreamExecutionEnvironment env = Stre......

go4it
今天
3
0
mysqldump应用

备份单个库/表数据或库/表结构 命令行下具体用法如下: mysqldump -u用戶名 -p密码 -d 数据库名 表名 > 备份文件名 1、导出数据库为dbname的表结构(其中用戶名為root,密码为dbpasswd,生成的...

阿dai
今天
4
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部