文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 237
阅读 10
收藏 0
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.


DateUtils-Function

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

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
吃鸡游戏百人语音,如何实现“听声辩位”找队友

一些吃鸡游戏会具备让玩家能通过声音辨析队友位置与距离的功能。具体效果是这样: 在地图中的两个玩家,走近至一定距离内,说话就自动能被对方听到。走远了,就无法听到。 两个在可听范围内的...

Agora
2018/02/24
0
0
玩玩智能家居7:Domoticz 中的 Events

玩玩智能家居7:Domoticz 中的 Events Architecting Life2017-11-242 阅读 Lua 在使用 Domoticz 的过程中,为了避免让 Domoticz 只是成为一个手机上的遥控器,就需要根据生活使用场景去定制一...

Architecting Life
2017/11/24
0
0
STL算法,

STL算法部分主要由头文件,,组成。要使用 STL中的算法函数必须包含头文件,对于数值算法须包含,中则定义了一些模板类,用来声明函数对象。 adjacent_find 在iterator对标识元素范围内,查找一...

阳666
2016/03/18
38
0
MySQL的时间差函数TIMESTAMPDIFF、DATEDIFF的用法

MySQL的时间差函数TIMESTAMPDIFF、DATEDIFF的用法 时间差函数TIMESTAMPDIFF、DATEDIFF的用法 我们在写sql语句,尤其是存储过程中,会频繁用到对于日期、时间的比较和判断,那么对于这两个时间...

laowang2915
2018/03/23
0
0
机房收费系统——上下机

上个月准备考试,机房收费系统就停了,考试完了任务还得继续。说到上下机可能是最令人头疼的,尤其是下机,需要查的表比较多而且数据类型也很多,思路理不清根本无从下手。 上机窗体首先要判...

邵鸿鑫
2013/11/05
0
0

没有更多内容

加载失败,请刷新页面

加载更多

rabbitmq安装教程

RabbitMQ有Windows与Linux版本的,这里先写Windows版本的安装。 以前安装软件总是在百度上找某某安装教程,结果能按照教程安装好的软件真的不多。想起先前以为大牛说的一句话,去官网按照官网...

em_aaron
今天
6
0
Android 贝塞尔曲线实践——波浪式运动

一、波浪效果如下 贝塞尔曲线自定义波浪效果的案例很多,同样方法也很简单,大多数和本案例一样使用二次贝塞尔曲线实现,同样还有一种是PathMeasure的方式,这里我们后续补充,先来看贝塞尔曲...

IamOkay
今天
2
0
Nmap之防火墙/IDS逃逸

选项 解释 -f 报文分段 --mtu 指定偏移大小 -D IP欺骗 -sI 原地址欺骗 --source-port 源端口欺骗 --data-length 指定发包长度 --randomize-hosts 目标主机随机排序 --spoof-mac Mac地址欺骗 ...

Frost729
今天
2
0
带你搭一个SpringBoot+SpringData JPA的环境

不知道大家对SpringBoot和Spring Data JPA了解多少,如果你已经学过Spring和Hibernate的话,那么SpringBoot和SpringData JPA可以分分钟上手的。 其实我在学完SpringBoot和SpringData JPA了之...

java菜分享
今天
7
0
Chocolatey 在Window搭建一个开发环境

在看了(利用 Chocolatey 快速在 Windows 下搭建一个开发环境)后,准备从零开始 一、准备工作 1、用管理员权限启动:powershell,执行错误请参考(PowerShell因为在此系统中禁止执行脚本的解...

近在咫尺远在天涯
今天
7
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部