This is version 1 2 3 4 5 . It is not the current version, and thus it cannot be edited.

Back to current versionRestore this version

YBT - Years Between #

This operator takes the years between Operand 2 and Operand 3, and stores the result in Operand 1. The value stored in Operand 1 will be either a positive or negative value.

The number of months will be expressed as a fractional number.

Statement

If an employee has worked for the company for more than 20 years as of January 1, and their anniversary is this pay, give a $1000 bonus and store the bonus in PC 980.

Line	CMD	OT	Operand 1	OPER	OT	Operand2	OT	Operand3	If Goto	Else GoTo
00010	LET	V	JAN 1 OF THIS YEAR	BY	$S	PERIOD-END-DATE			00020
00020	LET	V	YRS SERVICE AS OF JAN 1	YBT	DB	EEM.HIRE_DATE	V	JAN 1 OF THIS YEAR	00030
00030	ANN			BD	DB	EEM.HIRE_DATE			00100	9999
00100	LET	PC	980	EQ	N	1000			99999
99999	EXIT								99999

Line 00010	The beginning of the year is calculated to prevent having to maintain the UserCalc when the year changes.
Line 00020	The years of service are calculated based on January 1.
Line 00030	Determined if the current pay period includes the anniversary of the employee’s hire date.

In the example above, if the period end date is June 15, 2000 and the employee’s hire date is June 10, 1979, the employee would receive the $1000.00 bonus during this pay. The number of years will be expressed in fractional numbers.

---

Notes #

Click to create a new notes page