zoukankan      html  css  js  c++  java
  • Delphi 时间转换异常处理(各Win系统时间显示格式不同)

    由于每个系统默认的时间格式不同:yyyy-mm-dd或yyyy/mm/dd等;

    在中间层时间转换总是报错,特用以下方法比较保险;

    方法一:

    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;

    方法二:

    procedure TForm1.btn2Click(Sender: TObject);
    var
      dDateTime:TDateTime;
      sTemp:string;
    begin
    //  dDateTime:=VarToDateTime('06-11-03 02:33AM');
      dDateTime:=VarToDateTime('2018-04-16 11:40:12');
      sTemp:=FormatDatetime('YYYY/MM/DD HH:MM:SS',D);
      showmessage(sTemp);
    end;
  • 相关阅读:
    四十八.监控概述 、 Zabbix基础 、 Zabbix监控服务
    123D
    bzoj3879
    bzoj1699
    LA6878
    uoj#149
    687C
    codeforces round #424 div2
    803E
    713C
  • 原文地址:https://www.cnblogs.com/studycode/p/10160008.html
Copyright © 2011-2022 走看看