Hi Jim,

My preference would be:

lLeapYear = .F.
IF nYear % 4 = 0
  IF nYear % 100 = 0
    lLeapYear = (nYear % 400 = 0)
  ELSE
    lLeapYear = .T.
  ENDIF
ENDIF

Not only do I think it's as readable, but it's less code and faster.