ich hab mal wieder ein kleines Problem. Ich möchte Laufzeiten im Programm messen.
Mit Timer geht das nur auf eine Sekunde genau, dass ist doch etwas zu grob für mich.
kann man den Timer irgendwie genauer kriegen, oder gibt's was anderes, vllt per shell Befehl, da kenn ich mich
allerdings nicht gut aus. in einer Calc Zelle kann man ja durchaus mit HH:MM:SS,000 eine 1000stel genaue Zeit erfargen,
dann hab ich aber das Problem, dass ich nicht weiß, wie ich die Zelle refreshe bevor ich sie abfrage.
Code: Alles auswählen
Sub zeitnehmen (aufgabe)
Dim Doc As Object
Dim sheet As Object
Dim dStartzeit As Double
Dim sStartzeit As String
Dim dEndzeit As Double
Dim sEndzeit As String
Doc = ThisComponent
Sheet = Doc.Sheets(0)
Cell = Sheet.getCellByPosition(1,1)' in der Zelle steht =Jetzt() und ist mit HH:MM:SS,000 formatiert
dStartzeit = Cell.Value
sStartzeit = Cell.String
wait(1000)
Cell = Sheet.getCellByPosition(1,1)
dEndzeit = Cell.Value
sEndzeit = Cell.String
msgbox cstr(dEndzeit - dStartzeit)
End Sub
jmd ne Idee?
mfG Michael