Verwirrend [Erledigt]

[Klaus Schuster]

Hi Folks,

kann sich jemand erklären warum in der letzten Zeile 119 rauskommt?

Code: Alles auswählen

#xtranslate Stunden2Minuten( <val> )  => ( Val( Left( <val>, 2 )) * 60 ) + Val( Right( <val>, 2 ))

PROCEDURE Main

   LOCAL nDauer := 0
   altd()

   nDauer := Stunden2Minuten( '2359' )          // >> 1439 ok
   nDauer := 1440 - nDauer                      // >> 1 ok
   nDauer := 1440 - Stunden2Minuten( '2359' )   // >> 119 ?

RETURN

[georg]

Hallo, Klaus -


hast Du Dir mal im Debugger angesehen?

[Klaus Schuster]

Hallo Georg,

Code: Alles auswählen

Stunden2Minuten( <val> )  => ( Val( Left( <val>, 2 )) * 60 ) + Val( Right( <val>, 2 ))

nimmt die Anzahl an Stunden (23) und multipliziert diese mit 60 = 1380 und addiert die Minuten (59) dazu > 1439 Minuten. Oder versteh ich Dich falsch?
Ja, im Debugger ist alles identisch.

[georg]

Hallo, Klaus -


erstelle mal eine .ppo-Datei und schaue Dir diese an:

Code: Alles auswählen

   nDauer := 1440 - ( Val( Left( '2359', 2 )) * 60 ) + Val( Right( '2359', 2 ))   

Ich vermute, dass hier das Problem liegt.

Mit diesem Code:

Code: Alles auswählen

#xtranslate Stunden2Minuten( <val> )  => (( Val( Left( <val>, 2 )) * 60 ) + Val( Right( <val>, 2 )))

funktioniert ist. Punkt vor Strich ist es nicht (hatte ich zuerst vermutet), aber Du willst zwei Werte subtrahieren, durch die Formel wird dann aber eine Subtraktion und eine Addition daraus.

[Klaus Schuster]

Danke Georg,

in der PPO sieht man es:

alt
nDauer := 1440 - ( Val( Left( '2359', 2 )) * 60 ) + Val( Right( '2359', 2 ))

Dein Vorschlag:
nDauer := 1440 - (( Val( Left( '2359', 2 )) * 60 ) + Val( Right( '2359', 2 )))

Wieder etwas gelernt!

[brandelh]

Wenn man eine Funktion dafür baut, statt einer define oder translate, kann man das im Debugger viel leichter durchtesten

[AUGE_OHR]

hi,

mir ist klar das es um die Syntax der xtranslate Function geht ...
aber warum brauchst du die wenn xBase solche TIME Function wie ElapTime() hat

Code: Alles auswählen

c:\ALASKA\XPPW32\Source\COMPAT\compat87.prg

[Klaus Schuster]

Hi Jimmy,

ElapTime ist nicht das, was ich brauche. Ich möchte einen String 'HHMM' in Minuten umrechnen. In der Compat87.prg findet sich keine derartige Funktion.

[Tom]

Doch, TimeToSec() - in den Tools. Du musst nur das Ergebnis durch 60 teilen.

[Klaus Schuster]

Jupp Ton, das macht den Code eleganter (und leichter zu lesen).

[Tom]

Der Ansatz, das über xtranslate oder xcommand zu machen, ist sowieso ... originell. Normalerweise würde man dafür einfach eine Funktion "Stunden2Minuten()" schreiben, fertig. In dem Fall hätte man das Klammerungsproblem auch nicht gehabt.

[Klaus Schuster]

... originell.: Das nehme ich als Kompliment, Tom (sorry für den Schreibfehler in der letzten Antwort). Jugend forscht.