5,930
社区成员
发帖
与我相关
我的任务
分享将如:"Tue,13 Jun 2006 13:05:59"的字符串 转换为tdatetime型
如题!给一个形如:"Tue,13 Jun 2006 13:05:59"的字符串,怎么转换为tdatetime型的呢????
...全文
请发表友善的回复…
发表回复
老之 2006-06-14
- 打赏
- 举报
const TMonth:array[1..12] of string=('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
var s:string;
a:TDateTime;
Y,M,D:integer;
begin
s:='Tue,13 Jun 2006 13:05:59';
D:=StrToInt(copy(s,pos(',',s)+1,2));
for M:=1 to 12 do
if TMonth[M]=copy(s,pos(' ',s)+1,3) then break;
Y:=StrToInt(copy(s,pos(' ',s)+5,4));
a:=EncodeDate(Y,M,D);
a:=StrToDateTime(DateTimeToStr(a)+' '+copy(s,pos(' ',s)+10,8));
ShowMessage(DateTimeToStr(a));
end;
var s:string;
a:TDateTime;
Y,M,D:integer;
begin
s:='Tue,13 Jun 2006 13:05:59';
D:=StrToInt(copy(s,pos(',',s)+1,2));
for M:=1 to 12 do
if TMonth[M]=copy(s,pos(' ',s)+1,3) then break;
Y:=StrToInt(copy(s,pos(' ',s)+5,4));
a:=EncodeDate(Y,M,D);
a:=StrToDateTime(DateTimeToStr(a)+' '+copy(s,pos(' ',s)+10,8));
ShowMessage(DateTimeToStr(a));
end;
