* Calcualte the nuber of bi-weekly payments for specific quarter LPARAMETERS tnYear, tnQuarter, tdPayDate * tdPayDate - past bi-weekly pay date LOCAL ldQstart, ldQend * Return 0 in case it's used in a query IF NOT BETWEEN(tnQuarter,1,4) RETURN 0 ENDIF * The first and last date of a quarter ldQstart = DATE(tnYear, (tnQuarter-1)*3 + 1, 01) ldQend = GOMONTH(ldQstart,3) - 1 RETURN INT((ldQend - tdPayDate) / 14) - CEILING((ldQstart - tdPayDate) / 14) + 1