| |
|
|
Detlef Jagolski | ¡Hola Sebastian,
habe folgenden Code KompilierenMarcaSeparación
Proc AddTime
Parameters Zeit1$, Zeit2$
var Stunden1% = Val(SubStr$(Zeit1$,1,":"))
var Menuten1% = Val(SubStr$(Zeit1$,2,":"))
var Sekunden1% = Val(SubStr$(Zeit1$,3,":"))
var Stunden2% = Val(SubStr$(Zeit2$,1,":"))
var Menuten2% = Val(SubStr$(Zeit2$,2,":"))
var Sekunden2% = Val(SubStr$(Zeit2$,3,":"))
var Time1% = (Stunden1% * 3600) + (Menuten1% * 60) + Sekunden1%
var Time2% = (Stunden2% * 3600) + (Menuten2% * 60) + Sekunden2%
var Sekundenzahl% = Time1% + Time2%
var Sekunden% = Sekundenzahl% MOD 60
var Minuten% = (Sekundenzahl% / 60) MOD 60
var Stunden% = (Sekundenzahl% / 60 / 60) MOD 24
var Zeit$ = Format$("00",Stunden%)+":"+Format$("00",Minuten%)+":"+Format$("00",Sekunden%)
Return Zeit$
ENDPROC
Profano2Cpp macht lo KompilierenMarcaSeparaciónp_variant Proc_addtime(int n, ...)
{
BuildStack();
PushVar(nMenuten1);
PushVar(nMenuten2);
PushVar(nMinuten);
PushVar(nSekunden);
PushVar(nSekunden1);
PushVar(nSekunden2);
PushVar(nSekundenzahl);
PushVar(nStunden);
PushVar(nStunden1);
PushVar(nStunden2);
PushVar(nTime1);
PushVar(nTime2);
PushVar(sZeit);
PushVar(sZeit1);
PushVar(sZeit2);
sZeit1 = StringParam(1);
sZeit2 = StringParam(2);
nStunden1 = Value(SubString(sZeit1, 1, _S(":")));
nMenuten1 = Value(SubString(sZeit1, 2, _S(":")));
nSekunden1 = Value(SubString(sZeit1, 3, _S(":")));
nStunden2 = Value(SubString(sZeit2, 1, _S(":")));
nMenuten2 = Value(SubString(sZeit2, 2, _S(":")));
nSekunden2 = Value(SubString(sZeit2, 3, _S(":")));
nTime1 = (nStunden1*3600) + (nMenuten1*60) + nSekunden1;
nTime2 = (nStunden2*3600) + (nMenuten2*60) + nSekunden2;
nSekundenzahl = nTime1 + nTime2;
nSekunden = sekundenzahl % mod60;
nMinuten = _D((nSekundenzahl) / _D(60))mod60;
nStunden = _D(_D((nSekundenzahl) / _D(60)) / _D(60))mod24;
sZeit = FormatString(_S("00"), _V(nStunden)) + _S(":") + FormatString(_S("00"), _V(nMinuten)) + _S(":") + FormatString(_S("00"), _V(nSekunden));
en el Línea nSekunden = sekundenzahl % mod60; bekomme Yo una Fehlermeldung! Müsste el Línea no así aussehen nSekunden = _D(nsekundenzahl) mod60;?????
Fehler E2451 Plan-Calc_Edition_2009.cpp 1925: Undefiniertes Symbol sekundenzahl en Función Proc_addtime(int,...) Fehler E2379 Plan-Calc_Edition_2009.cpp 1926: In Anweisung fehlt ; en Función Proc_addtime(int,...) Fehler E2379 Plan-Calc_Edition_2009.cpp 1927: In Anweisung fehlt ; en Función Proc_addtime(int,...)
Saludo
Detlef |
|
|
| XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 28.06.2009 ▲ |
|
|
|
|
Sebastian König | ¡Hola Detlef,
danke para el Referencia! Como se ejecuta wohl algo beim Operator-Parsing torcido... Yo kümmere mich por lo tanto y melde mich entonces otra vez.
MfG
Sebastian |
|
|
| |
|
|
|
Sebastian König | Yo habe el Ursache para el Fehler gerade gefunden. Wenn Yo correcto sehe, tritt el problema sólo en el Zusammenhang con VAR en y betrifft AND y O genauso como MOD. Auch el Syntax-Check son irrtümlich una Fehler-Falschmeldung de.
Yo beschäftige mich ahora veces con el Corrección y schicke Usted entonces una Mail con uno korrigierten Versión. Hoffentlich komme Yo demnächst auch veces dazu, una offizielle Versión 2.0c fertigzustellen...
MfG
Sebastian |
|
|
| |
|
|
|
Detlef Jagolski | ¡Hola Sebastian,
sólo una vez Gracias para Su Ayuda. In Formato$ muss lo auch una Problema geben, habe auch todavía no Tiempo gehabt lo genauer a Testen. Merkmale: Keine Fehlermeldung y Programmabsturz. Ist sólo una Referencia!!!
Saludo
Detlef |
|
|
| XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 30.06.2009 ▲ |
|
|
|