time functie

[forceback]

zou iemand raad weten voor het volgende ipv
vgisteren = vdatum -1 zou ik vdatum -24uur bekomen
maar mij lukt het niet

Private Sub CommandButton1_Click()
Dim vdatum As Date
Dim vgisteren As Date
vdatum = Date
vgisteren = vdatum - 1

Dim myarray(9, 2) As String
myarray(0, 0) = "F 1500"
myarray(1, 0) = "F 1530A"
myarray(2, 0) = "F 1530B"
myarray(3, 0) = "F 1710"
myarray(4, 0) = "F 1715"
myarray(5, 0) = "F 2500"
myarray(6, 0) = "F 2530A"
myarray(7, 0) = "F 2530B"
myarray(8, 0) = "F 2710"
myarray(9, 0) = "F 2713"
myarray(0, 1) = "0"
myarray(1, 1) = "0"
myarray(2, 1) = "0"
myarray(3, 1) = "0"
myarray(4, 1) = "0"
myarray(5, 1) = "0"
myarray(6, 1) = "0"
myarray(7, 1) = "0"
myarray(8, 1) = "0"
myarray(9, 1) = "0"

For Each c In Worksheets("zeefwissel").Range("A2:A65000")
If Not IsEmpty(c.Value) Then
If Day(c.Value) = Day(vgisteren) And Month(c.Value) = Month(vgisteren) Then
For i = 0 To 9
If myarray(i, 0) = Cells(c.Row, 2).Value Then
myarray(i, 1) = Str(Val(myarray(i, 1)) + 1)
myarray(i, 2) = myarray(i, 2) + " \ " + Str(Cells(c.Row, 3).Value)

End If
Next
End If
Else
Exit For

End If
Next c

For i = 0 To 9
Cells(i + 2, 10).Value = myarray(i, 0)
Cells(i + 2, 11).Value = myarray(i, 1)
Cells(i + 2, 12).Value = myarray(i, 2)


Next

End Sub

 

[forceback]

Niemand?
hallo hopelijk kunnen jullie mij helpen
dit is opdracht in vba in excel
De bedoeling is dat hij gaat kijken naar de datum van vandaag -1
Werkt prima
maar de bedoeling is dat hij gaat kijken naar Now (ik moet date vervangen door Now) en de gegevens Now-24:00uur moet gaan zoeken.
Heb date al vervangen door now maar het resultaat is nog steeds hetzelfde
Volgens mij zit het probleem in die -1
mvg
harry

Private Sub CommandButton1_Click()
Dim vdatum As Date
Dim vgisteren As Date
vdatum = Date
vgisteren = vdatum - 1

Dim myarray(9, 2) As String
myarray(0, 0) = "F 1500"
myarray(1, 0) = "F 1530A"
myarray(2, 0) = "F 1530B"
myarray(3, 0) = "F 1710"
myarray(4, 0) = "F 1715"
myarray(5, 0) = "F 2500"
myarray(6, 0) = "F 2530A"
myarray(7, 0) = "F 2530B"
myarray(8, 0) = "F 2710"
myarray(9, 0) = "F 2713"
myarray(0, 1) = "0"
myarray(1, 1) = "0"
myarray(2, 1) = "0"
myarray(3, 1) = "0"
myarray(4, 1) = "0"
myarray(5, 1) = "0"
myarray(6, 1) = "0"
myarray(7, 1) = "0"
myarray(8, 1) = "0"
myarray(9, 1) = "0"

For Each c In Worksheets("zeefwissel").Range("A2:A65000")
If Not IsEmpty(c.Value) Then
If Day(c.Value) = Day(vgisteren) And Month(c.Value) = Month(vgisteren) Then
For i = 0 To 9
If myarray(i, 0) = Cells(c.Row, 2).Value Then
myarray(i, 1) = Str(Val(myarray(i, 1)) + 1)
myarray(i, 2) = myarray(i, 2) + " \ " + Str(Cells(c.Row, 3).Value)

End If
Next
End If
Else
Exit For

End If
Next c

For i = 0 To 9
Cells(i + 2, 10).Value = myarray(i, 0)
Cells(i + 2, 11).Value = myarray(i, 1)
Cells(i + 2, 12).Value = myarray(i, 2)


Next

End Sub