如何写<1秒的表达式？

ning84

Format(oDate2 - oDate1, "h:m:ss")<1秒
oDate2 - oDate1<？？？？如何写小于1秒

1. Sub ll()
   
2.     Dim ii, kk
   
3.     Dim Rng1 As Range, Rng2 As Range
   
4.         Set Rng1 = Cells(2, "A").CurrentRegion
   
5.         Set Rng2 = Cells(2, "H").CurrentRegion
   
6.     Dim oDate1 As Date, oDate2  As Date
   
7.         For ii = 1 To Rng2.Rows.Count
   
8.              oDate2 = Rng2(ii, 1)
   
9.              For kk = 1 To Rng1.Rows.Count
   
10.                   oDate1 = Rng1(kk, 1)
    
11.                   Debug.Print Format(oDate1, "h:m:ss"),
    
12.                   Debug.Print Format(oDate2, "h:m:ss"),
    
13.                   Debug.Print Format(oDate2 - oDate1, "h:m:ss")
    
14.                   If Rng2(ii, 1) > Rng1(kk, 1) + 0.001 And Rng2(ii, 1) < Rng1(kk, 1) - 0.001 Then
    
15.                        'Rng1(kk, 3) = "=" & Rng2(ii, 1).Address
    
16.                   End If
    
17.              Next kk
    
18.         Next ii
    
19.    
    
20. End Sub
    

复制代码

ykcbf1100

Dim startTime As Double
Dim elapsedTime As Double
startTime = Timer
Do While Timer - startTime < 0.001 '等待小于1秒的时间间隔
    '执行需要重复的代码
Loop

micch

<1/24/60/60

ning84

micch 发表于 2024-3-15 08:04

谢谢两位的解答。=1/24/60/60


0.000011574

ning84

谢谢回复，进一步优化程序。

2024/3/14 10:09	IMG_20240314_100908224.jpg
2024/3/14 10:11	IMG_20240314_101120787.jpg	M20240314_101132.JPG
2024/3/14 10:12	IMG_20240314_101251497.jpg	M20240314_101321.JPG
2024/3/14 10:13	IMG_20240314_101313068.jpg	M20240314_101321.JPG
2024/3/14 10:13	IMG_20240314_101327186.jpg	M20240314_101321.JPG
2024/3/14 10:13	IMG_20240314_101336204.jpg	M20240314_101321.JPG
2024/3/14 10:14	IMG_20240314_101435192.jpg
2024/3/14 10:14	IMG_20240314_101450884.jpg
2024/3/14 10:15	IMG_20240314_101507595.jpg
2024/3/14 10:17	IMG_20240314_101723732.jpg
2024/3/14 10:17	IMG_20240314_101747358.jpg
2024/3/14 10:18	IMG_20240314_101823164.jpg
2024/3/14 10:19	IMG_20240314_101911909.jpg
2024/3/14 10:27	IMG_20240314_102710981.jpg
2024/3/14 10:28	IMG_20240314_102827896.jpg
2024/3/14 10:28	IMG_20240314_102854946.jpg
2024/3/14 10:30	IMG_20240314_103002367.jpg	M20240314_102940.JPG

1. 
   
2. Sub lll()
   
3.    Dim Rng As Range, Rng1 As Range
   
4.        Set Rng = Sheet1.Cells(2, 1).CurrentRegion
   
5.        Set Rng = Rng(, 1).Resize(Rng.Rows.Count, 1)
   
6.        Set Rng1 = Rng.Offset(, 2)
   
7.        Debug.Print Rng1.Address, Rng.Address
   
8.        ''
   
9.    Dim oDate As Date
   
10.    
    
11.    Dim Fso As FileSystemObject
    
12.        Set Fso = New FileSystemObject
    
13.    Dim oFolder As Folder, oFile As File
    
14.    Dim fDia As FileDialog
    
15.        'Set fDia = Application.FileDialog(msoFileDialogFolderPicker)
    
16.        'fDia.Show
    
17.    Dim PathName
    
18.        PathName = "F:\SpecialSubject\ZhuhaiBus\99Bus20240314\Map"
    
19. 
    
20.        'fDia.InitialFileName
    
21.        Debug.Print PathName
    
22.       
    
23.       
    
24.        Set oFolder = Fso.GetFolder(PathName)
    
25.        For Each oFile In oFolder.Files
    
26.            Debug.Print oFile.DateLastModified, oFile.Name
    
27.            TimeDifference Rng, Rng1, oFile
    
28.        Next oFile
    
29.      
    
30. End Sub
    
31. 
    
32. 
    
33. '''''
    
34. Function TimeDifference(Rng As Range, Rng1 As Range, oFile As File)
    
35.    Dim ii, Kk
    
36.    Dim oDate As Date
    
37.      For ii = 1 To Rng.Rows.Count
    
38.           oDate = Rng(ii, 1)
    
39.           If Abs(oDate - oFile.DateLastModified) <= 30 / 24 / 60 ^ 2 Then
    
40.                Rng1(ii, 1) = oFile.Name
    
41.                'Exit Function
    
42.           End If
    
43.      Next ii
    
44. End Function
    

复制代码