Code: Select all
i:=0
do while i <= wdiapro
wfecFin++
if wDiaLab[Dow(wFecIni+i)]
wFecFin++
endif
i++
enddo
Regards
Code: Select all
i:=0
do while i <= wdiapro
wfecFin++
if wDiaLab[Dow(wFecIni+i)]
wFecFin++
endif
i++
enddo