zoukankan      html  css  js  c++  java
  • 时间与字符串

    SysUtils.StrToDate();
    SysUtils.StrToDateDef();
    SysUtils.TryStrToDate();
    
    SysUtils.StrToTime();
    SysUtils.StrToTimeDef();
    SysUtils.TryStrToTime();
    
    SysUtils.StrToDateTime();
    SysUtils.StrToDateTimeDef();
    SysUtils.TryStrToDateTime();
    
    SysUtils.DateToStr();
    SysUtils.TimeToStr();
    SysUtils.DateTimeToStr();
    SysUtils.DateTimeToString();
    
    SysUtils.FormatDateTime();
    

    SysUtils.FormatDateTime(); 函数参见:
    http://www.cnblogs.com/del/archive/2007/12/19/1005205.html

    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs;
    
    type
      TForm1 = class(TForm)
        procedure FormCreate(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    uses DateUtils;
    
    procedure TForm1.FormCreate(Sender: TObject);
    var
      d: TDateTime;
      str: string;
      fmt: TFormatSettings;
    begin
      d := StrToDateTime('2009-5-21 11:22:33');
    
      str := DateTimeToStr(d);
      ShowMessage(str);  // 2009-5-21 11:22:33
    
      GetLocaleFormatSettings(GetThreadLocale, fmt);
      fmt.DateSeparator := '/';
      fmt.TimeSeparator := '_';
      fmt.ShortDateFormat := 'dd/mm/yyyy';
      fmt.ShortTimeFormat := 'hh:mm:ss';
      str := DateTimeToStr(d, fmt);
      ShowMessage(str);  // 21/05/2009 11_22_33
    
      DateTimeToString(str, 'yyyy 年 m 月 d 日 h 点 m 分 s 秒', d);
      ShowMessage(str); //2009 年 5 月 21 日 11 点 22 分 33 秒
    end;
    
    end.
    
  • 相关阅读:
    扩展运算符(Spread operator)
    增强的对象字面量,解构赋值
    ES6 模板字符串(template string)
    let和const
    svg实现放大效果
    svg制作风车旋转
    jquery实现某宝放大点击切换
    jQuery之文档处理
    jQuery之属性操作
    jQuery css操作
  • 原文地址:https://www.cnblogs.com/del/p/1486680.html
Copyright © 2011-2022 走看看