Industrieminuten

[Perlsau]

Zitat:

Zitat von StepByStep (Beitrag 1287379)

Mir sind die Funktionen YearBetween, HoursBetween, etc. bekannt und leider auch zu ungenau.

Dann versuch's doch mal mit MilliSecondsBetween :-D
Oder wie genau möchtest du es denn genau haben :?:

[mkinzler]

Er möchte eigentlich den Minutenanteil in Stunden in der Industriezeit

[DeddyH]

Zitat:

Zitat von StepByStep (Beitrag 1287398)

DateUtils.HoursPerDay sind bei mir zwei undeklarierte Bezeichner. Ich habe in den Uses System.DateUtils eingebunden. Bin ich dumm oder sehe ich den Fehler nicht?

Mein Fehler, die Konstante ist in SysUtils deklariert, hat Sir Rufo oben auch richtig geschrieben.

[himitsu]

HoursBetween zu ungenau?

HourSpan (man achte auf den Result-Typ)
oder
MinutesBetween / MinsPerHour

24 (OK, ist von 2001, aber letztes Jahr lief das, glaub ich, mal wieder im deutschen Free-TV)

Zitat:

Mein Fehler, die Konstante ist in SysUtils deklariert

F1 (nicht die Formel-1)

[Uwe Raabe]

Zitat:

Zitat von mkinzler (Beitrag 1287406)

Er möchte eigentlich den Minutenanteil in Stunden in der Industriezeit

Da eine Industriestunde einer normalen Stunde entspricht, ist das doch vollkommen irrelevant. Eine halbe Stunde wird dabei doch als 0.5 dargestellt. Das sind zwar 50 Industrieminuten, aber die Einheit soll ja wohl Stunden sein.

Sehe ich das jetzt zu einfach oder kann man das nicht durch dieses Konstrukt erreichen:

Delphi-Quellcode:

uses
  System.SysUtils,
  System.Math;
...
function IndustrieStundenZwischen(DT1, DT2: TDateTime): Double;
{ Liefert die Differenz in Stunden mit zwei Nachkommastellen zurück und ist somit auf 1 Industrieminute genau }
begin
  result := SimpleRoundTo((DT2 - DT1)*HoursPerDay, -2);
end;

[StepByStep]

Zitat:

Da eine Industriestunde einer normalen Stunde entspricht, ist das doch vollkommen irrelevant. Eine halbe Stunde wird dabei doch als 0.5 dargestellt. Das sind zwar 50 Industrieminuten, aber die Einheit soll ja wohl Stunden sein.

Ich möchte so rechnen:

60 ~ 1
30 ~ 0.5
etc.

So können doch 0.5 nicht 50 Industriemethoden entsprechen, oder?
Man man man ich weiß schon, warum ich Uhren damals schon nicht mochte.

Gruß
Jan

Edit:

Delphi-Quellcode:

((dtBis - dtVon) * System.SysUtils.HoursPerDay);

liefert mir was falsches...

Noch n Edit: Habe eben mal das von himitsu ausprobiert, aber ich will nicht 0,99999... ausgegeben bekommen, sondern eins. Wie runde ich denn?

[mkinzler]

Das sind dann Minuten / MinutenProStunde

30/60 = 0,5

[Uwe Raabe]

Zitat:

Zitat von StepByStep (Beitrag 1287423)

Ich möchte so rechnen:

60 ~ 1
30 ~ 0.5
etc.

So können doch 0.5 nicht 50 Industriemethoden entsprechen, oder?

Mit "methoden" hat das jetzt zwar nichts zu tun, aber

• 1.0 Stunde = 60 Minuten = 100 Industrieminuten (1.00)
• 0.5 Stunden = 30 Minuten = 50 Industrieminuten (0.50)

So richtig schick wird es aber erst, wenn du mit Industriesekunden (1 Industrieminute = 100 Industriesekunden) arbeitest.

[hstreicher]

ich habe hier noch ein paar Stopuhren rumliegen die in 100/ Minuten geteilt sind ,
machte das aufaddieren von Arbeitszeiten beim erstellen von Arbeitsplänen
doch sehr viel einfacher

und gibt's auch noch zu kaufen

http://www.hanhart-stoppuhr.de/Digit...ignet::72.html

[StepByStep]

Delphi-Quellcode:

result := SimpleRoundTo((DT2 - DT1)*HoursPerDay, -2);

Danke Uwe, das funktioniert jetzt wunderbar. :thumb:

Gruß
Jan