unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) mmo1: TMemo; mmo2: TMemo; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sen...

uses DateUtils ●function DateOf(const AValue: TDateTime): TDateTime; 描述： 使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个只带有日期的 TDateTime 类型变量。 例如： showmessage(DateTimetostr(dateof...

时间函数在窗体中可以直接使用。如果是无窗体的还是需要声明，下面是实现对象。 program Project1; uses Messages, SysUtils,Dialogs; {$R *.res} function MyDateTime(StartDate, EndDate, Preaching: TDateTime): Boolean; begin Result:=false; if (Preaching>=StartDate)and(Preaching>=EndDate) then Result:=true; end;...