求秒转date类型(50)

  • 主题发起人 dafuwengqing
  • 开始时间
D

dafuwengqing

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大侠: 我现在有秒数31200,我希望把它写到数据库的datetime类型字段中成为2010-1-27 8:40:00,其中2010-1-27 为系统日期,谢谢了!
 
D

dullhe

Unregistered / Unconfirmed
GUEST, unregistred user!
function UINT2DateTime(Value:UINT):TDateTime;begin result:=IncSecond(BASEDATETIME,Value);end;BASEDATETIME:=??????自己求就是了SecondsBetween(2010-1-27 8:40:00,BASEDATETIME)=31200????求出BASEDATETIME,代人函数
 
Z

zbdzjx

Unregistered / Unconfirmed
GUEST, unregistred user!
思路:1、先取当前日期,转换成字符串。2、将日期字符串加上“00:00:00”,再转换回日期时间类型。3、再将转换后的日期时间类型加上31200/3600/24,就得到结果了。
 
L

liuls

Unregistered / Unconfirmed
GUEST, unregistred user!
uses DateUtils;procedure TForm1.btn1Click(Sender: TObject);var DateTime: TDateTime;begin DateTime := IncSecond(DateOf(Now()), 31200)
// IncSecond(StrToDateTime('2010-1-27'), 31200)
Caption := DateTimeToStr(DateTime);end;
 
S

skaly

Unregistered / Unconfirmed
GUEST, unregistred user!
同意dullhe,liuls,
 
S

sdqdzt

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);begin Caption:=DateToStr(Now)+' '+TimeToStr(31200/(3600*24));end;
 
顶部