1106540256 请把他转换成日期,在线等待
解决方案 »
- 在delphi程序里已经将数据库表的数据转写到excel表里,请问在delphi程序里怎样保存该excel文件到硬盘
- 有关视频会议协议穿越NAT和网守的问题
- 简单问题
- FastReport中,需要按两个字符型字段Field1,Field2分组,其分组表达式要怎样写出才正确?
- 请教高手!BDE下的TQUERY带参查询,在ADO下怎么实现啊 ?
- 有没有做塑胶注塑行业的富翁。想就业务流程沟通一下!参与就有分。
- 怎样用命令对DateTimePicker里面的年月日赋值
- 对于别的程序的TMemo编辑框,如何向他发送字符就如同用户输入一样
- 请问用API函数创建的小执行程序是否需要像VB一样的运行库呢?
- 怎样才可以想在什么地方输出文字,就在什么地方输出啊!!用什么方法!!
- 大家帮帮我啊,用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;