文件日期的转化?(50分)

A

aqudc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-15

• #1

我用下面两行程序来得到文件日期:
i:=FileOpen(SourceFileName,fmOpenRead);
FileDate:=DateTimetoStr(FileDateToDateTime(FileGetDate(I)));
但是得到的日期是这样的格式:
97-3-8 20:41:20
如何将它转换为:
97-03-08 20:41:20
另:如何判断两个日期的大小?

 

W

wgzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-15

• #2

如果只是想看的习惯些,可以用FormatDateTime('YYYY-MM-DD',Date)来定义格式.
Time也类似.
至于判别大小,再转换成日期不就可以了吗?

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-15

• #3

1.不要用DateTimetoStr,用formatdatetime函数
2.直接比较大小

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-15

• #4

来晚了:-(
if date1>date2 then

 

M

MicroZeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-15

• #5

var SarchRec : TSearchRec;

if findFirst('C:/windows/desktop/demo.txt', faAnyFile, SearchRec) = 0 then
begin
ShowMessage(
FormatDateTime('yyyy-nn-dd, hh:mm:ss', FileDateToDateTime(SearchRec.Time))
);

end;

应该可以吧， 没有编译过。

 

老

老莫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-15

• #6

第二个问题补充一句：
如果是判断文件日期，可以
if fileage(filename1)>fileage(filename2) then
begin
........
end;

 

L

lmtree

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-15

• #7

先用formatdatetime函数再比较大小，一定行！

 

阿

阿蒙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-16

• #8

1
date:=datetime(now);
FormatDateTime('YYYY-MM-DD',date);
2
if date1>date2 then 应该可以，没试过。

 

L

Liu JZX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-16

• #9

var
i:Thandle
begin
shortdateformat:='yyyy/mm/dd';
i:=FileOpen('c:/netlog.txt',fmOpenRead);
label1.caption:=DateTimetoStr(FileDateToDateTime(FileGetDate(I)));

 

3

3h

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-16

• #10

众恶人的手真快！
就只说一句吧。如果想以比较两个同样格式如 yy-mm-dd的字符串日期，用直接比较也无妨。
if d1 > d2 then...

 

A

aqudc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-19

• #11

多人接受答案了。