Delphi的DateToStr StrToDate格式灵活用法

2008-04-09 10:19

procedure TForm1.Button1Click(Sender: TObject);
var
   ADate: String;
   ADate2: TDate;
   AFormat, AFormat2: TFormatSettings;
begin
   AFormat.ShortDateFormat := ‘ee/mm/dd‘;
   AFormat.DateSeparator := ‘/‘;
   ADate := ‘94/05/15‘;
   ADate2 := StrToDate( ADate, AFormat );
   AFormat2.ShortDateFormat := ‘yyyy/mm/dd‘;
   AFormat2.DateSeparator := ‘/‘;
   ShowMessage( DateToStr( StrToDate( ADate, AFormat ), AFormat2 ) );
end;

其中,最重要的就是TFormatSettings这个类.

可以设置AFormat.shortDateFormat:=‘yyyymmdd‘

DateToStr(ADate,Aformat)得到字符串就是类似20080409的字符了.

如果是‘yymmdd‘则为080409的字符

时间： 2024-10-19 12:11:15

Delphi的DateToStr StrToDate格式灵活用法的相关文章

正则表达式的格式及用法

利用正则表达式的各种格式及用法主要利用正则表达式进行搜索查找的命令常用的为grep(检索).egrep(扩展grep)和fgrep. grep:利用正则表达式以及文本信息等条件检索文件中信息的命令,并显示包含匹配的字符串的行. 格式: grep [options] 'pattern' filename options:选项(可省略) pattern:正则表达式及文本 filename:文件名选项: -i:忽略字符大小写 --color:给匹配的字符串加颜色 -o:只显示匹配的"字符串

Delphi中stringlist分割字符串的用法

Delphi中stringlist分割字符串的用法 TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的. 常规的用法大家都知道,现在来讨论它的一些高级的用法. 1.CommaText 2.Delimiter &DelimitedText 3.Names &Values &ValueFromIndex 先看第一个:CommaText.怎么用呢? const constr :String = 'aaa,bbb,ccc,ddd'; var strs :TStrin

教程-Delphi中Spcomm使用属性及用法详解

Delphi中Spcomm使用属性及用法详解 Delphi是一种具有功能强大.简便易用和代码执行速度快等优点的可视化快速应用开发工具,它在构架企业信息系统方面发挥着越来越重要的作用,许多程序员愿意选择 Delphi作为开发工具编制各种应用程序.但是,美中不足之处是 Delphi没有自带的串口通信控件,在它的帮助文档里也没有提及串口通信,这就给编制通信程序的开发人员带来许多不便. 目前,利用 Delphi实现串口通信的常用的方法有 3种:一是利用控件,如 MSCOMM控件和 SPCOMM控件:二

Delphi 修改系统时间格式为：'yyyy-MM-dd HH:mm:ss', 'yyyy''年''M''月 ''d''日'''

声明: //记录系统日期格式: GSysShortDate, GSysLongDate, GSysTimeFormat: string; //获取系统日期格式:procedure GetSysDateTimeFormat();//设置系统日期格式:procedure SetSysDateTimeFormat(GSysShortDate, GSysLongDate, GSysTimeFormat: string); 实现://获取系统日期格式:procedure GetSysDateTimeFor

find命令格式与用法

find: 实时查找工具,通过遍历指定路径下的文件系统完成文件查找: 工作特点: 查找速度略慢: 精确查找: 实时查找: 常用参数: name filename #查找名为filename的文件- perm #按执行权限来查找-user username #按文件属主来查找-group groupname #按组来查找 -mtime -n +n #按文件更

Delphi xe5 控件TIdhttp的用法post，get解决中文乱码问题

网络接口如下图: 浏览器演示如下:http://xxx.xxx.xxx.xxx/web/login!doLogin?data={"password":"yy123","userCode":"yyy123","terminalCode":"123"} 返回信息是一个json格式的字符串:{"errorMsg":"登录成功!","result

汇编leal命令的灵活用法及理解

AT&T里leal的命令有一些灵活的用法,它具有两种作用: 1,将有效地址写入到目的操作数. 2,可以简洁地描述普通的算术操作. 例子: 1)leal -4(%ebp), %eax 这个是不是把ebp里面存储的地址减去4了之后放在eax里. 2)leal 0x0(,%ebx,4), %edx (假设ebx里面存的是x) 那么根据代码,它的效果是edx里的值是4*x. 个人觉得可以这样理解.如果你的%ebx存的是存储器里的一个数的地址,那么使用leal指令的用法就是加载有效地址到目的操作数,属于用

HTML注释的格式和用法

HTML注释的格式:  左尖括号开始,一个感叹号跟两个减号.然后写入注释内容.后面跟两个减号,以右尖括号结束: ————如果只是不知道注释的格式,上面的内容就够了———————————————————————————————————————————— 格式的补充说明: 1注释的内容以及注释的符号在浏览器都不会显示,并且不占用浏览器的空间: 2可以对多行进行注释,只要内容被包裹在“”这一对注释符号中即可: 3注释也可以写在一行程序的末

Delphi中弹出框的用法

Delphi中的提示框有 Application.MessageBox ShowMessage messagedlg 个人认为相对来说 Application.MessageBox 更加灵活也相对好用 Application.MessageBox('错误信息!','提示',MB_ICONERROR);Application.MessageBox('确认信息?', '提示', MB_YESNO or MB_ICONQUESTION);对应返回值: idYes idNo 原文链接: https