DateUtils.IncYear();
DateUtils.IncMonth();
DateUtils.IncWeek();
DateUtils.IncDay();
DateUtils.IncHour();
DateUtils.IncMinute();
DateUtils.IncSecond();
DateUtils.IncMilliSecond();

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
　t1,t2:　TDateTime;
　i:　Int64;
　d:　Double;
begin
　t1　:=　StrToDateTime('2011-1-1　1:1:1');

　t2　:=　IncYear(t1);
　ShowMessage(DateTimeToStr(t2));　//2012-1-1　1:01:01

　t2　:=　IncYear(t1,　3);
　ShowMessage(DateTimeToStr(t2));　//2014-1-1　1:01:01

　t2　:=　IncMonth(t1);
　ShowMessage(DateTimeToStr(t2));　//2011-2-1　1:01:01

　t2　:=　IncWeek(t1);
　ShowMessage(DateTimeToStr(t2));　//2011-1-8　1:01:01

　t2　:=　IncDay(t1);
　ShowMessage(DateTimeToStr(t2));　//2011-1-2　1:01:01

　t2　:=　IncHour(t1);
　ShowMessage(DateTimeToStr(t2));　//2011-1-1　2:01:01

　t2　:=　IncMinute(t1);
　ShowMessage(DateTimeToStr(t2));　//2011-1-1　1:02:01

　t2　:=　IncSecond(t1);
　ShowMessage(DateTimeToStr(t2));　//2011-1-1　1:01:02

　t2　:=　IncMilliSecond(t1);
　ShowMessage(FormatDateTime('yyyy-m-d　h:n:s:zzz',　t2));　//2011-1-1　1:01:01:001
end;

end.

StartOfAYear ... StartOfTheYear ... EndOfAYear ... EndOfTheYear ... 每年、月、周、日的开始与结束的时间。

{参数是指定的年、月、周、日}
DateUtils.StartOfAYear　
DateUtils.StartOfAMonth
DateUtils.StartOfAWeek　
DateUtils.StartOfADay

{参数是　TDateTime}
DateUtils.StartOfTheYear　
DateUtils.StartOfTheMonth
DateUtils.StartOfTheWeek　
DateUtils.StartOfTheDay

{参数是指定的年、月、周、日}
DateUtils.EndOfAYear　
DateUtils.EndOfAMonth
DateUtils.EndOfAWeek　
DateUtils.EndOfADay

{参数是　TDateTime}
DateUtils.EndOfTheYear
DateUtils.EndOfTheMonth
DateUtils.EndOfTheWeek
DateUtils.EndOfTheDay

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
　dt,t1,t2,t3,t4:　TDateTime;
　s1,s2,s3,s4:　string;
begin
　dt　:=　StrToDateTime('2009-5-20　11:22:33');

　t1　:=　StartOfAYear(2009);
　t2　:=　StartOfTheYear(dt);
　t3　:=　EndOfAYear(2009);
　t4　:=　EndOfTheYear(dt);

　s1　:=　FormatDateTime('yyyy-m-d　h:n:s:zzz',　t1);　//2009-1-1　0:0:0:000
　s2　:=　FormatDateTime('yyyy-m-d　h:n:s:zzz',　t2);　//2009-1-1　0:0:0:000
　s3　:=　FormatDateTime('yyyy-m-d　h:n:s:zzz',　t3);　//2009-12-31　23:59:59:999
　s4　:=　FormatDateTime('yyyy-m-d　h:n:s:zzz',　t4);　//2009-12-31　23:59:59:999

　t1　:=　StartOfAMonth(2009,　5);　{　2009　年　5　月　}
　t2　:=　StartOfTheMonth(dt);
　t3　:=　EndOfAMonth(2009,　5);
　t4　:=　EndOfTheMonth(dt);

　s1　:=　FormatDateTime('yyyy-m-d　h:n:s:zzz',　t1);　//2009-5-1　0:0:0:000
　s2　:=　FormatDateTime('yyyy-m-d　h:n:s:zzz',　t2);　//2009-5-1　0:0:0:000
　s3　:=　FormatDateTime('yyyy-m-d　h:n:s:zzz',　t3);　//2009-5-31　23:59:59:999
　s4　:=　FormatDateTime('yyyy-m-d　h:n:s:zzz',　t4);　//2009-5-31　23:59:59:999

　t1　:=　StartOfAWeek(2009,　21);　{　2009　年第　21　周　}
　t2　:=　StartOfTheWeek(dt);
　t3　:=　EndOfAWeek(2009,　21);
　t4　:=　EndOfTheWeek(dt);

　s1　:=　FormatDateTime('yyyy-m-d　h:n:s:zzz',　t1);　//2009-5-18　0:0:0:000
　s2　:=　FormatDateTime('yyyy-m-d　h:n:s:zzz',　t2);　//2009-5-18　0:0:0:000
　s3　:=　FormatDateTime('yyyy-m-d　h:n:s:zzz',　t3);　//2009-5-24　23:59:59:999
　s4　:=　FormatDateTime('yyyy-m-d　h:n:s:zzz',　t4);　//2009-5-24　23:59:59:999

　t1　:=　StartOfADay(2009,　140);　{　2009　年第　140　天　}
　t2　:=　StartOfTheDay(dt);
　t3　:=　EndOfADay(2009,　140);
　t4　:=　EndOfTheDay(dt);

　s1　:=　FormatDateTime('yyyy-m-d　h:n:s:zzz',　t1);　//2009-5-20　0:0:0:000
　s2　:=　FormatDateTime('yyyy-m-d　h:n:s:zzz',　t2);　//2009-5-20　0:0:0:000
　s3　:=　FormatDateTime('yyyy-m-d　h:n:s:zzz',　t3);　//2009-5-20　23:59:59:999
　s4　:=　FormatDateTime('yyyy-m-d　h:n:s:zzz',　t4);　//2009-5-20　23:59:59:999
end;

end.

WeeksInAYear、WeeksInYear、DaysInAYear、DaysInAMonth、DaysInYear、DaysInMonth - 获取指定年月的周、日数。

DateUtils.DaysInYear();
DateUtils.DaysInMonth();
DateUtils.DaysInAYear();
DateUtils.DaysInAMonth();
DateUtils.WeeksInYear();
DateUtils.WeeksInAYear();

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
　dt:　TDateTime;
　w:　Word;
begin
　dt　:=　StrToDateTime('2009-5-20　11:22:33');

　{指定日期所在年的总天数}
　w　:=　DaysInYear(dt);　　　　//365

　{指定日期所在月的总天数}
　w　:=　DaysInMonth(dt);　　　　//31

　{指定年的总天数}
　w　:=　DaysInAYear(2009);　　　//365

　{指定年、指定月的总天数}
　w　:=　DaysInAMonth(2009,　5);　//31

　{指定日期所在年的总周数}
　w　:=　WeeksInYear(dt);　　　　//53

　{指定年的总周数}
　w　:=　WeeksInAYear(2009);　　//53
end;

end.

WithinPastYears、WithinPastMonths、WithinPastWeeks、WithinPastDays ... 判断两个时间差是否在一个指定范围内。

DateUtils.WithinPastYears();
DateUtils.WithinPastMonths();
DateUtils.WithinPastWeeks();
DateUtils.WithinPastDays();
DateUtils.WithinPastHours();
DateUtils.WithinPastMinutes();
DateUtils.WithinPastSeconds();
DateUtils.WithinPastMilliSeconds();　

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
　t1,t2:　TDateTime;
　b:　Boolean;
begin
　t1　:=　StrToDateTime('2009-5-20　11:22:33');
　t2　:=　StrToDateTime('2009-5-21　11:22:33');

　{两个时间差是否在　24　年内}
　b　:=　WithinPastYears(t1,　t2,　24);　//True

　{两个时间差是否在　24　个月内}
　b　:=　WithinPastMonths(t1,　t2,　24);　//True

　{两个时间差是否在　24　个周内}
　b　:=　WithinPastWeeks(t1,　t2,　24);　//True

　{两个时间差是否在　24　天内}
　b　:=　WithinPastDays(t1,　t2,　24);　　//True

　{两个时间差是否在　24　个小时内}
　b　:=　WithinPastHours(t1,　t2,　24);　//True

　{两个时间差是否在　24　分钟内}
　b　:=　WithinPastMinutes(t1,　t2,　24);　　　//False

　{两个时间差是否在　24　秒内}
　b　:=　WithinPastSeconds(t1,　t2,　24);　　　//False

　{两个时间差是否在　24　毫秒内}
　b　:=　WithinPastMilliSeconds(t1,　t2,　24);　//False

//　ShowMessage(BoolToStr(b,　True));
end;

end.

RecodeDateTime、RecodeDate、RecodeTime、RecodeYear ... 修改时间。

DateUtils.RecodeDateTime();
DateUtils.RecodeDate();
DateUtils.RecodeTime();
DateUtils.RecodeYear();
DateUtils.RecodeMonth();
DateUtils.RecodeDay();
DateUtils.RecodeHour();
DateUtils.RecodeMinute();
DateUtils.RecodeSecond();
DateUtils.RecodeMilliSecond();
DateUtils.TryRecodeDateTime();

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);
const
　st　=　'yyyy-m-d　h:n:s:z';
var
　t1,　t2:　TDateTime;
begin
　t1　:=　EncodeDateTime(2001,　1,　1,　1,　1,　1,　1);

　t2　:=　RecodeDateTime(t1,　2009,　5,　21,　11,　22,　33,　999);
　ShowMessage(FormatDateTime(st,　t2));　　//2009-5-21　11:22:33:999

　t2　:=　RecodeDate(t1,　2009,　5,　21);
　ShowMessage(FormatDateTime(st,　t2));　　//2009-5-21　1:1:1:1

　t2　:=　RecodeTime(t1,　11,　22,　33,　999);
　ShowMessage(FormatDateTime(st,　t2));　　//2009-1-1　11:22:33:999

　t2　:=　RecodeYear(t1,　2009);
　ShowMessage(FormatDateTime(st,　t2));　　//2009-1-1　1:1:1:1

　t2　:=　RecodeMonth(t1,　5);
　ShowMessage(FormatDateTime(st,　t2));　　//2001-5-1　1:1:1:1

　t2　:=　RecodeDay(t1,　21);
　ShowMessage(FormatDateTime(st,　t2));　　//2001-1-21　1:1:1:1

　t2　:=　RecodeHour(t1,　11);
　ShowMessage(FormatDateTime(st,　t2));　　//2001-1-1　11:1:1:1

　t2　:=　RecodeMinute(t1,　22);
　ShowMessage(FormatDateTime(st,　t2));　　//2001-1-1　1:22:1:1

　t2　:=　RecodeSecond(t1,　33);
　ShowMessage(FormatDateTime(st,　t2));　　//2001-1-1　1:1:33:1

　t2　:=　RecodeMilliSecond(t1,　999);
　ShowMessage(FormatDateTime(st,　t2));　　//2001-1-1　1:1:1:999

　if　TryRecodeDateTime(t1,　2009,　5,　21,　11,　22,　33,　999,　t2)　then
　　ShowMessage(FormatDateTime(st,　t2));　　//2009-5-21　11:22:33:999
end;

end.

IsValidDateTime、IsValidDate、IsValidTime、IsValidDateDay ... 判断时间是否合法。

DateUtils.IsValidDateTime
DateUtils.IsValidDate
DateUtils.IsValidTime
DateUtils.IsValidDateDay
DateUtils.IsValidDateWeek
DateUtils.IsValidDateMonthWeek

//可用下面几个过程抛出异常:
DateUtils.InvalidDateDayError
DateUtils.InvalidDateMonthWeekError
DateUtils.InvalidDateTimeError
DateUtils.InvalidDateWeekError
DateUtils.InvalidDayOfWeekInMonthError

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　:=　IsValidDateTime(2009,　5,　21,　11,　22,　33,　999);　//True
　b　:=　IsValidDateTime(2009,　5,　21,　11,　22,　33,　9999);　//False

　b　:=　IsValidDate(2009,　5,　21);　//True
　b　:=　IsValidDate(2009,　5,　32);　//False

　b　:=　IsValidTime(11,　22,　33,　0);　//True
　b　:=　IsValidTime(11,　22,　61,　0);　//False

　b　:=　IsValidDateDay(2009,　141);　//True
　b　:=　IsValidDateDay(2009,　366);　//False

　b　:=　IsValidDateWeek(2009,　21,　7);　//True
　b　:=　IsValidDateWeek(2009,　21,　8);　//False

　b　:=　IsValidDateMonthWeek(2009,　5,　3,　7);　//True
　b　:=　IsValidDateMonthWeek(2009,　5,　3,　8);　//False

//　ShowMessage(BoolToStr(b,　True));
end;

end.

IsSameDay、IsToday - 判断是不是同一天、判断是不是今天。

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
　t1,t2,t3,t4:　TDateTime;
　b:　Boolean;
begin
　t1　:=　StrToDateTime('2009-1-21');
　t2　:=　StrToDateTime('2009-1-21');
　t3　:=　StrToDateTime('2009-5-21');
　t4　:=　Now;

　{判断是不是同一天}
　b　:=　IsSameDay(t1,　t2);　//True
　b　:=　IsSameDay(t1,　t3);　//False

　{判断给定时间和当前时间是不是同一天}
　b　:=　IsToday(t1);　//False
　b　:=　IsToDay(t4);　//True

//　ShowMessage(BoolToStr(b,　True));
end;

end.

Yesterday、Today、Tomorrow - 昨天、今天、明天。

unit Unit1;

interface

uses
　 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　 Dialogs;

type
　 TForm1 = class(TForm)
　　　 procedure FormCreate(Sender: TObject);
　 end;

var
　 Form1: TForm1;

implementation

{$R *.dfm}

uses DateUtils;

procedure TForm1.FormCreate(Sender: TObject);
var
　 t1,t2,t3: TDateTime;
begin
　 t1 := Yesterday;
　 t2 := Today;　　　　 //同 SysUtils.Date;
　 t3 := Tomorrow;

　 ShowMessageFmt('%s, %s, %s', [DateToStr(t1), DateToStr(t2), DateToStr(t3)]);
　 {2009-5-20, 2009-5-21, 2009-5-22}
end;

end.

Delphi 日期时间函数的更多相关文章

  1. Delphi日期时间 UNIX

    Delphi日期时间,就是常见的 2014-05-02 10:37:35 --------------------------------------------------------------- ...

  2. mysql与oracle的日期/时间函数小结

    前言 本文的日期/时间全部格式化为”2016-01-01 01:01:01“形式: MONITOR_TIME为数据库表字段: 字符串与日期/时间相互转换函数 Oracle 日期/时间转字符串函数:to ...

  3. Oracle日期时间函数大全

    ORACLE日期时间函数大全 TO_DATE格式(以时间:2007-11-02 13:45:25为例) Year: yy two digits 两位年 显示值:07 yyy three digits ...

  4. ORACLE 常用函数 日期/时间函数

    ---------------------------------------------日期/时间函数----------------------------------------------- ...

  5. MySQL日期时间函数大全（转）

    MySQL日期时间函数大全 DAYOFWEEK(date)  返回日期date是星期几(1=星期天,2=星期一,……7=星期六,ODBC标准)mysql> select DAYOFWEEK('1 ...

  6. Mysql学习笔记（五）数学与日期时间函数

    学习内容: 1.数学函数 2.日期时间函数 这些函数都是很常用的函数...在这里进行简单的介绍... 数学函数: mysql); //取绝对值函数 这个函数可安全地使用于 BIGINT 值. mysq ...

  7. MySQL数据库学习笔记（五）----MySQL字符串函数、日期时间函数

    一.常见字符串函数: 1.CHAR_LENGTH  获取长度(字符为单位) 2.FORMAT  格式化 3.INSERT  替换的方式插入 4.INSTR  获取位置 5.LEFT/RIGHT  取左 ...

  8. PHP函数之日期时间函数date()使用详解

    date()函数是我们在php开发中常碰到并且会使用到的一个日期函数,下面我来给大家介绍date()函数的一些基本扮靓和方法,有需要了解的朋友可进入参考   日期时间函数是PHP 的核心组成部分.无需 ...

  9. SQL server 创建 修改表格 及表格基本增删改查 及 高级查询 及 (数学、字符串、日期时间)函数[转]

    SQL server 创建 修改表格 及表格基本增删改查 及 高级查询 及 (数学.字符串.日期时间)函数   --创建表格 create table aa ( UserName varchar(50 ...

随机推荐

  1. vue 在已有的购买列表中（数据库返回的数据）修改商品数量

    连续加班一个月  连续通宵三天 到最后还是少了一个功能 心碎 简介:一个生成好的商品列表(数据库返回的数据) 首先拿到我们需要渲染的数组 在data中定义 我是在测试的时候 直接写了两条数据 下面开始 ...

  2. 自制 h5 音乐播放器 可搜索

    闲言碎语: 有好几天没有发表博客了,这也是因为一直开发音乐和完善我的博客项目,好不容易抽出时间总结一下这几天所做的东西,笔试又不断通知,实则匆忙 今天难得逃了一次课,就趁这时间,该写写就写写吧~~ 进 ...

  3. JAVA_SE基础——32.this关键字调用本类的构造方法

    黑马程序员入学blog... 也算是学习笔记. 下面我们来看段代码: package day07; class Student{ int id; //身份证 String name; //名字 pub ...

  4. 剑指offer-第一个只出现一次的字符

    题目描述 在一个字符串(1<=字符串长度<=10000,全部由字母组成)中找到第一个只出现一次的字符,并返回它的位置   解题思路 由于char类型一共有256种可能,所以开辟一个数组ha ...

  5. 前端之BOM和DOM

    BOM和DOM简介 BOM(Browser Object Model)是指浏览器对象模型,它使JavaScript有能力与浏览器进行“对话”. DOM(Document Object Model)是指 ...

  6. Java Class文件格式详解

    magic[4字节] 魔数,用来判断是否可以被虚拟机使用.固定值为0xCAFEBABE(咖啡宝贝)minor_version[2字节] 次版本号major_version[2字节] 主版本号,低版本的 ...

  7. Tomcat NIO

    说起Tomcat的NIO,不得不提的就是Connector这个Tomcat组件.Connector是Tomcat的连接器,其主要任务是负责处理收到的请求,并创建一个Request和Response的对 ...

  8. Java：Java 中会存在内存泄漏吗

    理论上Java因为有垃圾回收机制(GC)不会存在内存泄露问题(这也是Java被广泛使用于服务器端编程的一个重要原因):然而在实际开发中,可能会存在无用但可达的对象,这些对象不能被GC回收,因此也会导致 ...

  9. TensorFlow-Slim使用方法说明

    翻译自:https://github.com/tensorflow/tensorflow/tree/master/tensorflow/contrib/slim TensorFlow-Slim TF- ...

  10. 编写CGI程序步骤

    CGI common gateway interface 可以让一个客户端,从网页浏览器向服务器请求数据, 这是描述客户端和服务器程序之间传输数据的一种标准. CGI是运行在服务器上的程序,提供同客户 ...