S7 300 CPU Automatischer abgleich der Uhrzeit,Datum u. Wochentag mit dem PC

[S.Rings]

Das Zielsystem ist die S7 und auf dem PC ist Windows XP.
Um Unklarheiten zu besietugen.
Mein Vorhaben ist es die Daten Jahr Monat usw. vom PC die ja alle ein Intager sind in Hex zu wandeln da die S7 einen BCD Code erwartet.

iJahr=Year(Now)             ' Lade Year in iJahr  also das Jahr 2013
If iJahr>2000 Then iJahr=iJahr-2000     ' Int= 13
VDF.WriteInt 1,0,iJahr      'Ist das Jahr vom PC als Intager Bin=  1101
wert1=VDF.ReadInt(1,0)   'Schreibe VDF.ReadInt(1.0) in wert1
HString=""                      'Macht einen String aus wert1 ??
Hstring=Hex(wert1)          'Wandle wert1 in Hex ??
VDF.WriteInt 2,24,HString 'Hir kommt kein Hex raus und auch kein Intager?  Möchte Bin=0001 0011 für BCD 13

Bekomme aber bei VisAM eine Fehlermeldung.: System-Fehler/Error
                                                              Nr./No.:13in Modul:1809

Hallo Therme,
es wäre ja schon früher wichtig gewesen für welches Zielsystem/Plattform (damit meinten wir Betriebsystem) und welche
VisAM Version sie verwenden.
Nun ist klar das Sie "Visam Win32" verwenden und nicht die DotNet Version(eigentlich auch das falsche Unterforum, aber egal) .

Da ist es ein klein wenig anders, und der Fehler im Scripteditor klar weil dort noch kein wert in wert1 stand.
Hier das funktioniert unter "Visam Win32"

Code:

iJahr=Year(Now)             ' Lade Year in iJahr  also das Jahr 2013
VDF.WriteInt 1,0,iJahr
If iJahr>2000 Then iJahr=iJahr-2000     ' Int= 13
VDF.WriteInt 1,1,iJahr      'Ist das Jahr vom PC als Intager Bin=  1101

wert1=VDF.ReadInt(1,1)   'Schreibe VDF.ReadInt(1,1) in wert1

aWert=Right("0000"  & Cstr(wert1),4) '4 stellig rechtsbündig
wert2=  Cint("&H"+awert)  

VDF.WriteInt 2,24 , wert2'Möchte Bin=0001 0011 für BCD 13

Im Anhang noch ein voll lauffähiges Projekt für die BCD Umwandlung.