procedure TForm1.Button1Click(Sender: TObject);
var
s: char;
b: TDateTime;
begin
s := DateSeparator;
DateSeparator := '.';
b := StrToDate('2002.05.12');
DateSeparator := s;
ShowMessage(DateToStr(b));
end;
var
s: char;
b: TDateTime;
begin
s := DateSeparator;
DateSeparator := '.';
b := StrToDate('2002.05.12');
DateSeparator := s;
ShowMessage(DateToStr(b));
end;
解决方案 »
- delphi中操作cookie,为什么我写不对呀
- 引用其他工程中窗体中的控件
- 问一个弱弱的问题:怎样编译编辑好的dll工程,生成.dll文件?
- 各位高手给个动态生成报表的解决方案!!!
- 请教:在delphi2005中,怎么做一个webservice这么难!
- 有关ActiveX控件安装问题!
- ★★★★★专用delphi资料FTP空间开通,奉献给喜欢将DELPHI资料共享的朋友。本空间同时也支持ASP和ASP.NET★★★★★
- 一个关于数据库的建立的问题
- 我用adoquery建立了两个单独的数据源,但如何实现主从关系呢?
- 怎样动态创建一个TWebBrowser?
- 菜鸟问题:图片与数据库
- 如何编制delphi控件?
type TValueRelationship = -1..1;Value Constant Meaning-1 LessThanValue The first value is less than the second value.
0 EqualsValue The two values are equal.
1 GreaterThanValue The first value is greater than the second value.
close;
sql.clear;
sql.add('select datediff(minute,convert(char,'+#39+你的字符串变量+#39'),convert(char,'+#39+你的字符串变量+#39'))';
open;
DayStr:String;
begin
DayStr:=FormatDateTime('YYYY.MM.DD',YourDate);//YourDate为TDate型
if DayStr>DatabaseDateStr then
……
else if DayStr<DatabaseDateStr then
……
else
……//DatabaseStr为从数据库中取出来的日期串,串可以直接比较的!
end;