FoxPro/Visual FoxPro - Conocer el primer día del mes

Quisiera saber que procedimiento o funciones debo aplicar en Foxpro para que a traves de una fecha, como por ejemplo con el siguiente formato dd/mm/aaaa, como puede ser la fecha actual; conocer el
primer dia de ese mes, en el mismo formato dd/mm/aaaa. Si bien es claro que el primer dia del mes el 1 quisiera obtenerlo a traves de una diferencia de dias o aplicando algun proceso o funcion a partir de la fecha dada.
Espero haber sido claro, y si esta a tu alcance precisaria una respuesta lo antes posible.

Desde ya muchas gracias,
Juan Manuel Bernardi
Freyre - Cordoba - Argentina

Juan Manuel,

No tengo muy claro el planteamiento, sin embargo, la siguiente función retorna el primer dia del mes. Debes suministrarle la fecha como parámetro. Si lo que deseas es el dia de la semana(Lunes, Martes, Miércoles,...) consulta la función DOW().

Function PrimerDiaMes(tdFecha)

* USO: PrimerDiaMes(DATE())
LOCAL ld
ld = GOMONTH(dFecha,1)
RETURN ld - day(ld) + 1

ENDFUNC

Espero sea de utilidad.

Un cordial saludo desde El Tigre, Venezuela...

? primerdia( date())

Procedure PrimerDia
Parameter dFecha
Return( CTod( "01"+SubStr( DToc( Date()),3 )))

BUsca en portalfox.com alli se encuentraras esta y otras mas funciones.

cordial saludo.

barahona

BUsca en portalfox.com alli se encuentraras esta y otras mas funciones.
<br>
<br>cordial saludo.
<br>
<br>barahona