Demo Zeitschaltuhr auf VTP BC72

[R.Best]

Hallo Herr Schiffner,

das Beispielprojekt hat schon einige Jahre auf dem Buckel und war zum Erstellungszeitpunkt nicht für CE ausgelegt. Mit den folgenden Anpassungen sollte es auch auf Ihrem VTP laufen :

Code:

Dim sYear As String = System.DateTime.Now.ToString("yyyy")
Dim nyear As Integer
nyear = CInt(sYear)
Dim sMonth As String = System.DateTime.Now.ToString("MM")
Dim nMonth As Integer
nMonth = CInt(sMonth)
Dim sDay As String = System.DateTime.Now.ToString("dd")
Dim nday As Integer
nday = CInt(sDay)
Dim nWeek As Integer
nWeek = VDF.ReadInt(999,998) 'interne VBASE Funktion um die Kalenderwoche auszulesen
'------------------------------------------------------------------------------------
WoTag = WeekDay(Date)
Dim TaNam As String = System.DateTime.Now.ToString("dddd")

CE mag es scheinbar nicht, wenn in der Deklaration direkt auch in einen anderen Datentyp gecastet wird, daher muss man dies leider einzeln ausführen.
Für die Abfrage der Kalenderwoche benutzen wir eine interne VBASE Funktion, da dies um Längen einfacher ist, als die umständliche Art mit Datepart.
Der Wochentag-Name kann aber einfacher mit der DateTime Funktion "dddd" im ASCII Feld eingetragen werden.

Mit freundlichen Grüßen
Roman Best