VERSION 5.00 Object = "{F0EB2110-3CC3-11D0-8E54-006008104BEC}#1.0#0"; "VW4Index.ocx" Begin VB.Form FVBwrong BackColor = &H00C0C0C0& BorderStyle = 0 'Kein Caption = "VW4DateTime" ClientHeight = 9000 ClientLeft = 0 ClientTop = 0 ClientWidth = 12000 ControlBox = 0 'False Icon = "FVBwrong.frx":0000 LinkTopic = "Form1" LockControls = -1 'True ScaleHeight = 9000 ScaleWidth = 12000 StartUpPosition = 2 'Bildschirmmitte Begin VB.Timer tmrDatum Interval = 500 Left = 6060 Top = 660 End Begin VW4IndexLib.VWIndex idxCaption Height = 495 Index = 1 Left = 6000 Top = 0 Width = 6000 _Version = 65536 _ExtentX = 10583 _ExtentY = 873 _StockProps = 96 BorderStyle = 1 FontClass = "Arial12Bold" TextOff = "idxCaptionWrong" IndexGroup = "FVB" UseTextProps = -1 'True BackColorOff = 12632256 ShadowStyle = 1 ShadowDepth = 3 ShadowColor2 = 14737632 Range = 32767 End Begin VW4IndexLib.VWIndex idxCaption Height = 495 Index = 0 Left = 0 Top = 0 Width = 6000 _Version = 65536 _ExtentX = 10583 _ExtentY = 873 _StockProps = 96 BorderStyle = 1 FontClass = "Arial12Bold" TextOff = "ProgramName" IndexGroup = "Global" UseTextProps = -1 'True BackColorOff = 16711680 ForeColorOff = 16777215 ShadowStyle = 1 ShadowDepth = 3 ShadowColor2 = 14737632 Range = 32767 End Begin VW4IndexLib.VWIndex idxFunction Height = 375 Index = 2 Left = 5730 Top = 2730 Width = 975 _Version = 65536 _ExtentX = 1720 _ExtentY = 661 _StockProps = 96 FontClass = "Arial10" TextOff = "Right$(...)" BackColorOff = 12632256 ForeColorOff = 4210752 ShadowStyle = 0 Alignment = 1 End Begin VW4IndexLib.VWIndex idxYear Height = 375 Left = 4830 Top = 2730 Width = 855 _Version = 65536 _ExtentX = 1508 _ExtentY = 661 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "1999" BackColorOff = 12632256 ForeColorOff = 12582912 End Begin VW4IndexLib.VWIndex idxFunction Height = 375 Index = 0 Left = 7710 Top = 1290 Width = 1335 _Version = 65536 _ExtentX = 2355 _ExtentY = 661 _StockProps = 96 FontClass = "Arial10" TextOff = "idxFunction" IndexGroup = "FVB" BackColorOff = 12632256 ForeColorOff = 4210752 ShadowStyle = 0 Alignment = 1 End Begin VW4IndexLib.VWIndex idxResult Height = 375 Left = 4830 Top = 1290 Width = 2835 _Version = 65536 _ExtentX = 5001 _ExtentY = 661 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "idxResult" IndexGroup = "FVB" BackColorOff = 12632256 ForeColorOff = 12582912 End Begin VW4IndexLib.VWIndex idxMeaning Height = 375 Index = 2 Left = 3030 Top = 2730 Width = 1755 _Version = 65536 _ExtentX = 3096 _ExtentY = 661 _StockProps = 96 FontClass = "Arial10Bold" TextOff = "idxYear" IndexGroup = "FVB" BackColorOff = 12632256 ForeColorOff = 0 ShadowStyle = 0 Alignment = 4 End Begin VW4IndexLib.VWIndex idxMeaning Height = 375 Index = 0 Left = 3030 Top = 1290 Width = 1755 _Version = 65536 _ExtentX = 3096 _ExtentY = 661 _StockProps = 96 FontClass = "Arial10Bold" TextOff = "idxMeaning" IndexGroup = "FVB" BackColorOff = 12632256 ForeColorOff = 0 ShadowStyle = 0 Alignment = 4 End Begin VW4IndexLib.VWIndex idxFunction Height = 375 Index = 5 Left = 5730 Top = 4620 Width = 975 _Version = 65536 _ExtentX = 1720 _ExtentY = 661 _StockProps = 96 FontClass = "Arial10" TextOff = "Right$(...)" BackColorOff = 12632256 ForeColorOff = 4210752 ShadowStyle = 0 Alignment = 1 End Begin VW4IndexLib.VWIndex idxSecond Height = 375 Left = 4830 Top = 4620 Width = 855 _Version = 65536 _ExtentX = 1508 _ExtentY = 661 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "13" BackColorOff = 12632256 ForeColorOff = 12582912 End Begin VW4IndexLib.VWIndex idxMeaning Height = 375 Index = 5 Left = 3390 Top = 4620 Width = 1395 _Version = 65536 _ExtentX = 2461 _ExtentY = 661 _StockProps = 96 FontClass = "Arial10Bold" TextOff = "idxSecond" IndexGroup = "FVB" BackColorOff = 12632256 ForeColorOff = 0 ShadowStyle = 0 Alignment = 4 End Begin VW4IndexLib.VWIndex idxFunction Height = 375 Index = 4 Left = 5730 Top = 3990 Width = 975 _Version = 65536 _ExtentX = 1720 _ExtentY = 661 _StockProps = 96 FontClass = "Arial10" TextOff = "Mid$(...)" BackColorOff = 12632256 ForeColorOff = 4210752 ShadowStyle = 0 Alignment = 1 End Begin VW4IndexLib.VWIndex idxMinute Height = 375 Left = 4830 Top = 3990 Width = 855 _Version = 65536 _ExtentX = 1508 _ExtentY = 661 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "12" BackColorOff = 12632256 ForeColorOff = 12582912 End Begin VW4IndexLib.VWIndex idxMeaning Height = 375 Index = 4 Left = 3090 Top = 3990 Width = 1695 _Version = 65536 _ExtentX = 2990 _ExtentY = 661 _StockProps = 96 FontClass = "Arial10Bold" TextOff = "idxMinute" IndexGroup = "FVB" BackColorOff = 12632256 ForeColorOff = 0 ShadowStyle = 0 Alignment = 4 End Begin VW4IndexLib.VWIndex idxFunction Height = 375 Index = 1 Left = 7710 Top = 2100 Width = 975 _Version = 65536 _ExtentX = 1720 _ExtentY = 661 _StockProps = 96 FontClass = "Arial10" TextOff = "Now" BackColorOff = 12632256 ForeColorOff = 4210752 ShadowStyle = 0 Alignment = 1 End Begin VW4IndexLib.VWIndex idxDateTime Height = 375 Left = 4830 Top = 2100 Width = 2835 _Version = 65536 _ExtentX = 5001 _ExtentY = 661 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "1999" BackColorOff = 12632256 ForeColorOff = 12582912 End Begin VW4IndexLib.VWIndex idxMeaning Height = 375 Index = 1 Left = 3030 Top = 2100 Width = 1755 _Version = 65536 _ExtentX = 3096 _ExtentY = 661 _StockProps = 96 FontClass = "Arial10Bold" TextOff = "idxDateAndTime" IndexGroup = "FVB" BackColorOff = 12632256 ForeColorOff = 0 ShadowStyle = 0 Alignment = 4 End Begin VW4IndexLib.VWIndex idxFunction Height = 375 Index = 3 Left = 5730 Top = 3360 Width = 975 _Version = 65536 _ExtentX = 1720 _ExtentY = 661 _StockProps = 96 FontClass = "Arial10" TextOff = "Left$(...)" BackColorOff = 12632256 ForeColorOff = 4210752 ShadowStyle = 0 Alignment = 1 End Begin VW4IndexLib.VWIndex idxHour Height = 375 Left = 4830 Top = 3360 Width = 855 _Version = 65536 _ExtentX = 1508 _ExtentY = 661 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "11" BackColorOff = 12632256 ForeColorOff = 12582912 End Begin VW4IndexLib.VWIndex idxMeaning Height = 375 Index = 3 Left = 3030 Top = 3360 Width = 1755 _Version = 65536 _ExtentX = 3096 _ExtentY = 661 _StockProps = 96 FontClass = "Arial10Bold" TextOff = "idxHour" IndexGroup = "FVB" BackColorOff = 12632256 ForeColorOff = 0 ShadowStyle = 0 Alignment = 4 End Begin VW4IndexLib.VWIndex idxWeekday Height = 375 Index = 0 Left = 4830 Top = 5250 Width = 855 _Version = 65536 _ExtentX = 1508 _ExtentY = 661 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "08" BackColorOff = 12632256 ForeColorOff = 12582912 End Begin VW4IndexLib.VWIndex idxFunction Height = 375 Index = 6 Left = 7530 Top = 5250 Width = 1335 _Version = 65536 _ExtentX = 2355 _ExtentY = 661 _StockProps = 96 FontClass = "Arial10" TextOff = "Weekday(Now)" BackColorOff = 12632256 ForeColorOff = 4210752 ShadowStyle = 0 Alignment = 1 End Begin VW4IndexLib.VWIndex idxFunction Height = 375 Index = 7 Left = 5730 Top = 5880 Width = 1635 _Version = 65536 _ExtentX = 2884 _ExtentY = 661 _StockProps = 96 FontClass = "Arial10" TextOff = "WeekdayName(...)" BackColorOff = 12632256 ForeColorOff = 4210752 ShadowStyle = 0 Alignment = 1 End Begin VW4IndexLib.VWIndex idxWeekdayName Height = 375 Index = 0 Left = 4830 Top = 5880 Width = 855 _Version = 65536 _ExtentX = 1508 _ExtentY = 661 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "Do" BackColorOff = 12632256 ForeColorOff = 12582912 End Begin VW4IndexLib.VWIndex idxFunction Height = 375 Index = 8 Left = 6450 Top = 6510 Width = 1635 _Version = 65536 _ExtentX = 2884 _ExtentY = 661 _StockProps = 96 FontClass = "Arial10" TextOff = "WeekdayName(...)" BackColorOff = 12632256 ForeColorOff = 4210752 ShadowStyle = 0 Alignment = 1 End Begin VW4IndexLib.VWIndex idxWeekdayName Height = 375 Index = 1 Left = 4830 Top = 6510 Width = 1575 _Version = 65536 _ExtentX = 2778 _ExtentY = 661 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "Donnerstag" BackColorOff = 12632256 ForeColorOff = 12582912 End Begin VW4IndexLib.VWIndex idxMeaning Height = 375 Index = 6 Left = 3030 Top = 5250 Width = 1755 _Version = 65536 _ExtentX = 3096 _ExtentY = 661 _StockProps = 96 FontClass = "Arial10Bold" TextOff = "idxWeekday" IndexGroup = "FVB" BackColorOff = 12632256 ForeColorOff = 0 ShadowStyle = 0 Alignment = 4 End Begin VW4IndexLib.VWIndex idxWeekday Height = 375 Index = 1 Left = 5730 Top = 5250 Width = 855 _Version = 65536 _ExtentX = 1508 _ExtentY = 661 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "08" BackColorOff = 12632256 ForeColorOff = 12582912 End Begin VW4IndexLib.VWIndex idxFunction Height = 375 Index = 9 Left = 9330 Top = 7140 Width = 1155 _Version = 65536 _ExtentX = 2037 _ExtentY = 661 _StockProps = 96 FontClass = "Arial10" TextOff = "DatePart(...)" BackColorOff = 12632256 ForeColorOff = 4210752 ShadowStyle = 0 Alignment = 1 End Begin VW4IndexLib.VWIndex idxWeekNumber Height = 375 Index = 0 Left = 4830 Top = 7140 Width = 855 _Version = 65536 _ExtentX = 1508 _ExtentY = 661 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "44" BackColorOff = 12632256 ForeColorOff = 12582912 End Begin VW4IndexLib.VWIndex idxMeaning Height = 375 Index = 7 Left = 3030 Top = 7140 Width = 1755 _Version = 65536 _ExtentX = 3096 _ExtentY = 661 _StockProps = 96 FontClass = "Arial10Bold" TextOff = "idxWeekNumber" IndexGroup = "FVB" BackColorOff = 12632256 ForeColorOff = 0 ShadowStyle = 0 Alignment = 4 End Begin VW4IndexLib.VWIndex idxWeekNumber Height = 375 Index = 1 Left = 5730 Top = 7140 Width = 855 _Version = 65536 _ExtentX = 1508 _ExtentY = 661 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "44" BackColorOff = 12632256 ForeColorOff = 12582912 End Begin VW4IndexLib.VWIndex idxWeekNumber Height = 375 Index = 2 Left = 6630 Top = 7140 Width = 855 _Version = 65536 _ExtentX = 1508 _ExtentY = 661 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "44" BackColorOff = 12632256 ForeColorOff = 12582912 End Begin VW4IndexLib.VWIndex idxWeekNumber Height = 375 Index = 3 Left = 7530 Top = 7140 Width = 855 _Version = 65536 _ExtentX = 1508 _ExtentY = 661 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "44" BackColorOff = 12632256 ForeColorOff = 12582912 End Begin VW4IndexLib.VWIndex idxWeekNumber Height = 375 Index = 4 Left = 8430 Top = 7140 Width = 855 _Version = 65536 _ExtentX = 1508 _ExtentY = 661 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "44" BackColorOff = 12632256 ForeColorOff = 12582912 End Begin VW4IndexLib.VWIndex idxWeekday Height = 375 Index = 2 Left = 6630 Top = 5250 Width = 855 _Version = 65536 _ExtentX = 1508 _ExtentY = 661 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "08" BackColorOff = 12632256 ForeColorOff = 12582912 End Begin VW4DateTime.XFooter XFooter1 Height = 840 Left = 0 TabIndex = 0 Top = 8160 Width = 12000 _ExtentX = 21167 _ExtentY = 1482 End End Attribute VB_Name = "FVBwrong" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub tmrDatum_Timer() Dim s As String, nPos1 As Integer, nPos2 As Integer On Error Resume Next idxDateTime.TextOff = Now idxYear.TextOff = Right$(Date, 4) idxHour.TextOff = Left$(Time, 2) s = Now nPos1 = InStr(s, ":") nPos2 = InStr(nPos1 + 1, s, ":") idxMinute.TextOff = Mid$(s, nPos1 + 1, nPos2 - nPos1 - 1) idxSecond.TextOff = Right$(Time, 2) 'Bitte beachten Sie die Zusatzparameter 'vbUseSystemDayOfWeek' !!! 'Die Vorbelegungen der Funktionen Weekday und WeekdayName sind unterschiedlich !?!? idxWeekDay(0).TextOff = Weekday(Now, vbMonday) idxWeekDay(1).TextOff = Weekday(Now) idxWeekDay(2).TextOff = Weekday(Now, vbUseSystemDayOfWeek) idxWeekdayName(0).TextOff = WeekdayName(Weekday(Now), True) idxWeekdayName(1).TextOff = WeekdayName(Weekday(Now)) idxWeekNumber(0).TextOff = DatePart("ww", Now, vbMonday, vbFirstFourDays) idxWeekNumber(1).TextOff = DatePart("ww", Now) idxWeekNumber(2).TextOff = DatePart("ww", Now, vbUseSystemDayOfWeek, vbFirstFourDays) idxWeekNumber(3).TextOff = DatePart("ww", Now, vbUseSystemDayOfWeek, vbUseSystem) idxWeekNumber(4).TextOff = DatePart("ww", Now, vbUseSystemDayOfWeek, vbFirstFullWeek) End Sub