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.
DateUtils-Function
posted on 2009-05-20 22:13 万一 阅读(2413) 评论(0) 编辑 收藏