客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
相关资料： http://www.delphitop.com/html/shijian/4924.html 方法1：
function GetDateFormat():string;
var
SysFrset: TFormatSettings;
begin
Result:='';
GetLocaleFormatSettings(GetUserDefaultLCID, SysFrset);
Result:=SysFrset.DateSeparator; //DateSeparator当前系统日期分隔符
end;
procedure TForm1.btn1Click(Sender: TObject);
var
Dat:TDateTime;
Fr, Fm:string;//保存日期格式的字符串变量
str: string;
begin
Fr:=GetDateFormat;//获取当前系统日期分隔符
Fm:= Format('yyyy%sMM%sdd hh:mm:ss',[Fr,Fr]);
str:= FormatDateTime(Fm,Now);
ShowMessage(str);
Dat:=StrToDateTime(str); //这样始终都会跟当前系统日期分隔符同步，这样不管你把当前系统日期分隔符设置为什么样都不会报错
end;
方法2：
procedure TForm1.btn2Click(Sender: TObject);
var
D:TDateTime;
s:string;
begin
// D:=VarToDateTime('05-10-14 04:35PM');
D:=VarToDateTime('2018-03-13 12:12:12');
S:=FormatDatetime('YYYY/MM/DD HH:MM:SS',D);
showmessage(s);
end;
----------------------------------
在 DELPHI IDE 下 按下 CTRL+SHIFT+F 。搜索 Application.Initialize; 就能找到 代码的修改位置。
另外 也可以不要 Application.Initialize; ，然后代码放到 其他位置。 特别是你第一个建立的 对象的位置。 例如 DataMoudle 或者 主界面，或者 登录界面。 在他们的 OnCreate 里写就行了。 with FormatSettings do begin ShortDateFormat := 'yyyy-mm-dd'; LongDateFormat := 'yyyy-mm-dd'; ShortTimeFormat := 'hh:nn:ss'; LongTimeFormat := 'hh:nn:ss'; DateSeparator := '-'; TimeSeparator := ':'; end; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论