SBP
 ’½ TimeFunctions V1.1 - (c)1994,95 W/S Wiesinger / Schenk & Partner
 {'
'             Gartenstadtstraįe 24, 81825 Mnchen, Germany 
'             Phone: 0049(0)89 4396960
'             Fax  : 0049(0)89 4396950 
'             CS-ID: 100563,700
'
' Filename:   WSTiFc11.SBP (Seperated Tool from MBase3 V3.1, Libary KENRLRTS.SBP)
' Version :   1.1 - 12.Nov.1994
' Using   :   If you use any function in your code please send $15(US Dollars) to us.
' Update  :   
 }
 ’½ --------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 
 ’½ Examples

’’main()
’Ź’Ė"Systemuhr wird gelesen.."
z%%’’1:’×ant$(6)
 
’½ z%% = z%% + 1:REDIM ant$(z%%):ant$(z%%) = "Datum :  " + LEFT$ ( DATE$ ( TODAY ,"dd. mmmm yyyy"))
’½ z%% = z%% + 1:REDIM ant$(z%%):ant$(z%%) = "Tag     :  " + DAY$ ( TODAY )
’½ z%% = z%% + 1:REDIM ant$(z%%):ant$(z%%) = "Kalenderwoche       : " + WeekOfYear$() 
’½        z%% = z%% + 1:REDIM ant$(z%%):ant$(z%%) = "Tag des Jahres       : " + TodayOfYear$() + " / " + LEFT$ ( STR$ ( VAL (LastDayOfYear$()) - VAL (TodayOfYear$())))
 
ant$(0)’"  "’
’2(’Q)’
", "’
’F(’+(’(’Q,"dd. mmmm yyyy")))
ant$(1)’" "
ant$(2)’"  "’
TodayOfYear$()’
" Tag, "’
WeekOfYear$()’
" Woche, "’
’F(’+(’(’5(’Q))))’
" Monat"
ant$(3)’"  "’
RestDayOfYear$()’
" Tage bis Jahresende"
’”’0(LastDayOfYear$())’365’pant$(3)’ant$(3)’
" (Schaltjahr)"
ant$(4)’" "
ant$(5)’"  Nummerischer Tagesindex: "’
’+(’(’Q))
ant$(6)’"  Nummerischer Zeitindex: "’
’+(’(’R))
 
’“’’""
’›z%%’0’q6
’{ant$(z%%)" "
’±
 ’’’’
 ’½ --------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 
 
 ’½ --------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 
 ’½ ***D a t u m   u n d   Z e i t   F u n k t i o n e n
 ’½    WeekOfYear$      : Wert der akt.Kalenderwoche im Jahr 1-52/53 als String 
 ’½    TodayOfYear$     : Wert des Tages im Jahr als String 1-365/366
 ’½    LastDayOfYear$   : Wert des letzten Tages im akt.Jahr (Anzahl der Tage im Jahr) als String 365/366
 ’½    RestDayOfYear$   : Wert der verbleibenden Tage im akt.Jahr als String
 ’½    WeekOfMonth$     : Wert der akt.Woche im Monat 1-4/5 als String 
 ’½    TodayOfMonth$    : Wert des akt.Tages im akt.Monat als String
 ’½    LastDayOfMonth$  : Wert des letzten Tages im akt.Monat (Anzahl der Tage im Monat) als String
 ’½    RestDayOfMonth$  : Wert der verbleibenden Tage im akt.Monat als String
 ’½    RewDayOfMonth$   : Wert des akt.Tages im akt.Monat als negativer Wert als String 
 ’½    WdayOfMonth$     : Wert des akt.Arbeitstages im akt.Monat als String (ohne Sonntage)
 ’½    RewWDayOfMonth$  : Wert des akt.Arbeitstages im akt.Monat als negativer Wert als String (ohne Sonntag)
 ’½    TodayOfWeek$     : Wert des akt.Wochentages 1-7 als String
 ’½    HourSystime$()   : Wert der akt.Stunde als String
 ’½    HourSystimeAM$() : Wert der akt.Stunde im 12-Std.Format als String 
 ’½    MinSystime$()    : Wert der akt.Minute als String
 ’½ ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------   
’’WeekOfYear$()
’›w%%’1’q8
WeekOfYear$’"0"’
’F(’+(’(w%%)))
WeekOfYear$’’2(’1(WeekOfYear$’
".01."’
’(’6(’Q))))
’”WeekOfYear$’"Montag"’p
WeekOfYear$’"0"’
’F(’+(’(w%%)))
WeekOfYear$’’(’1(WeekOfYear$’
".01."’
’(’6(’Q)))’’1("31.12."’
’(’6(’Q)’1)))
w%%’9
’’’”
’±
WeekOfYear$’’(’0(TodayOfYear$())’’0(WeekOfYear$)’
7)
WeekOfYear$’’F(’+(’F(’+(’(’0(WeekOfYear$)’7))),2))'!!!!wgAbrundung
 ’’’’
’’TodayOfYear$()
TodayOfYear$’’F(’+(’(’1(’Q)’’1("31.12."’
’(’6(’Q)’1)))))
 ’’’’
’’LastDayOfYear$()
LastDayOfYear$’’F(’+(’(’1("31.12."’
’(’6(’Q)))’’1("31.12."’
’(’6(’Q)’1)))))
 ’’’’
’’RestDayOfYear$()
RestDayOfYear$’’F(’+(’(’0(LastDayOfYear$())’’0(TodayOfYear$()))))
 ’’’’
’’WeekOfMonth$()
WeekOfMonth$’""
 ’’’’
’’TodayOfMonth$()
TodayOfMonth$’’F(’+(’(’Q,"0d.mm.yyyy"),2))
 ’’’’
’’LastDayOfMonth$()
LastDayOfMonth$’’F(’+(’(’5(’Q))))
’”LastDayOfMonth$’"2"’
LastDayOfMonth$’"7"’p
’”LastDayOfMonth$’"2"’pLastDayOfMonth$’"28"
’”LastDayOfMonth$’"2"’LastDayOfYear$()’"366"’pLastDayOfMonth$’"29"
’”LastDayOfMonth$’"7"’pLastDayOfMonth$’"31"
’^
’”’0(LastDayOfMonth$)’2’0’pLastDayOfMonth$’"31"’^LastDayOfMonth$’"30"
’’’”
 ’’’’
’’RestDayOfMonth$()
RestDayOfMonth$’’F(’+(’(’0(LastDayOfMonth$())’’0(TodayOfMonth$()))))
 ’’’’
’’RewDayOfMonth$()
RewDayOfMonth$’’F(’+(’(’0(TodayOfMonth$())’1’’0(LastDayOfMonth$()))))
 ’’’’
’’WdayOfMonth$()
WdayOfMonth$’’F(’+(’(’Q,"0d.mm.yyyy"),2))
WdayOfMonth$’’F(’+(’(’0(WdayOfMonth$)’
1’’0(WeekOfMonth$()))))
 ’’’’
’’RewWDayOfMonth$()
RewWDayOfMonth$’’F(’+(’(’0(TodayOfMonth$())’1’’0(LastDayOfMonth$()))))
RewWdayOfMonth$’’F(’+(’(’0(RewWdayOfMonth$)’
1’’0(WeekOfMonth$()))))
 ’’’’
’’TodayOfWeek$()
TodayOfWeek$’’+(’2(’Q),2)
’”TodayOfWeek$’"Mo"’pTodayOfWeek$’"1"
’”TodayOfWeek$’"Di"’
TodayOfWeek$’"Tu"’pTodayOfWeek$’"2"
’”TodayOfWeek$’"Mi"’
TodayOfWeek$’"We"’pTodayOfWeek$’"3"
’”TodayOfWeek$’"Do"’
TodayOfWeek$’"Th"’pTodayOfWeek$’"4"
’”TodayOfWeek$’"Fr"’pTodayOfWeek$’"5"
’”TodayOfWeek$’"Sa"’pTodayOfWeek$’"6"
’”TodayOfWeek$’"So"’pTodayOfWeek$’"7"
 ’’’’
’’HourSystime$()
HourSystime$’’F(’+(’7(’R,"HH:MM"),2))
 ’’’’
’’MinSystime$()
MinSystime$’’F(’+(’,(’7(’R,"HH:MM"),4,2)))
 ’’’’
’’HourSystimeAM$()
HourSystimeAM$’’F(’+(’7(’R,"HH:MM am"),2))
 ’’’’

’½ ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------