akt. Zeit minus 10 Min ?
05.02.2006 18:53:59
Peter
Ich möchte einen Datums und Zeitvergleich vornehmen.
Wenn das akt. Datum und die akt. Zeit minus10 Minuten
mit der jetzigen Zeit übereinstimmt soll es möglich sein
die jetzige Zeit einzutragen.
Wie rechnet man von der jetzigen Zeit 10 Minuten ab?
Danke Peter
Private Sub CommandButton1_Click()
If Cells(ActiveCell.Row, 6) = Date And _
Cells(ActiveCell.Row, 7)< = Time Then '<<<<<< aktuelle Zeit –10 Minuten
Cells(ActiveCell.Row, 8) = Now
Else
MsgBox "Es ist noch Zeit"
End If
Cells(ActiveCell.Row, 9) = Date
Cells(ActiveCell.Row, 10) = Time
End Sub
Anzeige