如何知道今天的日期，如何查询本月第一号的日期，这个在delphi里应该怎么写？

Question

同上

Answer 1

今天的日期使用 TDate(Now)可以得到
本月第一号日期是什么意思，我没有明白。

Answer 2

Now()函数得到的是今天的日期，为实形，用datetimetostr(now())可转换为看得懂的字符形。本月第一号日期？啥意思？是要知道本月第一号星期几吗？如下：
Dayofweek(date)函数得到一个整形，为星期数，1为星期日，7为星期六。
里面的Date函数是得当前日期，你可以放入本月第一号的日期。如：
dayofweek(strtodate(2002-11-01))

Answer 3

当前的日期是Date，当前的日期+时间是Now：
begin
 Edit1.Text:=DateToStr(Date);
 Edit2.Text:=DateTimeToStr(Now);
end;得到本月一号的日期：
var
 MyFirst:TDate;
 wYear,wMonth,wDay:Word;
begin
 //将当前日期分解为年，月，日
 DecodeDate(Date,wYear,wMonth,wDay);
 //合成本月一号的日期
 MyFirst:=EncodeDate(wYear,wMonth,1);
 Edit3.Text:=DateToStr(MyFirst);
end;

Answer 4

var year,month,day:word;
date1:tdatetime;
begin
  decodedate(date,year,month,day);
  date1:=encodedate(year,1,day);  
end;

Answer 5

搞错了。应该是这样/
var year,month,day:word;
date1:tdatetime;
begin
  decodedate(date,year,month,day);
  date1:=encodedate(year,month,1);  
end;

Answer 6

数据是每天在数据库里记一条，这样的，
Fieldname TYPE COMMENT
DT TIMESTAMP 记录该数据的时间、日期
SB NUMBER 具体的水表数据如何选出本月第一条数据和本月最后一条数据？