Das Array will natürlich gefüllt werden...
siCntDy := siCntDy + 1 ;
CASE siCntDy OF (* select to day *)
1: siFr_Hr := Iasi_Trf[1,1] ;
siTo_Hr := Iasi_Trf[1,0] ;
2: siFr_Hr := Iasi_Trf[2,1] ;
siTo_Hr := Iasi_Trf[2,0] ;
3: siFr_Hr := Iasi_Trf[3,1] ;
siTo_Hr := Iasi_Trf[3,0] ;
4: siFr_Hr := Iasi_Trf[4,1] ;
siTo_Hr := Iasi_Trf[4,0] ;
5: siFr_Hr := Iasi_Trf[5,1] ;
siTo_Hr := Iasi_Trf[5,0] ;
6: siFr_Hr := Iasi_Trf[6,1] ;
siTo_Hr := Iasi_Trf[6,0] ;
7: siFr_Hr := Iasi_Trf[7,1] ;
siTo_Hr := Iasi_Trf[7,0] ;
END_CASE ;
r_Sum_D := Call_To_Day (0, 24, siCntDy, IaI_W_Dat); (* sum of to day *)
r_Sum_W := r_Sum_W + r_Sum_D ; (* sum of to week *)
IF (siTo_Hr > siFr_Hr) THEN (* sum of to rate *)
rHt_Sum := Call_To_Day (siFr_Hr, siTo_Hr, siCntDy, IaI_W_Dat);
rNt_Sum := Call_To_Day (siTo_Hr, siFr_Hr, siCntDy, IaI_W_Dat);
rHt_S_W := rHt_S_W + rHt_Sum ;
rNt_S_W := rNt_S_W + rNt_Sum ;
siHrs_H := siTo_Hr - siFr_Hr ;
siHrs_L := 24 - siHrs_H ;
ELSE
rNt_Sum := r_Sum_D ;
siHrs_H := 0 ;
siHrs_L := 24 ;
END_IF ; (* move to outputarray of day-data *)
Qar_WkDt[siCntDy,0,0] := r_Sum_D ;
Qar_WkDt[siCntDy,0,1] := r_Sum_D / 24.0 ;
Qar_WkDt[siCntDy,1,0] := rHt_Sum ;
Qar_WkDt[siCntDy,1,1] := rHt_Sum / sint_to_real(siHrs_H);
Qar_WkDt[siCntDy,2,0] := rNt_Sum ;
Qar_WkDt[siCntDy,2,1] := rNt_Sum / sint_to_real(24 - siHrs_H);