Zeiten zusammenzählen solange ein bestimmter Wert vorliegt

Hallo mapra,

die Frage nach der Variablen ist einfach. Mit dem Befehl GlobalDim kannst du eine globale Variable definieren, die solange aktiv bleibt, wie DIAdem gestartet ist. Interessanter finde ich das Summieren der einzelnen Zeitabschnitte. Hierzu ein Vorschlage (es gibt sicher noch andere Varianten):


Option Explicit

call GlobalDim("dSumTime")
Dim iPosStart, dStartVal

dSumTime = 0
iPosStart = 0

do
iPosStart = chnFind("ch(""[1]/Steuerwert"") = 40", iPosStart + 1)
' gibt es noch Daten?
if iPosStart > 0 then
dStartVal = chd(iPosStart, "[1]/Laufzeit")
iPosStart = chnFind("ch(""[1]/Steuerwert"") <> 40", iPosStart + 1)
' Ende gefunden
if iPosStart > 0 then
dSumTime = dSumTime + chd(iPosStart-1, "[1]/Laufzeit") - dStartVal
dStartVal = 0
else
' hört Steuerkanal mit 40 auf?
if dStartVal > 0 then
dSumTime = dSumTime + chd(ChnPropValGet("[1]/Laufzeit", "length"), "[1]/Laufzeit") - dStartVal
end if
end if
end if
Loop while iPosStart <> 0

msgbox dSumTime


Die globale Variable dSumTime kannst du dann in REPORT anzeigen.

Carpe DIAdem