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是运行在服务器上的程序,提供同客户 ...