Demo Zeitschaltuhr auf VTP BC72

[R.Best]

Hallo Herr Schiffner,

im vorangegangenen Code Beispiel war noch eine fehlerhafte Wochentagkonvertierung vorhanden. Bei der Korrektur selbiger bin ich noch auf eine viel einfacher Methode gestoßen.

Code:

Dim nWeek As Integer
nWeek = VDF.ReadInt(999,998)
Dim WoTag As Integer
Dim nyear As Integer
Dim nMonth As Integer
Dim nDay As Integer
Dim nHour As Integer
Dim nMinute As Integer
Dim nSecond As Integer

VOK.GetLocalTime (nyear,nmonth,nday,nhour,nminute,nsecond,WoTag)
'WoTag von GetLocalTime : Wochentag wird mit einem Wert 0 (= Sonntag) bis 6 (= Samstag) übergeben.
'Damit der Rest des Scriptes stimmt wird dieser dann "+1" gerechnet
Wotag += 1
Dim TaNam As String = System.DateTime.Now.ToString("dddd")

VDF.WriteAscii 1,7,"KW" & CStr(nWeek) & "  -  " & TaNam & Space(13)
VDF.WriteInt 1,5,WoTag

Ähnlich zu VOK.SetLocalTime, haben wir in VBASE auch die im Code-Beispiel benutzte Methode VOK.GetLocalTime. Diese gibt uns alle Zeitwerte zurück (bis auf Kalenderwoche bei der wir bei VDF.Readint(999,998) bleiben), die wir benötigen. Lediglich beim WriteAscii muss "nWeek" noch in einen String gecastet werden und WoTag um eins erhöht werden, dann lief das Projekt so bei mir auf einem BC 72.

Mit freundlichen Grüßen
Roman Best