1106540256 请把他转换成日期,在线等待
解决方案 »
- delphi 6.0 查询慢
- 不能一起使用多个模糊查询判断吗?
- 求CSTalk文档
- delphi怎样实现这样的文件复制?[悬赏50分]
- 用TDBGridEh表格控件时,怎样得到单元格的坐标?
- 一个关于用http应用高速下载文件的问题,up有分
- 为什么Win2000下好好的Bmp图片到Win98下面目全非?
- 怎样对Delphi的ShellListView控件中选中的选项(多个文件夹或文件)进行复制,剪切到其他位置。急!!!!
- 卖二手产品,绝对低价,市场上没有在低得了~
- 如何使我的DELPHI程序在后台运行!!!?????
- 大家帮帮我啊,用delphi怎么做对战平台啊?
- DBgrid中的数据如何实现刷新???
结果同楼上
C的程序如下
AnsiString strSecond,strMinute,strHour,strDay,strMonth,strYeartime_t timer;
struct tm *ptimer;
timer=ptime;//长整数
ptimer=localtime(&timer);
strSecond=IntToStr(ptimer->tm_sec);
strMinute=IntToStr(ptimer->tm_min);
strHour=IntToStr(ptimer->tm_hour);
strDay=IntToStr(ptimer->tm_mday);
strMonth=IntToStr(ptimer->tm_mon+1);
strYear=IntToStr(1900+ptimer->tm_year);
我在DELPHI转换不了
我写几个数据放上面
1107251956 :对应时间为20050201175916
1107252100 :对应时间为20050201180140
希望大家帮帮我
另外,是你问的不清楚...不是我们回答的问题.OK.Function TForm1.UTimeToWTime(UTime:integer):TdateTime;
var
tmpDT:Tdatetime;
str1,str2:string;
begin
str1:=datetostr(EncodeDate(1970,1,1));
str2:=timetostr(EncodeTime(0,0,0,0));
tmpDT := strtodatetime(str1+' '+str2); result :=Round(UTime /86400) + tmpDT ;
end;
begin
result := ceil(946656000+(t-36526)*24*3600);
end;function CTimeToDateTime(t:LongInt):TDateTime;
begin
Result:=(t-946656000)/24/3600+36526;
end;
而C中time_t是longint,是距1970-1-1 8:00的秒数。
var
tmpDT:Tdatetime;
str1,str2:string;
begin
str1:=datetostr(EncodeDate(1970,1,1));
str2:=timetostr(EncodeTime(0,0,0,0));
tmpDT := strtodatetime(str1+' '+str2); result :=UTime /86400 + tmpDT ;
end;这样就可以了....
procedure TForm1.Button1Click(Sender: TObject);
var
x :tdatetime;
begin x :=incSecond(strtodatetime('1970-01-01 08:00:00'), strtoint(edit2.Text ) );
edit1.Text :=datetimetostr(x);
end;