[delphi] tijden vergelijken

[Verwijderd]

Ik heb op mijn unit in delphi een listbox gezet met een reeks tijden in, in deze vorm:
12:30:00
13:00:00

daarnaast heb ik een paradox table met een time veld met waarden in dezelfde vorm weggeschreven.

nu moet ik kijken op de datum die geselecteerd is in de combobox groter of kleiner is dan een datum uit de tabel.

het probleem is dat als ik de vergelijking zo opstel :

if strToTime(cmb_time.text) > UnDatabase.dmUsers.gebruikersGebruikersUur then ...

krijg ik incompatible types als fout. nogthans zijn ze bijde tijden.
als ik ze beide omzet naar een string lukt het wel maar dan klopt de vergelijking niet omdat je dan de ascii waarde gaat vergelijken

iemand een idee waar de fout ligt? spijtig dat er geen CompareTime bestaat in delphi

[UniCache2]

En als je nou zo doet?
if strToTime(cmb_time.text) > strToTime(UnDatabase.dmUsers.gebruikersGebruikersUur) then

[OZ-Gump]

Je kunt natuurlijk je tabel ook aanspreken dmv ADO en dan bij dat betreffende veld een .asTime gebruiken. Dan weet je (ook) zeker dat je een tijd terugkrijgt.

[Verwijderd]

mag het nie iva ADO, maar ik ga hier even doorprullen, ik zie juist dat hij ergens een lus niet uitvoert, misschien dat hij daardoor altijd de melding geeft dat de tijd niet juist is. I'll be back!!

[LordLarry]

Let ook op het volgende: De tijd wordt intern opgeslagen in het gedeelte achter de komma van een float. .0 is 00:00 en .5 is 12:00 enz. Afrondingsfouten hebben als gevolg dat ondanks dat de tijd hetzelfde is, de TTime niet precies dezelfde waarde hoeft te hebben. Maw StrToTime('12:00') hoeft niet hetzelfde te zijn als TTime(0.5). Gebruik een speciale functie om tijden te vergelijken.

[_Thanatos_]

Het is misschien beter om het om te zetten naar milliseconden en dan pas te vergelijken. Om die afrondingsfouten (if any) te omzeilen kun je dan nog evt afronden naar 1000-tallen (seconden) met RoundEx.