21.02.2020, 14:20
Hallo Herr Best,
es funktioniert noch nicht, ich bekommen nach wie vor eine Fehlermeldung, siehe Anhang.
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
'------------------------------------------------------------------------------------
Dim sWoTag As String = System.DateTime.Now.ToString("dddd")
Dim WoTag As Integer
WoTag = CInt(sWoTag)
Dim TaNam As String = System.DateTime.Now.ToString("dddd")
VDF.WriteAscii 3,7,"KW" & nWeek & " - " & TaNam & Space(13)
VDF.WriteInt 3,5,WoTag
Stund = VDF.ReadBitB(0,1,0,8)
Minut = VDF.ReadBitB(0,1,8,8)
AktTi = (Stund*60)+Minut
VDF.WriteInt 3,6,AktTi
mit freundlichen Grüßen
Peter Schiffner
es funktioniert noch nicht, ich bekommen nach wie vor eine Fehlermeldung, siehe Anhang.
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
'------------------------------------------------------------------------------------
Dim sWoTag As String = System.DateTime.Now.ToString("dddd")
Dim WoTag As Integer
WoTag = CInt(sWoTag)
Dim TaNam As String = System.DateTime.Now.ToString("dddd")
VDF.WriteAscii 3,7,"KW" & nWeek & " - " & TaNam & Space(13)
VDF.WriteInt 3,5,WoTag
Stund = VDF.ReadBitB(0,1,0,8)
Minut = VDF.ReadBitB(0,1,8,8)
AktTi = (Stund*60)+Minut
VDF.WriteInt 3,6,AktTi
mit freundlichen Grüßen
Peter Schiffner