DataMuseum.dk

top - download

    Length: 2176 (0x880)
    Types: TextFile
    Names: »HUMAN.MOD«

└─⟦6ae1c04a5⟧ Bits:30004364 SW1656 IFPS/Personal Version 2.10 release 1.1
    └─ ⟦this⟧ »HUMAN.MOD« 

TextFile

COLUMNS TIM,MARK,JANE,PHIL,STEVE,BOB             
ØØ
ØØ  This model calculates the bonus due an employee based on
ØØ  the number of days worked in the year and the management
ØØ  level.  The criterion used for the analysis is:
ØØ
ØØ    1. An employee must have worked at least 130 days to
ØØ       be eligible.
ØØ    2. Bonus will be paid on the basis of a 260 day work
ØØ       year and only for that portion of the year worked.
ØØ    3. Only employees above a class level 2 are eligible
ØØ       for a bonus.
ØØ    4. Bonus levels per class are:
ØØ
ØØ         Class 2: 2000                Class 4: 10000
ØØ         Class 3: 5000                Class 5: 50000
ØØ
ØØ    5. Inputs for calculating dates will be in the form of
ØØ       101.1985 for 1/1/85.  Julian dates will be used to
ØØ       calulate the total number of days worked.
ØØ
ØØ    INPUT DATA
ØØ
CLASS=DATA       
START DATE=DATA
STOP DATE=1231.1985 FOR 6
CLASS 1 BONUS=0 
CLASS 2 BONUS=DATA
CLASS 3 BONUS=DATA
CLASS 4 BONUS=DATA 
CLASS 5 BONUS=DATA 
BONUS BY CLASS=CLASS 1 BONUS,CLASS 2 BONUS,CLASS 3 BONUS,CLASS 4 BONUS,'
               CLASS 5 BONUS
ØØ
ØØ    BONUS CALCULATION
ØØ
DAYS WORKED=TRUNCATE(DATE TWO + DATE ONE + 1)      
TEST ENOUGH DAYS=IF DAYS WORKED .LT. 129 THEN 0 ELSE 1
TEST CLASS LEVEL=IF CLASS .GE. 2 THEN 1 ELSE 0
BONUS=IF TEST ENOUGH DAYS .EQ. 1 .AND. TEST CLASS LEVEL .EQ. 1 '
      THEN PAY BONUS ELSE 0
PAY BONUS=(DAYS WORKED / 260) * VMATRIX(FUTURE BONUS BY CLASS,CLASS)
ØØ
ØØ    CALCULATION OF DATES
ØØ
START MONTH=TRUNCATE(START DATE / 100)
START DAY=TRUNCATE(START DATE) - (START MONTH * 100)
START YEAR=(START DATE - (START MONTH*100) - START DAY) * 1000
STOP MONTH=TRUNCATE(STOP DATE / 100)
STOP DAY=TRUNCATE(STOP DATE) - (STOP MONTH * 100)
STOP YEAR=(STOP DATE - (STOP MONTH*100) - STOP DAY) * 1000
NUMBER OF WEEKS PER MONTHS WORKED=(STOP MONTH - START MONTH) * 4.33333
DATE ONE=NUMBER OF WEEKS PER MONTHS WORKED * 5
NUMBER OF WEEKS PER EXTRA DAYS=((STOP DAY - START DAY) / 7)    
DATE TWO=NUMBER OF WEEKS PER EXTRA DAYS * 5
«eof»