m.DataIni = Date() m.DataFin = Date()+30 For m.Dia=0 To (m.DataFin-m.DataIni) ? m.DataIni+m.Dia EndFor