Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Ergebnis 1 bis 6 von 6

Thema: DATE_AND_TIME in Stringvariable wandeln

  1. #1
    Registriert seit
    18.12.2009
    Beiträge
    7
    Danke
    1
    Erhielt 0 Danke für 0 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Hallo zusammen
    Ich muss einem Zeitstempel mit Echtzeit aus der SPS in WinCC machen.
    Wie kann die Struktur „DATE_AND_TIME“ (aus S7) in Stringvariable in WinCC wandeln .
    Zitieren Zitieren DATE_AND_TIME in Stringvariable wandeln  

  2. #2
    Registriert seit
    17.06.2004
    Ort
    Offenau
    Beiträge
    3.745
    Danke
    209
    Erhielt 421 Danke für 338 Beiträge

    Standard

    PM mich morgen mal das Ichs nicht vergesse, dann schick Ich dir was....
    ---------------------------------------------
    Jochen Kühner
    https://github.com/jogibear9988/DotN...ToolBoxLibrary - Bibliothek zur Kommunikation mit PLCs und zum öffnen von Step 5/7 Projekten

  3. Folgender Benutzer sagt Danke zu Jochen Kühner für den nützlichen Beitrag:

    vsoft (06.07.2010)

  4. #3
    Registriert seit
    17.06.2004
    Ort
    Offenau
    Beiträge
    3.745
    Danke
    209
    Erhielt 421 Danke für 338 Beiträge

    Standard

    Lege eine Rohdatenvariable mit der Länge 8 an. Dann kannst du Folgendes Script verwenden:

    Code:
    Function Text_Trigger(ByVal Item)
    Dim objTag
    Dim var
    Set objTag = HMIRuntime.Tags("datumzeit")
    
    objTag.Read
    
    var = objtag.value
    Dim tx,yr,hr,mn,ss
    tx = "20"
    If (var(0)>=144) Then tx="19"
    yr = Hex(var(2))	
    hr = Hex(var(3))
    mn = Hex(var(4))
    ss = Hex(var(5))
    If (Len(yr)<2) Then yr = "0" + yr
    If (Len(hr)<2) Then hr = "0" + hr
    If (Len(mn)<2) Then mn = "0" + mn
    If (Len(ss)<2) Then ss = "0" + ss
    Text_Trigger =  Hex(var(2)) +"." + Hex(var(1)) + "." + tx + yr + " " + hr + ":" +  mn + ":" + ss
    
    End Function
    ---------------------------------------------
    Jochen Kühner
    https://github.com/jogibear9988/DotN...ToolBoxLibrary - Bibliothek zur Kommunikation mit PLCs und zum öffnen von Step 5/7 Projekten

  5. #4
    vsoft ist offline Neuer Benutzer
    Themenstarter
    Registriert seit
    18.12.2009
    Beiträge
    7
    Danke
    1
    Erhielt 0 Danke für 0 Beiträge

    Standard

    Ich hab den Code ausprobiert, es funktioniert mehr als perfekt. Super Vielen Vielen Dank .

  6. #5
    vsoft ist offline Neuer Benutzer
    Themenstarter
    Registriert seit
    18.12.2009
    Beiträge
    7
    Danke
    1
    Erhielt 0 Danke für 0 Beiträge

    Standard

    Ich habe ein kleine Änderung gemacht weil hat immer 2007 angezeigt!!!!
    Noch mal vielen dank!!!


    ///////////////////////////////////////////////////


    Function Text_Trigger(Byval Item)
    Dim objTag
    Dim var
    Set objTag = HMIRuntime.Tags("DATE_AND_TIME") 'SPS Variable(Rohdatenvariable Länge 8 Byte)

    objTag.Read

    var = objtag.value
    Dim tx,yr,hr,mn,ss
    tx = "20"
    If (var(0)>=144) Then tx="19"
    yr = Hex(var(0)) 'Änderung auf Byte 0 Jahr abfrage
    hr = Hex(var(3))
    mn = Hex(var(4))
    ss = Hex(var(5))
    If (Len(yr)<2) Then yr = "0" + yr
    If (Len(hr)<2) Then hr = "0" + hr
    If (Len(mn)<2) Then mn = "0" + mn
    If (Len(ss)<2) Then ss = "0" + ss
    Text_Trigger = Hex(var(2)) +"." + Hex(var(1)) + "." + tx + yr + " " + hr + ":" + mn + ":" + ss

    End Function

  7. #6
    Registriert seit
    17.06.2004
    Ort
    Offenau
    Beiträge
    3.745
    Danke
    209
    Erhielt 421 Danke für 338 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Ja sorry, war ein Tippfehler...
    ---------------------------------------------
    Jochen Kühner
    https://github.com/jogibear9988/DotN...ToolBoxLibrary - Bibliothek zur Kommunikation mit PLCs und zum öffnen von Step 5/7 Projekten

Ähnliche Themen

  1. Antworten: 4
    Letzter Beitrag: 17.12.2008, 12:44
  2. WinCC Stringvariable ohne Header...
    Von Jochen Kühner im Forum HMI
    Antworten: 3
    Letzter Beitrag: 04.06.2008, 10:04
  3. Byte in Date_And_Time wandeln...
    Von steven im Forum Simatic
    Antworten: 2
    Letzter Beitrag: 08.05.2006, 12:18
  4. Date_and_time
    Von uz71 im Forum Simatic
    Antworten: 2
    Letzter Beitrag: 31.03.2006, 15:05
  5. Date_and_time
    Von Anonymous im Forum Simatic
    Antworten: 2
    Letzter Beitrag: 06.10.2003, 16:05

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •