FoxPro/Visual FoxPro - necesito la fecha de fin de mess

Hola amigos mi consulta es la siguiente

tengo dos cajas de texto en las cuales deseo mostrar dos fechas por defecto

txtfechainicio=fecha actual y...

txtfechatermino=ultimo dia del mes

ejm.. (para abril)

txtfechainicio='12/04/2007'

txtfechatermino='30/04/2007'

ejm.. (para mayo)

txtfechainicio='12/05/2007'

txtfechatermino='31/05/2007'

ejm.. (para febrero)

txtfechainicio='12/02/2007'

txtfechatermino='28 ó 29/02/2007'

Gracias Por su ayuda.
hasta pronto.

xfecha = ctod(txtfecha_inicio)
txtfechatermino = gomonth(date(year(xfecha),month(xfecha), 1), 1) - 1

Revisa esto

http://www.portalfox.com/index.php?name=News&file=article&sid=1162

}