比较时间代码

marmot777

提取系统时间，和单元格里面的时间做比较，代码怎么写？谢谢。不用比较日期，光比较时间就行。

小凡、、、

time   单元个-int（单元格）

杨建营

1. Sub dddd()
   
2.     Dim wb, xt
   
3.     wb = CDate(InputBox("请输入时间", "提示", "2024-6-30 10:10:10"))
   
4.     xt = Now
   
5.     chah = DateDiff("h", wb, xt) '时
   
6.     chan = DateDiff("n", wb, xt) '分
   
7.     chas = DateDiff("s", wb, xt) '秒
   
8.     MsgBox "小时差" & chah & vbCrLf & "分钟差" & chan & vbCrLf & "秒差" & chas
   
9. End Sub

复制代码

猜一下

杨建营

计算“时”，“分”，“秒”，请楼主参考。

marmot777

小凡、、、 发表于 2024-7-1 18:26
time   单元个-int（单元格）

我问的具体点吧。Excel表格A列是时间，B列是文本，当系统时间到A1的时候，弹出B1内容，到A2的时候，弹出B2内容，以此类推。这段代码怎么写？谢谢。

木子客

单元格里面是时间是什么样的，要么上传个文件，要么至少截个图出来

marmot777

木子客 发表于 2024-7-1 19:02
单元格里面是时间是什么样的，要么上传个文件，要么至少截个图出来

这样的文件，当系统时间到A1的时候，弹出B1内容，到A2的时候，弹出B2内容，以此类推。这段代码怎么写？

小凡、、、

marmot777 发表于 2024-7-1 18:48
我问的具体点吧。Excel表格A列是时间，B列是文本，当系统时间到A1的时候，弹出B1内容，到A2的时候，弹出B ...

传附件，以什么形式弹出（创建个按钮后msgbox弹出之类的），是找小于最近的时间对应的B列还是什么，讲具体点，

marmot777

小凡、、、 发表于 2024-7-1 19:22
传附件，以什么形式弹出（创建个按钮后msgbox弹出之类的），是找小于最近的时间对应的B列还是什么，讲具 ...

系统时间到a1里面的时间09：00：13的时候，弹出提示框显示b1里面的内容（卖开2414撤），然后系统时间到了a2里面的时间09：00：40的时候，弹出提示框显示b2里面的内容（卖开2141），以此类推。弹出形式就是桌面弹出提示框之类的，里面显示就行。

木子客

Sub CheckTime()
    Dim cellTime As Date
    Dim currentTime As Date
    Dim timeDifference As Long
   
    ' 假设单元格A1包含时间，例如9:03:22
    cellTime = Range("A1").Value
   
    ' 获取当前系统时间
    currentTime = Now
   
    ' 计算时间差（以秒为单位）
    timeDifference = Abs(DateDiff("s", cellTime, currentTime))
   
    ' 如果时间差小于等于5分钟（300秒），则弹出提示框
    If timeDifference <= 300 Then
        MsgBox "单元格的时间与系统时间相差不超过5分钟。"
    Else
        MsgBox "单元格的时间与系统时间相差超过5分钟。"
    End If
End Sub
你可以使用以下VBA代码来实现这个功能：

```vba
Sub CheckTime()
    Dim cellTime As Date
    Dim currentTime As Date
    Dim timeDifference As Long
   
    ' 假设单元格A1包含时间，例如9:03:22
    cellTime = Range("A1").Value
   
    ' 获取当前系统时间
    currentTime = Now
   
    ' 计算时间差（以秒为单位）
    timeDifference = Abs(DateDiff("s", cellTime, currentTime))
   
    ' 如果时间差小于等于5分钟（300秒），则弹出提示框
    If timeDifference <= 300 Then
        MsgBox "单元格的时间与系统时间相差不超过5分钟。"
    Else
        MsgBox "单元格的时间与系统时间相差超过5分钟。"
    End If
End Sub
```

将此代码粘贴到Excel VBA编辑器中的一个模块中，然后运行`CheckTime`子程序。这将检查单元格A1中的时间与当前系统时间的差异，并在差异不超过5分钟时弹出提示框。如果需要检查其他单元格或更改时间差阈值，请相应地修改代码。