Delphi的DateToStr StrToDate格式灵活用法

最新推荐文章于 2018-02-28 20:56:00 发布
最新推荐文章于 2018-02-28 20:56:00 发布
阅读量185 收藏
点赞数
原文链接：http://www.cnblogs.com/qi123/p/5104715.html
版权
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的字符

转载于:https://www.cnblogs.com/qi123/p/5104715.html

weixin_30835933
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Delphi-日期时间函数
Francis的博客
12-14 2816
Delphi时间函数
delphi XE7 开发Android
05-17
function TServerMethods.DataSetQuery(const AstrSQL: string; AListParams: TStringlist; AListType: TStringlist; AlistrValues: TStringlist) : OleVariant; var i: integer; begin try objClientQuery.Close; AdoQuery.Close; AdoQuery.SQL.Clear; AdoQuery.SQL.Add(AstrSQL); for i := 0 to AListParams.Count - 1 do begin if AListType.Strings[i] = '0' then AdoQuery.Parameters.ParamByName(AListParams.Strings[i]).Value := AlistrValues.Strings[i]; if AListType.Strings[i] = '1' then AdoQuery.Parameters.ParamByName(AListParams.Strings[i]).Value := strToint(AlistrValues.Strings[i]); if AListType.Strings[i] = '2' then AdoQuery.Parameters.ParamByName(AListParams.Strings[i]).Value := strToFloat(AlistrValues.Strings[i]); if AListType.Strings[i] = '3' then AdoQuery.Parameters.ParamByName(AListParams.Strings[i]).Value := strToDateTime(AlistrValues.Strings[i]); end; AdoQuery.Open; objClientQuery.Open; result := objClientQuery.Data; except on e: exception do begin result:=e.Message; end; end; end;
Delphi中的日期及时间函数
gencheng的专栏
04-27 1514
------------------------------------------  Date and time routines 日期及时间函数 ------------------------------------------ Date 传回目前的日期 Unit SysUtils 函数原型 function Date: TDateTime; 范例 procedure TForm
Delphi 把时间格式转换成字符串.rar
07-10
Delphi 把时间格式转换成字符串来显示，在运行的程序界面中，选择一个指定的日期后，可将此日期转换成字符串格式的，也就是不再具备时间的属性，但是自身已经变为字符串了。人可以识别，但机器不再识别为时间了。 　...
格式化各种日期小工具.rar
07-07
在Unit3.pas中，你会找到处理日期格式化的事件处理函数，比如OnButtonClick事件，其中可能包含了对TDateTime类型的日期进行FormatDateTime或DateToStr等函数的调用，以实现日期的格式转换。 5. Project2.res：这是...
Delphi-日期时间函数详解.doc
02-13
这些函数和过程是 Delphi 中日期时间操作的基础，它们允许程序员在各种格式之间灵活地转换和处理日期时间数据，无论是进行文件操作、用户界面显示还是系统级别的时间操作。了解并熟练使用这些函数，可以帮助开发者更...
Delphi的StrToDate
一切有为法,如梦幻泡影,如露亦如电,应作如是观
10-20 1143
默认的StrToDate和当前操作系统设定的日期策略有关(短日期格式)，一旦和开发时用的编码不符，会抛出异常。 所以，最好在做转换时，强制转换一下，如下 [code="java"]var t:TDateTime; fs:TFormatSettings; begin fs.ShortDateFormat:='yyyy-mm-dd'; fs.DateSeparator:='-'; ...
【摘自网上】Delphi中DateTime的用法
liuyunhuanying的专栏
01-17 4749
在编写应用程序时，我们需要经常与时间和日期打交道，因此经常需要一些对时间的控制技术，在Delphi中，提供了一整套对日期和时间的操作函数，在此，我将详细介绍一下在Delphi中的时间操作技术，希望能对大家有所帮助。Delphi中的用于表示时间的类型： 首先，看一看在delphi中用于描述时间的几种数据结构，对时间的操作，其实就是对这些结构的操作。 TDateTime类型： Delphi中最常用的表示日期时间的数据类型TDateTime类型，和普通的整形数一样，你可以给日期定义一个日期型变量以便在程序中进行操
Delphi日期函数
Tercel99的专栏
05-25 1486
所在单元： DateUtilsDay 开头的函数1、DayOf()描述： 使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个 只带有日期的 TDateTime 类型变量。 例如： showmessage(DateTimetostr(dateof(now()))); 你得到的是 2003/03/19 而 showmessage(DateTimetostr((no
delphitimetostring
03-15 1133
Function TimeTToDateTimeStr(TimeT : Integer) : String;  Const UnixDateDelta = 25569; { days between 12/31/1899 and 1/1/1970 }  Var    DT  : TDateTime;    TZ  : TTimeZoneInformation;    Res : DWord;  B
Delphi常用日期函数
07-02 3404
Day 开头的函数●UnitDateUtilsfunction DateOf(const AValue: TDateTime): TDateTime;描述使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个只带有日期的 TDateTime 类型变量。例如：showmessage(DateTimetostr(dateof(now())));你得到的是 2003/03/19而
Delphi 日期时间函数详解
编程语言小筑
01-31 488
各种时间类型之间的转换函数 DateTimeToFileDate函数： 定义：DateTimeToFileDate(DateTime: TDateTime): Integer; 作用： 将一个TDateTime类型的时间转化为Dos环境中的时间，Dos环境下对时间的访问 方法和VCL中的TdateTime类型不一样，在进行文件操作时，为了保持时间的一致性，需 要使用DateTimeToF...
delphi 6 strtodate 系统格式报错
diaozanqiang5395的博客
02-28 228
在delphi中，当程序代码的strtodate参数格式与系统的短日期格式不一致时，http://blog.csdn.net/dydn120w/article/details/51118610能够解决，但delphi中没有这个方法和参数，所以只能按照以下方法解决： 1、获取系统日期分隔符，liqutils.dateseparater。 2、Format('yyyy%smm%s1',[...
使用datetimetostring得到想要的日期格式
好记性不如烂笔头
03-28 890
用DateTimeToString取得自己想要的格式的日期。如：procedure TForm1.btn1Click(Sender: TObject);var timestring : string;begin DateTimeToString(); datetimetostring(timestring,yyyy年mm月dd日,Now); //显示“XXXX
Delphi日期转换函数的定义及说明
guxianga
09-07 3107
datetimetofiledate (datetime:Tdatetime):longint; 将Tdatetime格式的日期时间值转换成DOS格式的日期时间值 datetimetostr (datetime:Tdatetime):string; 将Tdatatime格式变量转换成字符串，如果datetime参数不包含日期值，返回字符串日期显示成为00/00/00，如果datetime参数中没有
Delphi中TDateTime使用心得
luo809976897的专栏
10-09 1572
TDateTime是一个比较常用的类型，用于表达日期时间类型的数据。但是，刚刚接触delphi的新手在使用这个类型的时候往往会不知所措，不知道该怎样使用才能得到自己想要的结果。这里说说我在使用过程中的一点心得，其中大部分的内容是来自于delphi帮助，所以如果看了这篇文章对TDateTime还有什么不清楚的可以去看看Delphi的帮助。另外在这篇文章里我也会告诉大家我使用帮助的心得，这对老手或许是
DELPHI下读取与设置系统时钟
流年~~
08-05 4555
在DELPHI下读取与设置系统时钟 很多朋友都想在自己的程序中显示系统时间 这在DELPHI中十分容易 利用DateToStr(Date)及TimeToStr(Time)函数即可实现。 二者的函数原型如下: function DateToStr(Date:TDateTime):string; function TimeToStr(Time:TDateTime):string
delphi DateToStr
最新发布
06-08
Delphi中的DateToStr函数可以将日期值转换为字符串格式。该函数的语法如下： DateToStr(Date: TDateTime): string; 其中，Date参数表示要转换的日期值，TDateTime是一个表示日期和时间的数据类型。该函数返回一个...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值