关于时间相减的问题
在delphi 和Sql Server 中怎么实现时间相减？我知道有DateTimeToTimeStamp 和
TimeStampToMsecs的函数!但不知道怎么用!
问题点数：20、回复次数：9Top
1 楼zswang（伴水清清)(专家门诊清洁工）回复于 2000-11-28 16:43:00 得分 0
再说详细一点Top
2 楼zswang（伴水清清)(专家门诊清洁工）回复于 2000-11-28 17:49:00 得分 5
function TimeToSeconds(mTime: TTime): Integer;
var
Hour, Min, Sec, MSec: Word;
begin
DecodeTime(mTime, Hour, Min, Sec, MSec);
Result := Hour * 60 * 60 + Min * 60 + Sec;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Time1, Time2: TTime;
begin
Time1 := StrToTime(Edit1.Text);
Time2 := StrToTime(Edit2.Text);
Edit3.Text := IntToStr(TimeToSeconds(Time2) - TimeToSeconds(Time1));
end;
Top
3 楼xixi12359（xixi12359）回复于 2000-11-29 16:15:00 得分 0
sql: datediff(dd,time1,time2)Top
4 楼netlark（云雀）回复于 2000-11-30 15:09:00 得分 0
xixi12359：
你能说的详细一些吗？
Top
5 楼flykite（风筝）回复于 2000-11-30 15:31:00 得分 5
这是我刚试出来的.计算时差(包含日期、时间).
我的历时就是这样算出来的
Var NewDate,OldDate:Tdate;
newTime,OldTime:Ttime;
OYear,OMonth,ODay,OHour,OMin,OSec,OMsec,Nyear,Nmonth,Nday,Nhour,Nmin,Nsec,NMsec:Word;
Lstime:integer;
begin
NewTime:=StrToTIme(Edit5.Text);
OldTime:=StrToTime(Edit4.Text);
NewDate:=StrToDate(Edit1.Text);
OldDate:=StrToDate(Edit2.Text);
DecodeDate(OldDate,OYear,OMonth,ODay);
DecodeTime(OldTime,OHour,OMin,OSec,OMsec);
DecodeDate(NewDate,Nyear,NMonth,NDay);
DecodeTime(NewTime,NHour,NMin,NSec,NMsec);
Lstime:=(NMonth-OMonth)*30*24*60+(Nday-Oday)*24*60+(NHour-OHour)*24+(NMin-OMin);
Edit3.Text:=IntToStr(Lstime);
end;Top
6 楼dark_thor（dark_thor）回复于 2000-11-30 16:05:00 得分 5
如果天、时、分、秒则非常简单。
var date1,date2:TDateTime;//或TDate 、TTime
取天 round(date1-date2);
取时 round((date1-date2)*24);
取分 round((date1-date2)*24*60);
取秒 round((date1-date2)*24*60*60);
如取年或月也应十分简单，你可以自己试一下。Top
7 楼why_wf（假面人）回复于 2000-11-30 16:20:00 得分 3
var
time1,time2 tdatetime;
usetime:single;
begin
time1:=now;
time2:=shangjitime;
usetime:=(time1-time2)*24//获得小时数同理乘以一天的分钟数获得相差的分钟数.
endTop
8 楼wenzm（魔术师）回复于 2000-11-30 19:03:00 得分 2
SQlServer 中用DATEADD(datepart, number, date)
函数,躯体用法查阅SQLserver 的随机文档!
DelPhi 中就用dark_thor 的方法吧!Top
9 楼netlark（云雀）回复于 2000-12-01 10:22:00 得分 0
谢谢大家的支持！Top
