aktuelle Zeit mit Millisekunden

[SBond]

Hi Leute,

bietet PB eine Funktion, mit der man die aktuelle Zeit (inklusive Millisekunden) ermittelt? Die Date()-Funktion wäre an sich genau das richtige, bietet aber nur Sekunden an. Eine weitere Möglichkeit wäre noch ElapsedMilliseconds(). Allerdings verunsichert mich die PB-Hilfe in der folgendes steht:

Der zurückgegebene absolute Wert ist nutzlos, da er abhängig vom Betriebssystem variiert. [...]

Da es Plattformübergreifend sein soll, weiß ich nicht, welche Werte unter OS X oder Linux angenommen werden. Mit APIs wäre das ganze auch problemlos machbar, aber auf die würde ich lieber verzichten (zumal ich unter Linux/Mac keine Erfahrung mit APIs gemacht habe)

[NicTheQuick]

Unter Linux beginnt 'ElapsedMilliseconds()' ab Programmstart mit 0. Unter Windows ist der Wert glaube ich abhängig vom Systemstart.
Mit 'gettimeofday' bekommst du die aktuelle Zeit plus Mikrosekunden:

Code: Alles auswählen

;Linux only
Structure timeval
 	tv_sec.q   ;__time_t      -> __TIME_T_TYPE      -> __SYSCALL_SLONG_TYPE -> __SQUAD_TYPE -> long int | __quad_t
 	tv_usec.q  ;__suseconds_t -> __SUSECONDS_T_TYPE -> __SYSCALL_SLONG_TYPE -> __SQUAD_TYPE -> long int | __quad_t
 EndStructure
 
 Procedure.d seconds()
 	Protected tim.timeval
 	gettimeofday_(tim, #Null)
 	ProcedureReturn tim\tv_sec + tim\tv_usec / 1000000.
 EndProcedure
 
 Define today.d = seconds()
 Define seconds.q = Round(today, #PB_Round_Down)
 Define hours.q = seconds / 3600
 Define minutes.q = seconds / 60 - 60 * hours
  seconds % 60
 hours % 24
 Debug "Zeit: " + hours + ":" + minutes + ":" + today
 
 Define time.d = seconds()
 Delay(1000)
 time = seconds() - time
 Debug time

[SBond]

Unter Windows ist der Wert glaube ich abhängig vom Systemstart.

Jap. Das ist Richtig. Aber schon mal gut zu wissen, dass es unter Linux ab Programmstart ist. Dann werde ich es erstmal mit APIs lösen. Deine Lösung scheint für Linux zu sein. Das ist schonmal sehr hilfreich . Unter Windows lässt es sich leicht mit GetLocalTime_() bzw. GetSystemTime_() lösen. Mac weiß ich noch nicht, aber dass lässt sich noch herausfinden.

danke dir für deine Hilfe