delphi 中怎样保存DateTimePicker1.Date的值

Posted 2023-05-13

例如保存时edit写成trim(Edit1.Text)那么DateTimePicker1.Date应怎样写

Delphi中FormatDateTime的用法－南山古桃－关键词：Delphi，FormatDateTime...
关键词：Delphi，FormatDateTime，日期函数，格式化

声明为：

function FormatDateTime(const Format: string; DateTime: TDateTime): string;
overload;
返回值是一种格式化后的字符串,重点来看Format参数中的指令字符

c 以短时间格式显示时间，即全部是数字的表示
FormatdateTime('c',now);
输出为：2004-8-7 9:55:40

d 对应于时间中的日期，日期是一位则显示一位，两位则显示两位
FormatdateTime('d',now);
输出可能为1～31

dd 和d的意义一样，但它始终是以两位来显示的
FormatdateTime('dd',now);
输出可能为01～31

ddd 显示的是星期几
FormatdateTime('ddd',now);
输出为: 星期六

dddd 和ddd显示的是一样的。但上面两个如果在其他国家可能不一样。ddddd 以短时间格式显示年月日
FormatdateTime('ddddd',now);
输出为：2004-8-7

dddddd 以长时间格式显示年月日
FormatdateTime('dddddd',now);
输出为：2004年8月7日
(**** 转载敬请注明－本文出处：南山古桃(nsgtao)的百度空间：http://hi.baidu.com/nsgtao/ ****)
e/ee/eee/eeee 以相应的位数显示年
FormatdateTime('ee',now);
输出为：04 （表示04年）

m/mm/mmm/mmmm 表示月
FormatdateTime('m',now);
输出为：8
FormatdateTime('mm',now);
输出为 08
FormatdateTime('mmm',now);
输出为 八月
FormatdateTime('mmmm',now);
输出为 八月

和ddd/dddd 一样，在其他国家可能不同yy/yyyy 表示年
FormatdateTime('yy',now);
输出为 04
FormatdateTime('yyyy',now);
输出为 2004,

h/hh,n/nn,s/ss,z/zzz 分别表示小时，分，秒,毫秒

t 以短时间格式显示时间
FormatdateTime('t',now);
输出为 10:17

tt 以长时间格式显示时间
FormatdateTime('tt',now);
输出为10:18:46

ampm 以长时间格式显示上午还是下午
FormatdateTime('ttampm',now);
输出为：10:22:57上午

大概如此，如果要在Format中加普通的字符串，可以用双引号隔开那些特定义的字符，这样普通字符串中如果含特殊的字符就不会被显示为时间格式啦：
FormatdateTime('"today is" c',now);
输出为：today is 2004-8-7 10:26:58

时间中也可以加"-"或"\"来分开日期：
FormatdateTime('"today is" yy-mm-dd',now);
FormatdateTime('"today is" yy\mm\dd',now);
输出为： today is 04-08-07
(**** 转载敬请注明－本文出处：南山古桃(nsgtao)的百度空间：http://hi.baidu.com/nsgtao/ ****)
也可以用":"来分开时间
FormatdateTime('"today is" hh:nn:ss',now);
输出为：today is 10:32:23 参考技术A DateTimePicker1.Date是TDate类型，你需要保存为什么类型？
如果你想转为字符串的话，请使用DateToStr函数转换：
ShowMessage(DateToStr(DateTimePicker1.Date));
或者还有FormatDateTime等。
如果要保存到数据库的话，有对应的AsDate方法。 参考技术B edit1.text:=datetostr(DateTimePicker1.Date);

怎样在delphi的对话框指定文件夹路径(急呀）

怎样在delphi的对话框（OpenDialog1）指定文件夹路径--打开存在的EXCEL文档 比如我在打开存在的EXCEL文档时--打开的文件夹是自己设定的“E:\11111111”路径文件夹---而不是还要去电脑里找哪盘
我现在以有了打开存在的EXCEL文档的代码了，接下来该怎么办，还有请写明是哪个控件比如 Standard--Label 控件
//打开存在的EXCEL文档
procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
try
v:= CreateOleObject('Excel.Application');
v.Visible := CheckBox1.Checked;
v.Workbooks.Open(OpenDialog1.FileName);
// Sheet := v.Workbooks[1].WorkSheets[1];
except
Showmessage('初始化Excel失败，可能没装Excel，或者其他错误；请重起再试。');
v.DisplayAlerts := false;
v.Quit;
exit;
end;
Application.Restore;
Application.BringToFront;
end;
end;
根据你们的回答 我加入了语句 不过运行还是错

参考技术A OpenDialog1.InitialDir :='E:\11111111';
OpenDialog1.Execute ;