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;
  • 相关阅读:
    rgb随机颜色函数
    mapshaper转geojson
    postgis
    Draw
    ol 聚类ol.source.Cluster的使用
    ol ---- overlay autoPan的使用
    多层数据注入同一个图层源时,要批量删除某一种要素
    js遍历数组,并从数组中删除元素
    echarts加载geojson
    centos65编译安装lamp和lnmp
  • 原文地址:https://www.cnblogs.com/studycode/p/10160008.html
Copyright © 2011-2022 走看看