home *** CD-ROM | disk | FTP | other *** search
- Include "DruckNT.int"
-
- Const Set as Is
-
- ' Abwesenheitsarten
- Const ABWART_SCHWERBEHINDERT as 1
- Const ABWART_JAHRESURLAUB as 2
- Const ABWART_MUTTERSCHUTZ as 3
- Const ABWART_KRANKHEIT as 4
- Const ABWART_ARBEITSUNFALL as 5
- Const ABWART_KUR as 6
- Const ABWART_ARZTBESUCH as 7
- Const ABWART_WEITERBILDUNG as 8
- Const ABWART_BERUFSSCHULE as 9
- Const ABWART_WEHRUEBUNG as 10
- Const ABWART_FREI_BEI_KUEND as 11
- Const ABWART_AMTSGANG as 12
- Const ABWART_HOCHZEIT as 13
- Const ABWART_GEBURT as 14
- Const ABWART_BETREUUNG as 15
- Const ABWART_UMZUG as 16
- Const ABWART_UNENTSCH_FEHL as 17
- Const ABWART_UNBEZ_URLAUB as 18
- Const ABWART_GLEITZEITTAGE as 19
- Const ABWART_BRUECKENTAGE as 20
- Const ABWART_ERZIEHUNG as 21
- Const ABWART_WEHRDIENST as 22
- Const ABWART_DIENSTREISE as 23
- Const ABWART_FORTBILDUNG as 24
- Const ABWART_ZUSATZ as 25
-
-
- Const MONTAG as 1
- Const DIENSTAG as 2
- Const MITTWOCH as 3
- Const DONNERSTAG as 4
- Const FREITAG as 5
- Const SAMSTAG as 6
- Const SONNTAG as 7
-
- function Get(gruppe as string, bereich as numeric) as string
- Get = gruppe + FormatNumeric("%.0f", bereich)
- end function
-
- function IstAbwesend(gruppe as string, bereich as numeric) as string
- Get = gruppe + FormatNumeric("%.0f", bereich)
- end function
-
- function Is(gruppe as string, bereich as numeric) as bool
- Is = FALSE
- end function
-
- dim dataset as Numeric
-
- function FirstRecord(gruppe as string) as bool
- dataset = 0
- FirstRecord = TRUE
- end function
-
- function NextRecord(gruppe as string) as bool
- dataset = dataset + 1
- NextRecord = dataset <= 10
- end function
-
- function GetTime(gruppe as string, bereich as numeric) as numeric
- GetTime = Now()
- end function
-
- function GetDate(gruppe as string, bereich as numeric) as numeric
- GetDate = Now()
- end function
-
- function GetNumeric(gruppe as string, bereich as numeric) as numeric
- GetNumeric = bereich
- end function
-
- function Wochentag( tag_monat as numeric ) as numeric
-
- end function
-
- function FormatMinutes( minutes as numeric ) as string
- FormatMinutes = FormatNumeric( "%.0f", minutes )
- end function
-
-