文档章节

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
109
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方法 echo $((y%4==0&&y%100!=0||y%400==0))举例y=2000echo $(...

红薯
2009/05/06
327
1

没有更多内容

加载失败,请刷新页面

加载更多

OSChina 周六乱弹 —— 到底谁是小公猫……

Osc乱弹歌单(2018)请戳(这里) 【今日歌曲】 @莱布妮子:分享Trivium的单曲《Throes Of Perdition》 《Throes Of Perdition》- Trivium 手机党少年们想听歌,请使劲儿戳(这里) @小鱼丁:...

小小编辑
51分钟前
90
3
基础选择器

注意:本教程参考自网上流传的李兴华老师的jquery开发框架视频,但是苦于没有相应的配套笔记,由我本人做了相应的整理. 本次学习的内容 学习jquery提供的各种选择器的使用,掌握了jquery选择...

江戸川
57分钟前
1
0
Spring中static变量不能@value注入的原因

今天本想使用@Value的方式使类中的变量获得yml文件中的配置值,然而一直失败,获得的一直为null。 类似于这样写的。 public class RedisShardedPool { private static ShardedJedisPool pool...

钟然千落
今天
2
0
CentOS7防火墙firewalld操作

firewalld Linux上新用的防火墙软件,跟iptables差不多的工具。 firewall-cmd 是 firewalld 的字符界面管理工具,firewalld是CentOS7的一大特性,最大的好处有两个:支持动态更新,不用重启服...

dingdayu
今天
1
0
关于组件化的最初步

一个工程可能会有多个版本,有国际版、国内版、还有针对各种不同的渠道化的打包版本、这个属于我们日常经常见到的打包差异化版本需求。 而对于工程的开发,比如以前的公司,分成了有三大块业...

DannyCoder
今天
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部