日期：天数差(100分)

  • 主题发起人 主题发起人 lwgdelphi
  • 开始时间 开始时间
L

lwgdelphi

Unregistered / Unconfirmed
GUEST, unregistred user!
能否直接计算出两日期之间相隔的天数？譬如：相减。
最简单者得分！
同时，多谢！
 
老哥，分给的太多了。
EncodeDate(Year2, Month2, Day2)-EncodeDate(Year1, Month1, Day1);
 
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=232554
 
好象可用
Int(Int(DateTime2-DateTime1)/24)
 
可以直接用 Int(Int(DataTime2-DateTime1)/24)吗？？？
 
两个date直接相减
 
在SQL Server中：
select days =DATEDIFF(day, :StartDate, :Enddate)
 
取整后直接相减即可：

Integer(Date2)-Integer(Date1)
 
edit1:=char(date1-date2);
 
这个问题要是不平分的话,可说不上便宜了那个小子!
 
来晚了，datea-dateb
 
这个问题以前问过吧
其实TDatetime格式就是一个浮点数，
其中整数部分就是天数。
所以用Trunc(Datetime)就能得到其天数。
Trunc(Datetime1)-Trunc(Datetime2)
就是两个日期的天数差。
 
{Function GetTimes(StartTime,EndTime : String):String;
//计算两时间字符串相差
//StartTime:起始时间
//EndTime :结束时间
var i:Word;
begin
i:=0;
Result := '';
if GetTimeTrue(StartTime)=False then
Exit;
if GetTimeTrue(EndTime)=False then
Exit;
if StartTime>EndTime then
EndTime:=IntToStr(StrToInt(EndTime)+2400);
if Copy(EndTime,3,2)<Copy(StartTime,3,2) then
i:=40 ;
Result := AddZero2(IntToStr(StrToInt(EndTime)-StrToInt(StartTime)-i),4);
//DEMO: GetTimes('2150','0425'):='0635';
end;
}
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
5K
chlkuei
C
P
关于计算日期的问题！白送分的！ (100分)
回复
6
查看
171
CXF1269
C
I
日期型的数据怎么相加减？(30分)
回复
5
查看
187
luckchen8256
L
Y
日期问题，输入一个日期和天数返回一个日期(20分)
回复
9
查看
145
yongwang518
Y
K
如何计算两个日期之间相差的月份， 是什么函数？(50分)
回复
10
查看
127
krisjim
K
后退
顶部