string类型的20090203这种格式的日期和202856这种格式的时间,该怎么转化成2009-02-03和20:28:56????
解决方案 »
- 求一条SQL语句的写法。急
- fastreport 多个page 页码显示问题?
- 记得有个可以保存软件状态的组件?
- 大侠们,请拯救我这制菜鸟吧。如何在自己写的类中增加一个可以动态增加的对象集合。
- 紧急求救!我用TIdSMTP.send(TIdMessage)发送的邮件不能显示空格啊,如何解决啊??急。
- 如何在listView中显示下拉菜单
- 问题还未解决呢,请各位救救小弟弟吧!!!!
- 各位大哥,这是我写的源程序,请帮看一下,给点改进的意见
- 用access数据库的程序是否可以不用配置数据源?
- 没有可用分了,后边补上可不可以
- delphi 调用 ezweb.dl 出现了问题...initialize properly(0xc0000007b). 是什么原因呢?
- Raize控件的RZGroup动态加载子项时,如何写onclick事件啊?
select to_char(to_date('20090203 202856','yyyymmdd hh24:mi:ss'),'yyyymmdd hh24:mi:ss') from dual
然后组合或是设置新定义一个datetime对象,并设置其年月日和时分秒
20090203 div 100,再 mod 100 得到月
20090203 mod 100 得到日202856同理
Text := FormatFloat('00:00:00', Sender.AsFloat);
//theTime := '202856';
var
TDateTime dtA;
begin
strResult := copy(theDate,1,4) + '-' + copy(theDate,5,2) + '-' + copy(theDate,7,2) + char($20);
strResult := strResult+copy(theTime,1,2) + ':' + copy(theTime,3,2) + ':' + copy(theTime,5,2);
dtA := strToDateTime(strResult); //如果要返回字符串
Result := DataTimeToStr(dtA); //如果要返回的是DateTime
Result := dtA;end;
begin
d:=encodedate(strtoint(copy(s,1,4)),strtoint(copy(s,5,2)),strtoint(copy(s,7,2)));
d:=d+ encodetime(strtoint(copy(s,9,2)),strtoint(copy(s,13,2)),strtoint(copy(s,15,2)),0);
end;
var
s:string;
i,j:integer;
begin
i:=strtoint('20090203');
j:=i div 10000;
s:=inttostr(j)+'-';
i:=i-j*10000;
j:=i div 100;
s:=s+inttostr(j) + '-';
j:=i mod 100;
s:=s+inttostr(j);
showmessage(s);
end;
FormatFloat比较方便,赞!