NAME:vraidate
PURPOSE:donne la date en long
CATEGORY:
CALLING SEQUENCE:res=vraidate(date)
INPUTS:date:une date du type yyyymmdd
KEYWORD PARAMETERS:
/GRADS: if 1 le year le 49 then year = 2000+year
if 50 le year le 99 then year = 1900+year
OUTPUTS:une date vairmer du type yyyymmdd
SIDE EFFECTS:si year est nulle ou egale a -1 ne change rien
EXAMPLE:vraidate(980703) donne 19980703 qui est un long