对于TDatetime怎样只截取日期，不要时间(50分)

N

NewLearner

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #1

我想比较两个DATETIME变量的日期是否相同，所以只能取他们的日期部分，请教各位

 

Y

yanlei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #2

showmessage(Datetostr(DateTimePicker1.Date));

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #3

将DATETIME转换，当字符串处理啊～

 

L

liuyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #4

FormatDateTime('YYYY-MM-DD',DateTimePicker1.date);

 

H

hthugm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #5

DecodeDate(TdataTime,y,m,d)
再比较M

 

E

ewengung

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #6

FormatDateTime('yymmdd',now)；
//输出格式为020110，六位日期

 

J

jmxw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #7

if DateToStr(A)=DateToStr(B)

 

F

free_knight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #8

var
d1,d2:TDate;
begin
d1:=StrToDate(DateToStr(DATETIME1);
d2:=StrToDate(DateToStr(DATETIME1);
..........................
end;

 

D

delphiwolf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #9

代码:

if Trunc(Date1) = Trunc(Date2) then

 

W

westboy2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #10

FormatDateTime('YYYY-MM-DD',now);

 

C

Celestial dog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #11

用Trunc截取!!

 

Z

zjjzl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #12

BCB: if (int(date1)==int(date2))
{....

 

N

NewLearner

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #13

为什么我从数据库取日期时：result:=strtodate(tmpquery.fieldbyname('rq').AsString)
会出错：'2002-01-10 11:10:10'is not a valid date

 

雁

雁孤行

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #14

为什么要用“result:=strtodate(tmpquery.fieldbyname('rq').AsString)”呢？
你可以直接用result:=tmpquery.fieldbyname('rq').AsDateTime

 

L

luoshanliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #15

很简单,把DateTimePicker的Time属性删除或改为0:00:00即可

 

I

iseek

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #16

NewLearner,
真巧，我今天才用到符合你答案的函数——楼上的兄弟的答案都对但都麻烦。：）
我程序中的例子：
function curTime: string;
var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
timeStr, dayStr: string;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);//分解年月日
dayStr := '今天是'+inttostr(Year)+'年'+inttostr(Month)+'月'+
inttostr(Day)+'日';DecodeTime(Present, Hour, Min, Sec, MSec);
DecodeTime(Present, Hour, Min, Sec, MSec);//分解时分秒和毫秒
timeStr := ' 现在时间：' + inttostr(Hour)+'时'+inttostr(Min)+'分';
Result := dayStr + ' ' + timeStr;
end;

应用：
MainFm.Caption:=curTime;

呵呵，拿分来

 

N

NewLearner

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #17

多人接受答案了。