谁能计算出公元距现在的小时数!! ( 积分: 0 )

S

sysbygszg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-27

• #1

谁能计算出公元0000年距现在的小时数!!

 

S

sysbygszg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-27

• #2

谁能计算出公元0000年距现在的小时数!!

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-27

• #3

老大！你提问题不给分数也就算了，给了分数的你又不结帐，请问你觉得还会有人回答你的问题吗？记住！在DFW诚心很重要！

 

S

sysbygszg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-27

• #4

在哪给分啊

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-27

• #5

你的帖子提交回复的时候，上面写了“给某某某分数”，选中那个点，然后在下拉列表里面选择给分的人。如果你要给多人分，可以点下面那个点，在要给的人的名字右边输入框内给分数值，然后提交回复就可以了。

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-27

• #6

噢，可能误会你了，对不起！不过请记得把你该结的帖子结了...至于方法相信zqw0117已经说得很清楚了。关于你的问题，你可以这样做：
一，给定一个年份上限，如2005年，然后用一个循环和一个中间计数变量就可以实现你的目的，循环下限设定为0000年；
二，在循环体中用IsLeapYear来判断当前年份是否为闰年，是闰年的话就用闰年的天数×24，否则就用平年的天数×24，并且每次循环后用中间计数变量来计算当前已经累计的小时数；
这样循环结束后，中间变量中的结果就是你要的小时数累计值。

 

J

jey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-27

• #7

理论少说,实战吧
uses DateUtils //添加日期单元
多少小时:
Edit1.Text:=FloatToStr(HoursBetween(-693593,0)+HoursBetween(now,0) );
多少分:
Edit1.Text:=FloatToStr(MinutesBetween(-693593,0)+MinutesBetween(now,0) );
多少秒
Edit1.Text:=FloatToStr(SecondsBetween(-693593,0)+SecondsBetween(now,0) );
提示:-693593表示:0001-01-01

 

G

g60sl22c

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-27

• #8

0001-01-01到1899-12-30为693593天
1899-12-30到2005年12月27日零时 刚好38713天
刚编了个程序就派上用途了