home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 1999 September / PCW0999.ISO / sharewar / update / bspexcel.exe / PCUTEST.INT < prev    next >
Encoding:
Text File  |  1999-04-07  |  2.1 KB  |  85 lines

  1. Include "DruckNT.int"
  2.  
  3. Const    Set as Is
  4.  
  5. ' Abwesenheitsarten
  6. Const ABWART_SCHWERBEHINDERT as        1
  7. Const ABWART_JAHRESURLAUB as          2
  8. Const ABWART_MUTTERSCHUTZ as          3
  9. Const ABWART_KRANKHEIT as              4
  10. Const ABWART_ARBEITSUNFALL as          5
  11. Const ABWART_KUR as                 6
  12. Const ABWART_ARZTBESUCH    as            7
  13. Const ABWART_WEITERBILDUNG as        8
  14. Const ABWART_BERUFSSCHULE as        9
  15. Const ABWART_WEHRUEBUNG    as            10
  16. Const ABWART_FREI_BEI_KUEND as        11
  17. Const ABWART_AMTSGANG    as            12
  18. Const ABWART_HOCHZEIT as            13
  19. Const ABWART_GEBURT    as                14
  20. Const ABWART_BETREUUNG    as            15
  21. Const ABWART_UMZUG    as                16
  22. Const ABWART_UNENTSCH_FEHL    as        17
  23. Const ABWART_UNBEZ_URLAUB as        18
  24. Const ABWART_GLEITZEITTAGE as        19
  25. Const ABWART_BRUECKENTAGE as        20
  26. Const ABWART_ERZIEHUNG as            21
  27. Const ABWART_WEHRDIENST     as            22
  28. Const ABWART_DIENSTREISE as            23
  29. Const ABWART_FORTBILDUNG as            24
  30. Const ABWART_ZUSATZ    as                25
  31.  
  32.  
  33. Const MONTAG    as 1
  34. Const DIENSTAG    as 2
  35. Const MITTWOCH    as 3
  36. Const DONNERSTAG as 4
  37. Const FREITAG     as 5
  38. Const SAMSTAG     as 6
  39. Const SONNTAG    as 7
  40.  
  41. function Get(gruppe as string, bereich as numeric) as string
  42.     Get = gruppe + FormatNumeric("%.0f", bereich)
  43. end function
  44.  
  45. function IstAbwesend(gruppe as string, bereich as numeric) as string
  46.     Get = gruppe + FormatNumeric("%.0f", bereich)
  47. end function
  48.  
  49. function Is(gruppe as string, bereich as numeric) as bool
  50.     Is = FALSE
  51. end function
  52.  
  53. dim dataset as Numeric
  54.  
  55. function FirstRecord(gruppe as string) as bool
  56.     dataset = 0
  57.     FirstRecord = TRUE
  58. end function
  59.     
  60. function NextRecord(gruppe as string) as bool
  61.     dataset = dataset + 1
  62.     NextRecord = dataset <= 10
  63. end function
  64.     
  65. function GetTime(gruppe as string, bereich as numeric) as numeric
  66.     GetTime = Now()
  67. end function
  68.  
  69. function GetDate(gruppe as string, bereich as numeric) as numeric
  70.     GetDate = Now()
  71. end function
  72.  
  73. function GetNumeric(gruppe as string, bereich as numeric) as numeric
  74.     GetNumeric = bereich
  75. end function
  76.  
  77. function Wochentag( tag_monat as numeric ) as numeric
  78.  
  79. end function
  80.  
  81. function FormatMinutes( minutes as numeric ) as string
  82.     FormatMinutes = FormatNumeric( "%.0f", minutes )
  83. end function
  84.  
  85.