'---------Einstellungen Formatierung------
'****************Excel file erstellen*****
Set Exsheet = WScript.CreateObject("Excel.Application")
'*******Excel File Visible schalten*******
Exsheet.Visible = False
'**********Arbeitsmappe erstellen*********
Exsheet.WorkBooks.Add
intYear = inp_year 'Eingabe Jahr übernehmen
intMonat = inpmonth 'Eingabe Monat übernehmen
i = Day(DateSerial(intYear, intMonat + 1, 0)) 'Tageberechnung für eingebenes Monat+Jahr
'*********************************Blatt 2 Spalte W ausfüllen********************************
Dim zaehlW, zaehlWW
Dim maxW_akt
k = 9 'Startzelle definieren
For zaehlW = 1 To i
if zaehlW = i then
zaehlWW=zaehlW + 1
Time_next=" 00:00:00"
Else
Time_next=" 23:59:00"
End IF
Sel_DateTime_aktW = "'" & DateSerial(inp_year,inpmonth,zaehlw) & "'" 'Datumserstellung für Selektion
Sel_DateTime_beg = "'" & DateSerial(inp_year,inpmonth,zaehlw-5) & "'" 'Datumserstellung für Selektion
Sel_DateTime_nextW = "'" & DateSerial(inp_year,inpmonth,zaehlww) & "'" 'Datumserstellung für Selektion
Set select_values_old = oconn.Execute("Select max(Value) maxW_old from tlg_Signale where SignalID =" + Id02_W + "and DateTime = " + Sel_DateTime_beg + "and DateTime " +Sel_DateTime_aktW)
Set select_values_akt = oconn.Execute("Select max(Value) maxW_akt from tlg_Signale where SignalID =" + Id02_W +" and DateTime = " + Sel_DateTime_aktW + "and DateTime " +Sel_DateTime_nextW)
If select_values_old.EOF then 'Abfrage End of File
Exit For
End If
If select_values_akt.EOF then 'Abfrage End of File
Exit For
End If
var_readW_old=select_values_old.fields("maxW_old") 'Werte auslesen
var_readW_akt=select_values_akt.fields("maxW_akt") 'Werte auslesen
var_readW_diff = var_readW_akt - var_readW_old
k = k + 1 'Zellenindex erhöhen
Exsheet.Range("A"&k).Value = var_readW_diff 'Schreiben des Wertes in die Zelle
next
'Connection schließen
oconn.Close
*)