TIA TOD-Zeit wird in CSV-Datei mit Datum dargestellt.

[Dekuika]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo,
ich versuche gerade aus WinCC (Tia Portal V17) heraus eine CSV-Datei zu schreiben. Allerdings werden meine TOD-Zeiten mit Datum 01.01.1990 dargestellt. Lässt sich das irgendwie vermeiden? Ich benutze das Script aus der Siemens Vorlage. Besten Dank schon mal im voraus.

Sub Write_data_to_file()
Dim fso, f, ts

'Fehler abfangen
On Error Resume Next

'Objekt erstellen
Set fso = CreateObject("Scripting.FileSystemObject")
If Err.Number <> 0 Then
    ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
    Err.Clear
    Exit Sub
End If

'Datei erstellen, wenn keine vorhanden
If Not fso.FileExists(FileName) Then
fso.CreateTextFile FileName
End If

Set f = fso.GetFile(FileName)
If Err.Number <> 0 Then
    ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
    Err.Clear
    Exit Sub
End If

Set ts = f.OpenAsTextStream(8, -2)
    ' mode "8" to append to file
If Err.Number <> 0 Then
    ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
    Err.Clear
    Exit Sub
End If

'Neue Werte in die Datei schreiben
ts.WriteLine( Zeit_akt  & ";" &  Zeit_1 & ";" & Zeit_2 & ";" & Wert_1)


'Aufraeumen
ts.Close
Set f = Nothing
ShowSystemAlarm "Storage of the data was successful!"

End Sub

 

[faust]

Ich nehme mal an, dass "Zeit_akt", "Zeit_1" und "Zeit_2" deine TOD-Zeiten sind, richtig?

Grundsätzlich würde ich diese Variablen casten - also z.B. CStr(Zeit_akt) - damit "ts.WriteLine" mit einem String versorgt wird, der nicht in Teilen von der automatischen VBS-Typumwandlung betroffen ist.

Dieses Casten kannst du dann wahlweise mit Hilfsfunktionen koppeln, also den gewandelten String bearbeiten.
Beispiel:

timeAsStr = Mid(CStr(now), 12)
ergibt
"21:46:05" = Mid("01.01.1990 21:46:05", 12), wenn man das deutsche Datums-/Zeitformat voraussetzt

 

[faust]

Zuviel Werbung?
-> Hier kostenlos registrieren

Eine andere Möglichkeit:

 

[PN/DP]

Die Darstellung ist in Excel oder tatsächlich so in der csv-Datei? Öffne die csv-Datei mit einem normalen Texteditor.

 

[Dekuika]

Die Darstellung ist in Excel oder tatsächlich so in der csv-Datei? Öffne die csv-Datei mit einem normalen Texteditor.

In Notepad++ sieht es genauso aus.