第1个回答 2010-08-21
1、将August 等英文的月份替换成对应的数字月份,并将逗号“,”删除
2、使用正则表达式进行匹配,取匹配部分进行组合成需要的日期即可
或者
将你的电脑设置成英文区域,并将日期格式设置成英文,可以使用这种形式直接获取
procedure testDate;
var
myDateTime : TDateTime;
fmt:TFormatSettings;
begin
fmt.ShortDateFormat:='mmmm dd yyyy';
myDateTime := StrToDateTime('August 16 2010 15:00');
Writeln('August 16, 2010 15:00 = ',DateTimeToStr(myDateTime));
end;