Excel 公式 - 计算 2 个时间戳之间的天数、小时数、分钟数和秒数

Question

我有一个 vba 脚本，当用户运行像这样在单元格 A8 中留下时间戳时：

ActiveSheet.Range("A8").Value = Format(Now(), "dd/mm/YYYY hh:mm:ss")

这会在单元格 A8 中显示以下内容（格式为日期：

10/12/2016  9:15:10 AM

接下来我希望能够确定自上次用户运行 macro/vba 代码以来已经过了多少天、小时、分钟和秒。

我还在单元格 B8 中使用 =NOW() 捕获当前 date/time。

单元格 B8 也被格式化为日期并显示如下：

12/18/16 12:45

我的公式应该将 A8 中的时间戳与单元格 B8 中的当前时间和日期进行比较。

=INT(A8-B8)&" days "&TEXT(A8-B8,"h"" hrs ""m"" mins """)

我注意到这里的日期格式不一致，我不知道这是否重要？

由于某种原因，我没有得到想要的结果，我的公式出现了这个错误：

价值！

谁能告诉我哪里出错了？

此外，如果可能的话，我不想像这样一次显示天、小时、分钟和秒：

0 days, 0 hours, 0 minutes, 0 seconds

我真正想要的是，如果时间戳小于 60 秒，则显示如下内容：

55 seconds ago

Then something like:

20 minutes ago

then:

1 hour ago

then :

2 days ago

谢谢

Answer 1

首先，应该是B8-A8，而不是相反，因为B8应该大于A8。此更改应使您的初始公式有效。

二、您想要的公式：

=IF(B8-A8>=1,INT(B8-A8)&" days ago",IF(HOUR(B8-A8)>=1,HOUR(B8-A8)&" hours ago",IF(MINUTE(B8-A8)>=1,MINUTE(B8-A8)&" minutes ago",IF(SECOND(B8-A8)>=1,SECOND(B8-A8)&" seconds ago", " just now"))))

p.s.: 根据@YowE3K 的评论，要使其正常工作，您的单元格 A8 和 B8 应设置为 Date 类型，否则您应该格式化它们在公式中具有正确的格式。第一个选项应该更容易。

Excel 公式 - 计算 2 个时间戳之间的天数、小时数、分钟数和秒数

Excel formula - Calculate Days, Hours, Minutes and seconds between 2 timestamps

excel

vba

date

datediff

价值！