| |
|
|
Detlef Jagolski | allô Sebastian,
habe folgenden Code KompilierenMarqueSéparation
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
Profan2Cpp pouvoir daraus KompilierenMarqueSéparationp_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));
dans qui la ligne nSekunden = sekundenzahl % mod60; bekomme je une Fehlermeldung! Müsste qui la ligne pas so air nSekunden = _D(nsekundenzahl) mod60;?????
faute E2451 plan-Calc_Edition_2009.cpp 1925: Undefiniertes Symbol sekundenzahl dans Funktion Proc_addtime(int,...) faute E2379 plan-Calc_Edition_2009.cpp 1926: dans Anweisung fehlt ; dans Funktion Proc_addtime(int,...) faute E2379 plan-Calc_Edition_2009.cpp 1927: dans Anweisung fehlt ; dans Funktion Proc_addtime(int,...)
Salut
Detlef |
|
|
| XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 28.06.2009 ▲ |
|
|
|
|
Sebastian König | allô Detlef,
merci pour den Hinweis! là fonctionne wohl irgendwas beim Operator-Parsing de travers... je kümmere mich tout autor et melde mich ensuite wieder.
MfG
Sebastian |
|
|
| |
|
|
|
Sebastian König | j'ai qui Ursache pour den faute justement trouvé. si je es richtig vois, tritt cela Problem seulement im Zusammenhang avec VAR sur et betrifft AND et OU genauso comment MOD. aussi qui Syntax-Check gibt irrtümlich une faute-Falschmeldung aus.
je beschäftige mich maintenant la fois avec qui Correction et schicke Dir ensuite une Mail avec einer korrigierten Version. Hoffentlich viens je bientôt aussi la fois en supplément, une offizielle Version 2.0c fertigzustellen...
MfG
Sebastian |
|
|
| |
|
|
|
Detlef Jagolski | allô Sebastian,
seulement einmal merci pour Votre Aider. dans Format$ muss es aussi un Problem donner, habe aussi encore aucun Zeit gehabt es genauer trop Testen. Merkmale: aucun Fehlermeldung et Programmabsturz. Ist seulement un Hinweis!!!
Salut
Detlef |
|
|
| XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 30.06.2009 ▲ |
|
|
|