Delphi 日期时间函数

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 日期时间函数的更多相关文章

Delphi日期时间 UNIX
Delphi日期时间,就是常见的 2014-05-02 10:37:35 --------------------------------------------------------------- ...
mysql与oracle的日期/时间函数小结
前言本文的日期/时间全部格式化为”2016-01-01 01:01:01“形式: MONITOR_TIME为数据库表字段: 字符串与日期/时间相互转换函数 Oracle 日期/时间转字符串函数:to ...
Oracle日期时间函数大全
ORACLE日期时间函数大全 TO_DATE格式(以时间:2007-11-02 13:45:25为例) Year: yy two digits 两位年显示值:07 yyy three digits ...
ORACLE 常用函数日期/时间函数
---------------------------------------------日期/时间函数----------------------------------------------- ...
MySQL日期时间函数大全（转）
MySQL日期时间函数大全 DAYOFWEEK(date) 返回日期date是星期几(1=星期天,2=星期一,……7=星期六,ODBC标准)mysql> select DAYOFWEEK('1 ...
Mysql学习笔记（五）数学与日期时间函数
学习内容: 1.数学函数 2.日期时间函数这些函数都是很常用的函数...在这里进行简单的介绍... 数学函数: mysql); //取绝对值函数这个函数可安全地使用于 BIGINT 值. mysq ...
MySQL数据库学习笔记（五）----MySQL字符串函数、日期时间函数
一.常见字符串函数: 1.CHAR_LENGTH 获取长度(字符为单位) 2.FORMAT 格式化 3.INSERT 替换的方式插入 4.INSTR 获取位置 5.LEFT/RIGHT 取左 ...
PHP函数之日期时间函数date()使用详解
date()函数是我们在php开发中常碰到并且会使用到的一个日期函数,下面我来给大家介绍date()函数的一些基本扮靓和方法,有需要了解的朋友可进入参考日期时间函数是PHP 的核心组成部分.无需 ...
SQL server 创建修改表格及表格基本增删改查及高级查询及 (数学、字符串、日期时间)函数[转]
SQL server 创建修改表格及表格基本增删改查及高级查询及 (数学.字符串.日期时间)函数 --创建表格 create table aa ( UserName varchar(50 ...

随机推荐

ThreadLocal源码分析：（一）set(T value)方法
在ThreadLocal的get(),set()的时候都会清除线程ThreadLocalMap里所有key为null的value. 而ThreadLocal的remove()方法会先将Entry中对k ...
Mysql主从复制架构实战
[root@Mysql-master ~]# vim /etc/my.cnf log-bin=mysql-bin server-id = 1 #slave端server-id值改成2 mysql&g ...
docker安装+测试环境的搭建---
漏洞演练环境docker地址:http://vulhub.org/#/environments/ 环境:kali-linux-2017.2-amd64.iso 一.docker安装 1.先更新一波源: ...
用javascript做别踩白块游戏2
这一次做一个好一点的,要求黑块自动下落,且速度逐渐加快 <!DOCTYPE html> <html> <head>  &l ...
es6学习笔记--Interator和Generator(以及for-of的用法)
这几天学习了遍历器和生成器,看着资料学,有点雾里缭绕的感觉,让人忍不住放弃,还好多看了好几遍,怼着资料里的例子让自己学会了Interator和Generator. Interator,中文简称:遍 ...
python全栈开发-re模块（正则表达式）应用（字符串的处理）
一.概述就其本质而言,正则表达式(或 RE)是一种小型的.高度专业化的编程语言,要讲他的具体用法要讲一本书!它内嵌在Python中,并通过 re 模块实现.你可以为想要匹配的相应字符串集指定规则:该 ...
bootstrap 菜单之手风琴效果
自己用bootstrap搭了个项目,纯属娱乐....为了检验学习bootstrap之成果. 效果如图: 一.搭建中发现一问题,因为以前测试都是写的html页面,这次用了母版页,点击页面的之后,页面会刷 ...
Django ORM那些相关操作
一般操作 https://docs.djangoproject.com/en/1.11/ref/models/querysets/ 官网文档常用的操作 <1> all() ...
mysql基础练习题
一.表关系请创建如下表,并创建相关约束二.操作表 1.自行创建测试数据 /* Navicat MySQL Data Transfer Source Server : mysql5.7.1 Sour ...
wmv12下安装centos7
第一步:安装软件: vmw版本是12,并在vmw下安装centos为CentOS-7-x86_64-DVD-1708.iso: 第二步:修改vmw虚拟网络配置 1)配置VMnet8 修改ip等信息点 ...

Delphi 日期时间函数

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

随机推荐

热门专题