Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   MinutesBetween stimmt nciht (https://www.delphipraxis.net/54336-minutesbetween-stimmt-nciht.html)

renekr 2. Okt 2005 11:25


MinutesBetween stimmt nciht
 
Hi,
kann mir jemand was erklären?

Ich habe 2 Combofelder:

Texteingabe :
zb: 6:00
6:05

Jetz will ich die Minuten als Differenz errechnen:
Das mache ich so:
Arbeitszeitinmin:=MinutesBetween(StrToTime(form1.c ombobox4.text),StrToTime(form1.combobox1.text)) ;

Jetzt habe ich das Problem das er mir als Ergebniss 4 Minuten anzeigt und nciht 5 .


Warum:

Ein Rundungs Problem ist es nicht.

:wall:

Danke.

SirThornberry 2. Okt 2005 11:30

Re: MinutesBetween stimmt nciht
 
schau doch mal in den quelltext (debugging) wie diese zahl zustande kommt

Khabarakh 2. Okt 2005 11:37

Re: MinutesBetween stimmt nciht
 
Zitat:

Zitat von renekr
Ein Rundungs Problem ist es nicht.

Bist du dir sicher? Es reicht doch, wenn z.B. die zweite Zeit durch die interne Fließkommadarstellung um eine Hundertstel Millisekunde kürzer wird, um aus den fünf Minuten vier zu machen.

Sharky 2. Okt 2005 11:38

Re: MinutesBetween stimmt nciht
 
Zitat:

Zitat von SirThornberry
schau doch mal in den quelltext (debugging) wie diese zahl zustande kommt

Das ganze liegt wohl letztendlich an der "Ungenauigkeit" bei Datumsrechnungen. Als Differenz wird nämlich 4,99999999999998 berechnet. Du solltest also mit Delphi-Referenz durchsuchenMinuteSpan arbeiten und dann runden. Delphi-Referenz durchsuchenMinutesBetween schneidet die Nachkommastellen nur ab.

renekr 2. Okt 2005 18:43

Re: MinutesBetween stimmt nciht
 
Danke,
Es ist echt so wie Sharky gesagt ( geschrieben ) hat.

Aber mich hat es verwundert, weil bei zb 20 min oder 45 min. differenz er es genau gemacht hat ,
Habe es mit round(MinuteSpan( )) gemacht und das geht 1 A.

Danke und noch einen schönen Sonntag.


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:54 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz