Datum ablesen und berechnen mit WinCC flexible?

[MM440]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo zusammen,
ich suche nach einer Lösungsmöglichkeit, bei der man das Datum ausliest, also Tag, Monat und Jahr einzeln abruft und es berechnet.
Ich möchte damit als wechselndes Passwort benutzen, das sich jeden Tag ändert.

Kann man das mit Skript unter WinCC flexible realisieren?

Hat jemand vielleicht eine Lösung dazu?

Vielen Dank im Voraus.

 

[volker]

 jahr = right(date,4)
 monat = mid(date,4,2)
 tag = left(date,2)

 

[johnij]

Zuviel Werbung?
-> Hier kostenlos registrieren

Die zweite Möglichkeit wäre es, die ganzen berechnungen in der
SPS zu erledigen

 

[MM440]

Danke Volker,
ich kann bei mir aber nur einzeln eingeben, wenn ich z.B. damit addiere, dann klappt es nicht. Habe ich was falsches gemacht?

Hier mein Beispiel:

If SmartTags("sgBenutzername") = "guest" And SmartTags("sgKennwort") = right(date,4) + mid(date,4,2) + left(date,2) Then
    ActivateScreen "Bild_2",0     'Wechsle zum nächsten Bild
    SmartTags("boNotOK") = False   'Passwort OK
Else
    SmartTags("boNotOK") = True    'Passwort nicht OK
End If

@ johnij:
Ich kann leider nicht unter SPS oder Simotion ändern, da meine Aufgabe die Visualisierung ist. Daher soll ich nach meiner Möglichkeit alles unter WinCC flexible gestalten.

 

[volker]

pc oder panel mit wince?
bei wince ist das jahr nur 2 lang. evtl noch int vorschreiben. aber normal nicht nötig.
int(right(date,2))

 

[MM440]

Zuviel Werbung?
-> Hier kostenlos registrieren

Das kann ich zur Zeit am PC testen, später wird das Programm auf den Touch Panel MP277 transferiert.
sgKennwort ist vom Typ String, liegt da vielleicht der Fehler?
Das ist aber eine interne Varialbe, ich kann auch auf Int-Typ umändern.

 

[Larry Laffer]

Hallo,
ich vermute mal, dass die Funktion Date keinen String zurückliefert ...
versuch es doch bitte mal mit :

Jahr = Year(Now)
Monat = Month(Now)
Tag = Day(Now)

Hier allerdings beachten, dass die Formatierung nicht unbedingt so ist, wie du sie haben willst. Das wäre dann so zu erreichen :

Datum = right(Year(Now),4) + right(100 + Month(Now) ,2) + right(100 + Day(Now) ,2)

Gruß
LL

 

[volker]

mal eben getestet. var_1 ist ein string nicht an die steuerung gebunden

VAR_1=Int(jahr) + Int(tag) + Int(monat)
ergibt als ergebnis: 2043

VAR_1=jahr + tag + monat
ergibt als ergebnis: 20082411

 

[MM440]

Zuviel Werbung?
-> Hier kostenlos registrieren

Vielen Dank Volker und Larry Laffer,
ich war auch zum gleichen Ergebnis gekommen

Hier das Ergebnis:

Dim Jahr, Monat, Tag, Summe

Jahr = Right(Year(Now),4)
Monat = Right(100 + Month(Now) ,2)
Tag = Right(100 + Day(Now),2)
Summe = Int(Jahr) + Int(Monat) + Int(Tag)
 
If SmartTags("sgBenutzername")= "guest" And SmartTags("i16Kennwort")= Summe Then
     ActivateScreen "Bild_2",0
     SmartTags("boNotOK")= False
Else
     SmartTags("boNotOK")= True
End If

i16Kennwort muss ein Int-Typ sein.

 

[volker]

i16Kennwort muss ein Int-Typ sein.

nein muss es nicht.
wie gesagt hab ich das getestet und var_1 ist ein string

 

[MM440]

Es klappt bei mir nur mit Int-Typ.
Vielen Dank Volker.