日期比较大小 找客户关系管理软件
销售管理软件版1楼: 我已经把日期转换为2006 02 28 的样式(一定要这样的样式),用的是FormatDateTime,可是我却无法把它转换回2005-02-28,让其与NOW比较大小!
请各位帮忙!
请各位帮忙!
2楼: 用 replace函数 将空格换为 - ,然后再转换为日期函数就行了。 如客户关系管理软件
3楼: if StrToDateTime(stringreplace(datastr, '' '', ''-'', [rfReplaceAll])) > Now then
{* 比较后操作 *}
4楼: 在delphi中用:FormatDateTime(''yyyy-mm-dd'',2006 02 28)
5楼: 中鼎
说的对
6楼: FormatDateTime(''yyyy-mm-dd'',2006 02 28)
这样能编译通过?
销售管理软件版7楼: 我觉得楼主提的这个问题很奇怪,既然你能把它转换成2006 02 28 的样式
转换回2005-02-28怎么不会了?
姑且认为你是拿表的字段来转换的。FormatDateTime(''yyyy-mm-dd'',adoquery.fieldbyname(''时间'').AsDateTime),把最初还没转换成2006 02 28 的样式的数据拿来转换更方便啊。
请楼主指正[:)]
8楼: procedure TForm1.Button1Click(Sender: TObject);
var
Str:String;
DT :TDate;
begin
Str:=''2006 02 28'';
Str:=StringReplace(Str,'' '',''-'',[rfReplaceAll]);
DT :=StrToDate(Str);
If DT < Now Then
ShowMessage(FormatDateTime(''yyyy-mm-dd'',DT));
end;
9楼: 多人接受答案了。