Clipper/FiveWin - Cantidad de dias x mes

clear Screen

nMes  := 0

nAnio := 0

@ 2, 2 Say 'MES ANIO'

@ 3, 2 Get nMes range 1, 12 Picture '##'

@ 3, 6 Get nAnio Picture '####'

read

aMeses:= {'Enero     ',;

          'Febrero   ',;

          'Marzo     ',;

          'Abril     ',;

          'Mayo      ',;

          'Junio     ',;

          'Julio     ',;

          'Agosto    ',;

          'Septiembre',;

          'Octubre   ',;

          'Noviembre ',;

          'Diciembre '}

aDias := {31,28,31,30,31,30,31,31,30,31,30,31}

nDias := aDias[nMes]

IF( nMes=2 )

   IF( (Mod(nAnio,4)=0 .And. Mod(nAnio,100)!=0) .Or. Mod(nAnio,400)=0 )

      nDias++

   EndIF

EndIf

cMes  := Trim(aMeses[nMes])

cAnio := LTrim(Str(nAnio))

cDias := LTrim(Str(nDias))

cTxt  := '&cMes. del &cAnio. tiene &cDias. dias'

@ 5, 40-(Len(cTxt)/2) say cTxt

Inkey(5)

Clear Screen

fFecPro := ctod("1/" + str(month(date()),2) + "/" + str(year(date()),4))

for nDiasxMes := 1 to 31

    if day((fFecPro + nDiasxMes)) == 1

       return(nDiasxMes)

    end

next nDiasxMes