随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

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  万一  阅读(...)  评论(...编辑  收藏