zoukankan      html  css  js  c++  java
  • EncodeDateTime ... TryEncodeDateTime ... 构建时间

    SysUtils.EncodeDateTime
    SysUtils.EncodeDate
    SysUtils.EncodeTime
    
    DateUtils.EncodeDateDay
    DateUtils.EncodeDateMonthWeek
    DateUtils.EncodeDateTime
    DateUtils.EncodeDateWeek
    DateUtils.EncodeDayOfWeekInMonth
    
    DateUtils.TryEncodeDateTime
    DateUtils.TryEncodeDateDay
    DateUtils.TryEncodeDateWeek
    DateUtils.TryEncodeDateMonthWeek
    DateUtils.TryEncodeDayOfWeekInMonth
    

    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Memo1: TMemo;
        procedure FormCreate(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    uses DateUtils;
    
    procedure TForm1.FormCreate(Sender: TObject);
    var
      t: TDateTime;
      s: string;
    begin
      t := EncodeDateTime(2009, 5, 20, 11, 22, 33, 999);
      s := FormatDateTime('yyyy-m-d h:n:s:zzz', t); //2009-5-20 11:22:33:999
    
      t := EncodeDate(2009, 5, 20);
      s := FormatDateTime('yyyy-m-d h:n:s:zzz', t); //2009-5-20 0:0:0:000
    
      t := EncodeTime(11, 22, 33, 999);
      s := FormatDateTime('h:n:s:zzz', t);          //11:22:33:999
    
      t := EncodeDateDay(2009, 140);
      s := FormatDateTime('yyyy-m-d', t);           //2009-5-20
    
      t := EncodeDateWeek(2009, 21);
      s := FormatDateTime('yyyy-m-d', t);           //2009-5-18
      t := EncodeDateWeek(2009, 21, 3);
      s := FormatDateTime('yyyy-m-d', t);           //2009-5-20
    
      t := EncodeDateMonthWeek(2009, 5, 3, 3);
      s := FormatDateTime('yyyy-m-d', t);           //2009-5-20
    
      t := EncodeDayOfWeekInMonth(2009, 5, 3, 3);
      s := FormatDateTime('yyyy-m-d', t);           //2009-5-20
    
      if TryEncodeDateTime(2009, 5, 20, 11, 22, 33, 999, t) then
        s := FormatDateTime('yyyy-m-d h:n:s:zzz', t);      //2009-5-20 11:22:33:999
    
      if TryEncodeDateDay(2009, 140, t) then
        s := FormatDateTime('yyyy-m-d', t);                //2009-5-20
    
      if TryEncodeDateWeek(2009, 21, t) then
        s := FormatDateTime('yyyy-m-d', t);                //2009-5-18
    
      if TryEncodeDateMonthWeek(2009, 5, 3, 3, t) then
        s := FormatDateTime('yyyy-m-d', t);                //2009-5-20
    
      if TryEncodeDayOfWeekInMonth(2009, 5, 3, 3, t) then
        s := FormatDateTime('yyyy-m-d', t);                //2009-5-20
    end;
    
    
    end.
    


    DateUtils-Function
  • 相关阅读:
    新年第一个项目思考
    ICP通讯(EN)
    将绝对路径变成URL路径(原创)
    [图像处理] 铁路轨道道岔检测(一)
    一个外国的好网站 http://www.ilovejackdaniels.com/
    内容全面的企业网站策划书
    asp.net2.0学习历程 菜鸟到中级程序员的飞跃
    TimeSpan 用法 求离最近发表时间的函数
    ASP.NE导出Excel
    在网页中,鼠标放在Flash链接上,光标形状会在手型和鼠标之间不停的闪 的解决办法
  • 原文地址:https://www.cnblogs.com/del/p/1473157.html
Copyright © 2011-2022 走看看