Para saber se um ano é bissexto ou não, deve-se seguir as regras abaixo:

1. Se o ano não termina em 00, ele é bissexto se for divisível por 4. Exemplos: 1988, 1992, 1996, 2004, e assim por diante;

2. Se o ano termina em 00, ele é bissexto se for divisível por 400. Exemplos: 2000, 2400, 2800, e assim por diante.

A função abaixo pode ser usada para a identificação de anos bissextos:

  #include "COMMON.CH"

  Function AnoBissexto( nAno )

     Local lAno

     Default nAno To Year( Date() )
     lAno := FALSE
     If (nAno % 4 = 0 .And. nAno % 100 <> 0) .Or. (nAno % 400 = 0)
        lAno := TRUE
     EndIf
     Return lAno

Ela recebe como parâmetro o ano e retorna .T. se for bissexto e .F. caso não seja. Se não for passado nenhum parâmetro, a função usará o ano corrente.