XE2 日期字串轉日期的函式

//可識別處理多種格式.

function mystrtodatetime(sdate:string):tdatetime;

const

dseparator = '-';

vardtpos,tmpos:integer;

begin

result := 0;

formatsettings.dateseparator := dseparator;

formatsettings.timeseparator := ':';

formatsettings.thousandseparator := ',';

formatsettings.shortdateformat :='yyyy-mm-dd';

formatsettings.shorttimeformat :='hh:nn:ss';

formatsettings.longdateformat :='yyyy-mm-dd';

formatsettings.longtimeformat :='hh:nn:ss';

sdate := replacestr( sdate,'.' ,dseparator);

sdate := replacestr( sdate,'/' ,dseparator);

sdate := replacestr( sdate,'\' ,dseparator);

sdate := replacestr( sdate,'年',dseparator);

sdate := replacestr( sdate,'月',dseparator);

sdate := replacestr( sdate,'日',dseparator);

dtpos := pos(dseparator,sdate);

tmpos := pos(':',sdate);

//yyyymmdd字串格式轉日期.

if (dtpos=0) and (tmpos=0) and (length(sdate)=8) then

begin

sdate := copy(sdate,1,4)+ dseparator + copy(sdate,5,2)+ dseparator + copy(sdate,7,2);

end;

//yyyymmdd hh:nn:ss字串

格式轉日期.

if (dtpos=0) and (tmpos>0) and (length(sdate)>13) then

begin

tmpos := pos(' ',sdate);

sdate := copy(sdate,1,4)+ dseparator + copy(sdate,5,2)+ dseparator + copy(sdate,7,2) + copy(sdate,tmpos,8);

end;

result := strtodatetimedef(sdate, 0, formatsettings);

end;

日期的格式 字串轉日期

var mydate new date 輸出 sat nov 26 2016 16 15 27 gmt 0800 中國標準時間 mydate.tolocaledatestring 可以獲取當前日期 下午4 15 27 mydate.tolocaletimestring 可以獲取當前時間 2016 1...

js中日期轉字串，字串轉日期，日期的用法

目錄 建立日期 指定月最後一天 當day為負數的時候，就表示的是指定月的最後一天的向前偏移量。當前日期加一天 日期轉字串 字串轉日期 new date year,month,day 然後簡單使用一下date物件提供的建構函式。var newdate new date 2019,10,9 format...

JAVA 字串轉日期 日期轉字串 Tips

概括步驟 1.建立 dateformat物件，設定好自己需要的日期格式以及銜接格式 2.建立對應日期格式的date物件 3.通過 dateformat物件呼叫format方法傳date物件,接取string類返回值。y 代表年 m 代表月 d 代表日 h 代表24進製的小時 h 代表12進製的小時 ...