Public zuende As Boolean



Public datum1, datum2 As Date

Public t1, t2 As Date

Public aktdatum As Date

Public zeitgesamt As Double

Public qualzahl(1 To 20, 1 To 20) As Double



Public sumok(1 To 20, 1 To 20) As Double

Public sumwarn(1 To 20, 1 To 20) As Double

Public sumcrit(1 To 20, 1 To 20) As Double

Public sumundef(1 To 20, 1 To 20) As Double

Public altmon, neumon As Double

Public altstatus, neustatus As String

Public zeitok(1 To 20, 1 To 20, 1 To 20) As Double

Public zeitcrit(1 To 20, 1 To 20, 1 To 20) As Double

Public zeitwarn(1 To 20, 1 To 20, 1 To 20) As Double

Public zeitundef(1 To 20, 1 To 20, 1 To 20) As Double





Public daten As ADODB.Recordset

Public aktdaten As ADODB.Recordset



Public akteintrag As Integer

Public spezdaten(1 To 20, 1 To 20) As ADODB.Recordset

Public conn As Connection

Public connstr As String

Public entrys As Integer

Public ci As Integer

Public editprojekt As String

Public editserver As String

Public zeile As String



Public anzserver, anzprojekte, reldat, unreldat As Integer



Public serverinprojekt(1 To 20) As Integer

Public servername(1 To 20, 1 To 20), projektname(1 To 20) As String

Public anzdienste(1 To 20, 1 To 20) As Integer

Public gewichtung(1 To 20, 1 To 20, 1 To 20) As Integer  ' (Projekt, Server, Dienst)

Public dienstname(1 To 20, 1 To 20, 1 To 20) As String

Public wirdgewertet(1 To 20, 1 To 20, 1 To 20) As Boolean



Public datei As Integer

Public aktserver, aktprojekt, aktdienst As Integer

Public i, j, k, l, m As Integer

Public a, b, c, d, e As String

Public intJahr1, intJahr2, intMon1, intMon2 As Integer

Public eintraege(1 To 20) As Integer

Public irs, jrs As Recordset