菜鸟送分，有关Delphi日期函数(50分)

非常小菜 · 2001-07-09

请教各位大虾：
我有一个字符串，想测试它是否为日期型数据，Delphi中有无此类函数？比如像VB中类似
的 ISDateTime ?
（不要告诉我，让我自己编写一个！）

flash6 · 2001-07-09

mydate is TDatetime;

wulianmin · 2001-07-09

试试：
try
datetime:=formatdatetime('yyyy.mm.dd',mydate);
except
...
//not a valid Tdatetime value
end;

snjat · 2001-07-09

formatdatetime('yyyy-dd-mm',mydate);

非常小菜 · 2001-07-09

To snjat:
我说的是测试为日期型的函数，不是把字符串转换为日期型数据！

bjf2001 · 2001-07-09

这个应该不难解决,自己遍写一个吧,如:FUNCTION(S:STRING):BOOLEAN;
先测试改字符串是否能够转换为日期型,正确则判断为是日期型字符串,否则不是,
RESULT:=TRUE
ELSE
RESULT:=FALSE

jiichen · 2001-07-10

to 非常小菜：
要善用例外(except) 。

當轉換無法成功時，函數便會發出一個例外，
也就代表此字串並非是日期型態了。

ljqljq · 2001-07-10

和jiichen想法一样。

林西 · 2001-07-10

Delphi中的日期类型数据实质上是个双精度的浮点数，你只要判断数据是否在
有效范围之内就可以了

非常小菜 · 2001-07-10

;我一直以为Delphi有这样的函数，但很让我失望！
我已经用 Except 解决了这个问题，所以我给 wulianmin 加了20分,Jiichen和ljqljq
各10分。
另外，我觉的林西的想法很不错，所以林西也有10分。
谢谢名位!