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

[therme]

bei .... ("&h" + ...) evtl. das zweite 'Anführungszeichen' ( " ) vergessen? Oder nur hier beim Beispiel?

Sorry, hab es nur hier im Beispeil falsch.

Was ist denn eigentlich das Zielsystem
und wie lautet denn der Fehler ?

Mir ist im übrigen aufgefallen das unter Windows CE (Also VTP-C Modelle)
die automatische Konvertierung von Double in Integer nicht vom Framework
unerstützt wird.
Das könnte auch hier zu einem Fehler führen.
Aus der Zeile:

Wert2=val("&H" + HString)

muss dann folgendes werden:

Wert2=Cint(val("&H" + HString))

Damit wird die Zahl die die Val() Funktion liefert automatisch in einen
Integer 'gecasted'.

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