日期查询???

Question

怎样在ACCESS中实现查询最近一星期/一个月的数据?
{1,用什么方法获得当前日期;2,怎样计算前一个星期是日期?是减7???}

Answer 1

当前日期是系统变量date;如果是要一个星期的数据就取第二个变量为date-7就可.

Answer 2

var 
rq:tdatetime;
begin
  rq:=now();
end;

Answer 3

1、当前日期： D2:=Date;
2、计算前一个星期：D1:=D2-7;
前一个月：
用 Delphi 中DecodeDate分解D2(DecodeDate(D2,Y,M,D)),得年Y、月M、日D,if M=1 then  begin M:=12  ;Dec(Y) end else Dec(M);  然后用D1:=EncodeDate(Y,M,D);

Answer 4

例：
FormatDateTime('yyyy.mm.dd hh:mm:ss',now());

Answer 5

var
str:string;begin
  str := FormatDateTime('yyyy.mm.dd hh:mm:ss',now());
end;function FormatDateTime(const Format: string; DateTime: TDateTime): string;
或用
str := datetimetostr(now());function DateTimeToStr(DateTime: TDateTime): string;