关于时间问题

l815027660

Dim Da As Date
Da=2019/03/01 00:00
Do while Da>2019/04/01 00：00
Da=Da+ 10:00
Loop
请问下上面关于时间的，格式怎么编写，只要求到分钟

skyzxh

好像是用#
Da=#2019/03/01 00:00#
你试试吧

wzsy2_mrf

用时间函数

笑着...两年过去

可以换算成具体的数值，

1. Dim Da As Date
   
2. Da=43525
   
3. Do while Da>43556
   
4.      Da=Da+ 5/12
   
5. Loop

复制代码

l815027660

笑着...两年过去 发表于 2019-3-16 16:17
可以换算成具体的数值，

xiexie

l815027660

笑着...两年过去 发表于 2019-3-16 16:17
可以换算成具体的数值，

没办法用时间吗？
我还需要查找
找到时间为2019/03/01 15:10分的，然后输出相应内容

719404338

1. Sub t()
   
2. Dim Da As Date
   
3. Da = #3/1/2019#
   
4. Do While Da < #4/1/2019#
   
5. Da = Da + 10 / 24
   
6. Loop
   
7. End Sub

复制代码

l815027660

skyzxh 发表于 2019-3-16 16:06
好像是用#
Da=#2019/03/01 00:00#
你试试吧

这个时间会加秒，显示#3/4/2019 12:10:00 AM#,我不需要秒

笑着...两年过去

l815027660 发表于 2019-3-16 16:21
没办法用时间吗？
我还需要查找
找到时间为2019/03/01 15:10分的，然后输出相应内容

应该有，但我没这么操作过，像这种我都是换算成数值操作的。
一分钟=1/144，完全可以用数值操作的

wzsy2_mrf

1. Sub aa()
   
2.     Dim Da As Date, Da1 As Date
   
3.     Da = CDate("2019/03/01 00:00")
   
4.     Da1 = CDate("2019/04/01 00:00")
   
5.     Do While DateDiff("n", Da, Da1) > 0
   
6.         Da = DateAdd("n", 10, Da)
   
7.     Loop
   
8. End Sub

复制代码