zoukankan      html  css  js  c++  java
  • Delphi 解决StrToDateTime()不是有效日期类型的问题

    相关资料:

    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;
  • 相关阅读:
    WCF与 Web Service的区别是什么?各自的优点在哪里呢?
    asp、asp.net、ado、ado.net各自区别和联系?
    SQL触发器 inset自学经验
    SQL触发器实例讲解
    特价汇9.9元商品
    sql中数据库连接与断开式连接有什么区别?
    终止线程的三种方法
    selenium设置代理,基于chrome浏览器
    Selenium Webdriver定位元素的几种方式
    spring常用接口 InitializingBean的作用
  • 原文地址:https://www.cnblogs.com/FKdelphi/p/12434249.html
Copyright © 2011-2022 走看看