EDGAR MUY BUENO TU APORTE ME REQUETE SIRVIO MUCHAS GRACIAS AMIGO
On 7 jun, 20:41, Edgar Acevedo <
aperso...@gmail.com> wrote:
> Las fechas en VFP aceptan ciertas operaciones aritméticas. Pero para
> manipulararlas debes poner atención a lo siguiente:
>
> 1- Ajustar el comando SET STRICTDATE TO. Te acepta por parámetros desde
> 0 a 2. Yo en lo personal lo manejo como SET STRICTDATE TO 0
>
> 2- Debes escoger el formato que vas a manejar la fecha. Yo en lo personal
> lo manejo así: SET DATE BRITISH, para que se maneje como Día/Mes/Año
>
> 3- Debes elegir si manejaras el año en 2 o 4 dígitos. Yo prefiero
> manejarlo en 4 dígitos usando el comando SET CENTURY ON.
>
> 4- Ahora sí, ya puedes hacer "cosas" con las fechas. Utilizando lo arriba
> descrito podría darte los siguientes ejemplos de código:
>
> * Esto lo pones solamente al inicio de tu programa
> * SET STRICTDATE TO 0
> SET DATE BRITISH
> SET CENTURY ON
> ** Aquí ya "hacemos cosas" con las fechas...
> * ? DATE() + 30 * && Sumarle 30 días a la fecha de hoy.
> *? {05/05/2012} + 30 * && Sumarle 30 días a una fecha
> determinada.
> * ? DATE() - 60 * && Restarle 60 días a la fecha de hoy.
> * ? {05/05/2012} - 45 * && Restarle 45 días a una fecha
> determinada
> *? DATE() - {05/11/1966} * && A la fecha de hoy le resto la fecha de
> mi nacimiento y obtengo mis días de vida
> * M.DíaHoy = DATE() * && Asignar a la variable M.DíaHoy la fecha
> de hoy
> *? M.DiaHoy + 20* && Sumarle 20 días a la fecha de la
> variable M.DiaHoy
> *? M.DiaHoy - 30* && Restarle 30 días a la fecha de la
> variable M.DiaHoy
> *? DTOC(M.DiaHoy) * && Convierto la variable M.DiaHoy tipo
> fecha en un resultado tipo caracter
> *? DAY(M.DiaHoy)* && Extaer el día (numérico) de la variable
> M.DiaHoy (tipo fecha)
> *? MONTH(M.DiaHoy) * && Extraer el mes (numérico) de la variable
> M.DiaHoy (tipo fecha)
> * ? YEAR(M.DiaHoy) * && Extraer el año (numérico) de la variable
> M.DiaHoy (tipo fecha)
> *? CDOW(M.DiaHoy) * && Extraer el "nombre del día" (caracter) de
> la variable M.DiaHoy (tipo fecha)
>
> Salu2,
>
> Edgar
>