Saber si un número es par

Tres funciones distintas para saber si un número entero es par.

1. Utilizando el operador %

FUNCTION EsPar(tnEntero)
  RETURN tnEntero % 2 = 0
ENDFUNC

2. Utilizando el operador ^

FUNCTION EsPar(tnEntero)
  RETURN -1 ^ tnEntero = 1
ENDFUNC

3. Utilizando BITTEST()

FUNCTION EsPar(tnEntero)
  RETURN NOT BITTEST(tnEntero,0)
ENDFUNC

Nota del editor: Las funciones 1. y 2. fueron tomadas del Grupo de Noticias de VFP en español, de respuestas enviadas por Luis María Guayán y Dario David Puccio respectivamente. La función 3. fue tomada de la ayuda de VFP de la función BITTEST().