short VerDate(char *pcDate)
{
  short sRetour = 0;
  if ( pcDate == 0 ) {
    sRetour = 1;
  }
  if ( pcDate == 0 )
    sRetour = 1;
  if ( pcDate == 0 ) {
    sRetour = 1;
    return sRetour;
  }
  return sRetour;
}
