Cómo convertir columnas en orden horario exportadas desde Access usando Visual FoxPro
Hola, como te dije anteriormente, si tenia una duda iba a acudir a ti, espero puedas ayudarme, otra vez tengo un problema. No puedo convertir mis columnas de hora. Las exporté desde Access y venían en formato de texto, pero no puedo convertirlas en formato de hora, espero puedas ayudarme porque estoy haciendo una consulta donde tengo que sumar el total de horas, también tengo que sacer la diferencia de la hora de entrada y la hora de salida.
Ojala entiendas lo que te pregunto
Espero puedas ayudarme, la verdad me urge.
Gracias de antemano.
Ojala entiendas lo que te pregunto
Espero puedas ayudarme, la verdad me urge.
Gracias de antemano.
1 Respuesta
Respuesta de César Pech
1
Veririca esto
Funciones DATE() y DATETIME()
La función DATE() nos retorna la fecha actual del sistema si se ejecuta sin argumentos. Para evitar complicaciones con fechas ambiguas es conveniente que siempre utilicemos la función DATE(nAnio, nMes, nDia) con sus argumentos para crear expresiones de tipo Date.
dFecha = DATE() && Fecha actual del sistemadFecha = DATE(2000,03,01) && 1 de Marzo de 2000
La diferencia entre dos expresiones de tipo Date nos retorna el número de días transcurridos entre ambas fechas.
? DATE(2004,12,31) - DATE(2004,1,1)
Si se suman o restan cantidades numéricas de días a una expresión de tipo Date, el resultado es otra expresión de tipo Date.
? DATE() + 7 && La fecha actual mas 7 días? DATE() - 15 && La fecha actual menos 15 días
La función DATETIME() nos retorna la fecha y hora actual del sistema si se ejecuta sin argumentos. Al igual que la función DATE() y para evitar complicaciones con fechas ambiguas es conveniente que siempre utilicemos la función DATETIME(nAnio, nMes, nDia, nHoras, nMinutos, nSegundo) con todos sus argumentos para crear expresiones de tipo DateTime.
tFHora = DATETIME() && Fecha y hora actual del sistematFHora = DATETIME(2000,03,01,16,15,30) && 1 de Marzo de 2000, 16:15:30 horas
La diferencia entre dos expresiones de tipo DateTime nos retorna el número de segundos transcurridos entre ambas fechas y horas.
? DATETIME(2004,12,31,23,59,59) - DATETIME(2004,12,31,6,0,0)
NOTA: Debido a un bug con el redondeo en las fracciones de segundos en variables del tipo DateTime es conveniente redondear las diferencias de estas variables con ROUND(lnSeg, 0)
? ROUND(DATETIME(2004,12,31,23,59,59) - DATETIME(2004,12,31,6,0,0), 0)
Si se suman o restan cantidades de segundos a una expresión de tipo DateTime, el resultado es una expresión de tipo DateTime.
? DATETIME() + 60 && Fecha y hora actual mas 60 segundos? DATETIME() - 3600 && Fecha y hora actual menos 3600 segundos
Si deseamos generar expresiones Date y DateTime "vacías" lo hacemos de la siguiente manera:
dFecha = {} && Expresion Date vaciadFecha = {//} && Expresion Date vaciatFHora = {/:} && Expresión DateTime vaciatFHora = {//::} && Expresión DateTime vacia
En estos últimos ejemplos, se debe tener en cuenta que la mayoría de los servidores de bases de datos no trabaja con el concepto de fechas "vacías" como lo hace Visual FoxPro. En estos casos se debe utilizar fechas nulas debido a que se tendrán fechas incoherentes y/o no esperadas.
dFecha = .null.tFHora = .null.
Funciones con expresiones Date y DateTime
Se pueden convertir expresiones de tipo Date a DateTime y viceversa con las funciones DTOT() y TTOD() respectivamente. En el caso de la función DTOT() (al igual que si omitimos los argumentos de horas en la función DATETIME(nAnio, nMes, nDia)) la hora se sustituye por 00:00:00 (12:00:00AM).
dFecha = DATE(2004,06,03)tFHora = DATETIME(2004,05,18,11,30,45)? DTOT(dFecha)? TTOD(tFHora)
Las siguientes funciones de Visual FoxPro sirven para poder extraer algunos valores de las expresiones Date y DateTime, como el año, el mes, el día, la semana, etc.
dFecha = DATE(2004,06,03)tFHora = DATETIME(2004,05,18,11,30,45)? YEAR(dFecha) && Año de una expresión Date o DateTime? MONTH(tFHora) && Mes de una expresión Date o DateTime? DAY(dFecha) && Día de una expresión Date o DateTime? HOUR(tFHora) && Horas de una expresión DateTime? MINUTE(tFHora) && Minutos de una expresión DateTime? SEC(tFHora) && Segundos de una expresión DateTime? DOW(dFecha) && Número del día de la semana de una expresión Date o DateTime? WEEK(dFecha) && Número de semana del año de una expresión Date o DateTime? QUARTER(tFHora) && Trimestre del año de una expresión Date o DateTime
Todas las funciones anteriores retornan valores numéricos.
Otras funciones de Visual FoxPro retornan cadenas de caracteres a partir de expresiones Date o DateTime, como por ejemplo:
dFecha = DATE(2004,06,03)tFHora = DATETIME(2004,05,18,11,30,45)? CMONTH(dFecha) && Nombre del mes de una expresión Date o DateTime? CDOW(tFHora) && Nombre del día de la semana de una expresión Date o DateTime? DMY(tFHora) && Cadena con el formato día-mes-año de una expresión Date o DateTime? MDY(tFHora) && Cadena con el formato mes-día-año de una expresión Date o DateTime? TTOC(tFHora) && Convierte una expresión DateTime a caracter ? DTOC(dFecha) && Convierte una expresión Date a caracter
Para retornar una cadena de caracteres solo con la hora de una variable DateTime se utiliza la función TTOC() con el segundo parámetro igual a 2.
? TTOC(DATETIME(), 2)
En Visual FoxPro se puede retornar una fecha con "n" meses anteriores o posteriores de una expresión Date o DateTime con la función GOMONTH().
? GOMONTH(DATE(), ¿3) && Tres meses después a partir de la fecha actual? GOMONTH(DATETIME(),-12) && Doce meses anteriores a partir de la fecha y hora actual
Otras funciones con argumentos de expresiones Date y DateTime
Existen otras funciones en Visual FoxPro que reciben como argumento expresiones de tipo Date y DateTime, y retornan valores lógicos, Date o DateTime.
dFecha0 = {}dFecha1 = DATE(2004,1,1)dFecha2 = DATE(2004,12,31)dFecha3 = .null.*-- Retorna .T. si una fecha es "vacia"? EMPTY(dFecha0)*-- Retorna .T. si una fecha es "nula"? ISNULL(dFecha3)*-- Retorna .T. si la 1° expresión está dentro de los valores 2° y 3°? BETWEEN(DATE(),dFecha1,Dfecha2)*-- Retorna .T. si la expresión 1° coincide con alguna de la lista? INLIST(DATE(2004,1,1),dFecha0,dFecha1,dFecha2,dFecha3)*-- Retorna la expresión Date o DateTime con valor mínimo? MIN(dFecha1,dFecha2)*-- Retorna la expresión Date o DateTime con valor máximo? MAX(dFecha0,dFecha1,dFecha2)
Más funciones de tiempo
Visual FoxPro posee las siguientes funciones referidas a tiempo:
TIME() retorna la hora actual del sistema en formato de 24 horas en una cadena de 8 caracteres con el formato "HH:MM:SS". Al retornar una cadena de caracteres no se pueden realizar operaciones aritméticas con estos valores.
? TIME() && Hora actual del sistema
SECONDS() retorna el número de segundos pasados desde la medianoche. Se puede utilizar para medir intervalos cortos de tiempo en un proceso. Recordar que este valor vuelve a 0 (cero) a partir de la medianoche.
nSegundos = SECONDS()FOR nI = 1 TO 3 INKEY(1)ENDFOR? SECONDS() - nSegundos, "segundos transcurridos"
SYS(1) retorna una cadena de caracteres con el número de día Juliano de la fecha actual del sistema.
SYS(10, nDiaJuliano) retorna una cadena de caracteres con la fecha correspondiente al día Juliano pasado como parámetro.
SYS(11, dFecha) retorna una cadena de caracteres con el número de día Juliano de la fecha pasada como parámetro.
? ¿SYS(1)? SYS(10,VAL(SYS(1)))? SYS(11, DATE(2005,1,1))
Los valores válidos en Visual FoxPro para los días días del calendario Juliano están comprendidos entre el 14 de Setiembre de 1752 y el 31 de Diciembre de 9999.
Funciones definidas por el usuario
A continuación describiremos diversas funciones definidas por el usuario (UDF) que utilizan las funciones nativas de Visual FoxPro descriptas al comienzo de este artículo, que nos permiten trabajar con expresiones Date y DateTime. Esta funciones están publicadas en PortalFox y algunas fueron ligeramente modificadaspara este este artículo.
Último día del mes: Esta función retorna la fecha del último día del mes de una expresión Date o DateTime pasada como parámetro.
? EoM(DATE())FUNCTION EoM(tdFecha) LOCAL ld ld = GOMONTH(tdFecha, 1) RETURN ld - DAY(ld)ENDFUNC
Primer día del mes: Esta función retorna la fecha del primer día del mes de una expresión Date o DateTime pasada como parámetro.
? BoM(DATE())FUNCTION BoM(tdFecha) RETURN DATE(YEAR(tdFecha), MONTH(tdFecha), 1)ENDFUNC
Cantidad de días de un mes: Esta función retorna la cantidad de días que tiene el mes de una expresión Date o DateTime pasada como parámetro.
? DiasDelMes(DATE(2004,2,1))FUNCTION DiasDelMes(tdFecha) LOCAL ld ld = GOMONTH(tdFecha, 1) RETURN DAY(ld - DAY(ld))ENDFUNC
Edad de una persona: Calcula la edad de una persona pasando como parámetros la fecha de nacimiento y la fecha a la cual calculamos la edad. Si no se pasa el segundo parámetro se toma por defecto la fecha actual.
? Edad(DATE(2000,3,1))FUNCTION Edad(tdNac, tdHoy) LOCAL lnAnios IF EMPTY(tdHoy) tdHoy = DATE() ENDIF lnAnios = YEAR(tdHoy) - YEAR(tdNac) IF GOMONTH(tdNac, 12 * lnAnios) > tdHoy lnAnios = lnAnios - 1 ENDIF RETURN lnAniosENDFUNC
Diferencia entre dos fechas en años, meses y días: Calcula la cantidad de años, meses y días entre dos expresiones de tipo Date pasadas como parámetros. (Esta función utiliza la UDF DiasDelMes()).
? Diferencia_AMD(DATE(2000,3,1), DATE())FUNCTION Diferencia_AMD(tdIni, tdFin) LOCAL ldAux, lnAnio, lnMes, lnDia, lcRet *--- Fecha inicial siempre menor IF tdIni > tdFin ldAux = tdIni tdIni = tdFin tdFin = ldAux ENDIF lnAnio = YEAR(tdFin) - YEAR(tdIni) ldAux = GOMONTH(tdIni, 12 * lnAnio) *--- No cumplio el año aun IF ldAux > tdFin lnAnio = lnAnio - 1 ENDIF lnMes = MONTH(tdFin) - MONTH(tdIni) IF lnMes < 0 lnMes = lnMes + 12 ENDIF lnDia = DAY(tdFin) - DAY(tdIni) IF lnDia < 0 lnDia = lnDia + DiasDelMes(tdIni) ENDIF *--- Si el dia es mayor, no cumplio el mes IF (DAY(tdFin) < DAY(tdIni)) IF lnMes = 0 lnMes = 11 ELSE lnMes = lnMes - 1 ENDIF ENDIF lcRet = ALLTRIM(STR(lnAnio))+ " años, " + ; ALLTRIM(STR(lnMes))+ " meses y " + ; ALLTRIM(STR(lnDia))+ " días" RETURN lcRetENDFUNC
Diferencias entre dos variables DateTime: Calcula la cantidad de días, horas, minutos y segundos entre dos expresiones DateTime pasadas como parámetros.
? Diferencia_DHMS(DATETIME(2000,3,1,12,10,05),DATETIME())FUNCTION Diferencia_DHMS(ttIni,ttFin) LOCAL ln, lnDia, lnHor, lnMin, lnSeg IF EMPTY(ttFin) ttFin = DATETIME() ENDIF ln = ttFin - ttIni lnSeg = MOD(ln,60) ln = INT(ln/60) lnMin = MOD(ln,60) ln = INT(ln/60) lnHor = MOD(ln,24) lnDia = INT(ln/24) RETURN ALLTRIM(STR(lnDia))+ " días, "+ ; TRANSFORM(lnHor, "@L 99")+ " horas, "+ ; TRANSFORM(lnMin, "@L 99")+ " minutos, "+ ; TRANSFORM(lnSeg, "@L 99")+ " segundos"ENDFUNC
Segundos a hora: Transforma una cantidad de segundos pasados como parámetro al formato hora "HH:MM:SS". Con esta función podemos transformar la cantidad de segundos devueltos de una diferencia de dos expresiones DateTime.
lnSeg = DATETIME() - DATETIME(2004,3,1,12,10,05)? Seg2Hor(lnSeg)FUNCTION Seg2Hor(tnSegundos) LOCAL lnHoras, lnMinutos, lnSegundos lnHoras = INT(tnSegundos/3600) lnMinutos = INT(((tnSegundos-(lnHoras*3600))/60)) lnSegundos = MOD(tnSegundos,60) RETURN IIF(lnHoras < 100,TRANSFORM(lnHoras,"@L 99"),ALLTRIM(STR(lnHoras))) + ; ":" + TRANSFORM(lnMinutos,"@L 99") + ; ":" + TRANSFORM(lnSegundos,"@L 99")ENDFUNC
Validar una fecha: Retorna verdadero si la fecha (año, mes, día) pasada como parámetro es válida.
? EsFechaValida(2004,2,30)FUNCTION EsFechaValida(tnAnio, tnMes, tnDia) RETURN BETWEEN(tnAnio, 1000,9999) AND ; BETWEEN(tnMes, 1,12) AND ; BETWEEN(tnDia, 1,31) AND ; NOT EMPTY(DATE(tnAnio, tnMes, tnDia))ENDFUNC
Saber si un año es bisiesto: Retorna verdadero si el año pasado como parámetro es bisiesto.
? EsBisiesto(2004)FUNCTION EsBisiesto(tnAnio) RETURN NOT EMPTY(DATE(tnAnio, 2,29))ENDFUNC
Calcular una fecha festiva: Retorna una fecha festiva como por ejemplo el "Día de la Madre" que en algunos países se celebra el "Tercer Domingo de Octubre". Los parámetros que recibe la esta función son los siguientes:
TnOrdinal: El ordinal que se desea saber (1°, 2°, 3°, ...)
tnDiaSem: El día de la semana (1=Dom, 2=Lun, ..., 7=Sáb)
tnMes: El número del mes (1=Ene, 2=Feb, ..., 12=Dic)
tnAnio: El año
*-- Tercer Domingo de Octubre de 2004? FechaFestiva(3,7,10,2004)FUNCTION FechaFestiva(tnOrdinal,tnDiaSem,tnMes,tnAnio) RETURN DATE(tnAnio,tnMes,1) + tnOrdinal * 7 - ; DOW(DATE(tnAnio,tnMes,1) + tnOrdinal * 7 -1,tnDiaSem)ENDFUNC
Fecha en español: Retorna una cadena con la fecha en español en formato "Sábado 01 de Enero de 2005"
? cFecha(DATE(2005,1,1))FUNCTION cFecha(tdFecha) LOCAL aDias(7), aMeses(12) aDias[1]="Domingo " aDias[2]="Lunes " aDias[3]="Martes " aDias[4]="Miércoles " aDias[5]="Jueves " aDias[6]="Viernes " aDias[7]="Sábado " aMeses[1]="Enero" aMeses[2]="Febrero" aMeses[3]="Marzo" aMeses[4]="Abril" aMeses[5]="Mayo" aMeses[6]="Junio" aMeses[7]="Julio" aMeses[8]="Agosto" aMeses[9]="Setiembre" aMeses[10]="Octubre" aMeses[11]="Noviembre" aMeses[12]="Diciembre" RETURN aDias(DOW(tdFecha,1)) + ; TRANSFORM(DAY(tdFecha),"@L 99") + ; " de " + aMeses(MONTH(tdFecha)) + ; " de " + TRANSFORM(YEAR(tdFecha),"@L 9999")ENDFUNC
Configuraciones
Se debe recordar que muchas de las funciones de fecha y hora están afectadas por las configuraciones de Windows y Visual FoxPro.Se recomienda la lectura en la ayuda de la sintaxis y alcance de los siguientes comandos: SET DATE, SET CENTURY, SET HOURS, SET SECONDS, SET SYSFORMAT, SET FDOW, SET FWEEK, SET STRICTDATE y SET MARK.
Funciones DATE() y DATETIME()
La función DATE() nos retorna la fecha actual del sistema si se ejecuta sin argumentos. Para evitar complicaciones con fechas ambiguas es conveniente que siempre utilicemos la función DATE(nAnio, nMes, nDia) con sus argumentos para crear expresiones de tipo Date.
dFecha = DATE() && Fecha actual del sistemadFecha = DATE(2000,03,01) && 1 de Marzo de 2000
La diferencia entre dos expresiones de tipo Date nos retorna el número de días transcurridos entre ambas fechas.
? DATE(2004,12,31) - DATE(2004,1,1)
Si se suman o restan cantidades numéricas de días a una expresión de tipo Date, el resultado es otra expresión de tipo Date.
? DATE() + 7 && La fecha actual mas 7 días? DATE() - 15 && La fecha actual menos 15 días
La función DATETIME() nos retorna la fecha y hora actual del sistema si se ejecuta sin argumentos. Al igual que la función DATE() y para evitar complicaciones con fechas ambiguas es conveniente que siempre utilicemos la función DATETIME(nAnio, nMes, nDia, nHoras, nMinutos, nSegundo) con todos sus argumentos para crear expresiones de tipo DateTime.
tFHora = DATETIME() && Fecha y hora actual del sistematFHora = DATETIME(2000,03,01,16,15,30) && 1 de Marzo de 2000, 16:15:30 horas
La diferencia entre dos expresiones de tipo DateTime nos retorna el número de segundos transcurridos entre ambas fechas y horas.
? DATETIME(2004,12,31,23,59,59) - DATETIME(2004,12,31,6,0,0)
NOTA: Debido a un bug con el redondeo en las fracciones de segundos en variables del tipo DateTime es conveniente redondear las diferencias de estas variables con ROUND(lnSeg, 0)
? ROUND(DATETIME(2004,12,31,23,59,59) - DATETIME(2004,12,31,6,0,0), 0)
Si se suman o restan cantidades de segundos a una expresión de tipo DateTime, el resultado es una expresión de tipo DateTime.
? DATETIME() + 60 && Fecha y hora actual mas 60 segundos? DATETIME() - 3600 && Fecha y hora actual menos 3600 segundos
Si deseamos generar expresiones Date y DateTime "vacías" lo hacemos de la siguiente manera:
dFecha = {} && Expresion Date vaciadFecha = {//} && Expresion Date vaciatFHora = {/:} && Expresión DateTime vaciatFHora = {//::} && Expresión DateTime vacia
En estos últimos ejemplos, se debe tener en cuenta que la mayoría de los servidores de bases de datos no trabaja con el concepto de fechas "vacías" como lo hace Visual FoxPro. En estos casos se debe utilizar fechas nulas debido a que se tendrán fechas incoherentes y/o no esperadas.
dFecha = .null.tFHora = .null.
Funciones con expresiones Date y DateTime
Se pueden convertir expresiones de tipo Date a DateTime y viceversa con las funciones DTOT() y TTOD() respectivamente. En el caso de la función DTOT() (al igual que si omitimos los argumentos de horas en la función DATETIME(nAnio, nMes, nDia)) la hora se sustituye por 00:00:00 (12:00:00AM).
dFecha = DATE(2004,06,03)tFHora = DATETIME(2004,05,18,11,30,45)? DTOT(dFecha)? TTOD(tFHora)
Las siguientes funciones de Visual FoxPro sirven para poder extraer algunos valores de las expresiones Date y DateTime, como el año, el mes, el día, la semana, etc.
dFecha = DATE(2004,06,03)tFHora = DATETIME(2004,05,18,11,30,45)? YEAR(dFecha) && Año de una expresión Date o DateTime? MONTH(tFHora) && Mes de una expresión Date o DateTime? DAY(dFecha) && Día de una expresión Date o DateTime? HOUR(tFHora) && Horas de una expresión DateTime? MINUTE(tFHora) && Minutos de una expresión DateTime? SEC(tFHora) && Segundos de una expresión DateTime? DOW(dFecha) && Número del día de la semana de una expresión Date o DateTime? WEEK(dFecha) && Número de semana del año de una expresión Date o DateTime? QUARTER(tFHora) && Trimestre del año de una expresión Date o DateTime
Todas las funciones anteriores retornan valores numéricos.
Otras funciones de Visual FoxPro retornan cadenas de caracteres a partir de expresiones Date o DateTime, como por ejemplo:
dFecha = DATE(2004,06,03)tFHora = DATETIME(2004,05,18,11,30,45)? CMONTH(dFecha) && Nombre del mes de una expresión Date o DateTime? CDOW(tFHora) && Nombre del día de la semana de una expresión Date o DateTime? DMY(tFHora) && Cadena con el formato día-mes-año de una expresión Date o DateTime? MDY(tFHora) && Cadena con el formato mes-día-año de una expresión Date o DateTime? TTOC(tFHora) && Convierte una expresión DateTime a caracter ? DTOC(dFecha) && Convierte una expresión Date a caracter
Para retornar una cadena de caracteres solo con la hora de una variable DateTime se utiliza la función TTOC() con el segundo parámetro igual a 2.
? TTOC(DATETIME(), 2)
En Visual FoxPro se puede retornar una fecha con "n" meses anteriores o posteriores de una expresión Date o DateTime con la función GOMONTH().
? GOMONTH(DATE(), ¿3) && Tres meses después a partir de la fecha actual? GOMONTH(DATETIME(),-12) && Doce meses anteriores a partir de la fecha y hora actual
Otras funciones con argumentos de expresiones Date y DateTime
Existen otras funciones en Visual FoxPro que reciben como argumento expresiones de tipo Date y DateTime, y retornan valores lógicos, Date o DateTime.
dFecha0 = {}dFecha1 = DATE(2004,1,1)dFecha2 = DATE(2004,12,31)dFecha3 = .null.*-- Retorna .T. si una fecha es "vacia"? EMPTY(dFecha0)*-- Retorna .T. si una fecha es "nula"? ISNULL(dFecha3)*-- Retorna .T. si la 1° expresión está dentro de los valores 2° y 3°? BETWEEN(DATE(),dFecha1,Dfecha2)*-- Retorna .T. si la expresión 1° coincide con alguna de la lista? INLIST(DATE(2004,1,1),dFecha0,dFecha1,dFecha2,dFecha3)*-- Retorna la expresión Date o DateTime con valor mínimo? MIN(dFecha1,dFecha2)*-- Retorna la expresión Date o DateTime con valor máximo? MAX(dFecha0,dFecha1,dFecha2)
Más funciones de tiempo
Visual FoxPro posee las siguientes funciones referidas a tiempo:
TIME() retorna la hora actual del sistema en formato de 24 horas en una cadena de 8 caracteres con el formato "HH:MM:SS". Al retornar una cadena de caracteres no se pueden realizar operaciones aritméticas con estos valores.
? TIME() && Hora actual del sistema
SECONDS() retorna el número de segundos pasados desde la medianoche. Se puede utilizar para medir intervalos cortos de tiempo en un proceso. Recordar que este valor vuelve a 0 (cero) a partir de la medianoche.
nSegundos = SECONDS()FOR nI = 1 TO 3 INKEY(1)ENDFOR? SECONDS() - nSegundos, "segundos transcurridos"
SYS(1) retorna una cadena de caracteres con el número de día Juliano de la fecha actual del sistema.
SYS(10, nDiaJuliano) retorna una cadena de caracteres con la fecha correspondiente al día Juliano pasado como parámetro.
SYS(11, dFecha) retorna una cadena de caracteres con el número de día Juliano de la fecha pasada como parámetro.
? ¿SYS(1)? SYS(10,VAL(SYS(1)))? SYS(11, DATE(2005,1,1))
Los valores válidos en Visual FoxPro para los días días del calendario Juliano están comprendidos entre el 14 de Setiembre de 1752 y el 31 de Diciembre de 9999.
Funciones definidas por el usuario
A continuación describiremos diversas funciones definidas por el usuario (UDF) que utilizan las funciones nativas de Visual FoxPro descriptas al comienzo de este artículo, que nos permiten trabajar con expresiones Date y DateTime. Esta funciones están publicadas en PortalFox y algunas fueron ligeramente modificadaspara este este artículo.
Último día del mes: Esta función retorna la fecha del último día del mes de una expresión Date o DateTime pasada como parámetro.
? EoM(DATE())FUNCTION EoM(tdFecha) LOCAL ld ld = GOMONTH(tdFecha, 1) RETURN ld - DAY(ld)ENDFUNC
Primer día del mes: Esta función retorna la fecha del primer día del mes de una expresión Date o DateTime pasada como parámetro.
? BoM(DATE())FUNCTION BoM(tdFecha) RETURN DATE(YEAR(tdFecha), MONTH(tdFecha), 1)ENDFUNC
Cantidad de días de un mes: Esta función retorna la cantidad de días que tiene el mes de una expresión Date o DateTime pasada como parámetro.
? DiasDelMes(DATE(2004,2,1))FUNCTION DiasDelMes(tdFecha) LOCAL ld ld = GOMONTH(tdFecha, 1) RETURN DAY(ld - DAY(ld))ENDFUNC
Edad de una persona: Calcula la edad de una persona pasando como parámetros la fecha de nacimiento y la fecha a la cual calculamos la edad. Si no se pasa el segundo parámetro se toma por defecto la fecha actual.
? Edad(DATE(2000,3,1))FUNCTION Edad(tdNac, tdHoy) LOCAL lnAnios IF EMPTY(tdHoy) tdHoy = DATE() ENDIF lnAnios = YEAR(tdHoy) - YEAR(tdNac) IF GOMONTH(tdNac, 12 * lnAnios) > tdHoy lnAnios = lnAnios - 1 ENDIF RETURN lnAniosENDFUNC
Diferencia entre dos fechas en años, meses y días: Calcula la cantidad de años, meses y días entre dos expresiones de tipo Date pasadas como parámetros. (Esta función utiliza la UDF DiasDelMes()).
? Diferencia_AMD(DATE(2000,3,1), DATE())FUNCTION Diferencia_AMD(tdIni, tdFin) LOCAL ldAux, lnAnio, lnMes, lnDia, lcRet *--- Fecha inicial siempre menor IF tdIni > tdFin ldAux = tdIni tdIni = tdFin tdFin = ldAux ENDIF lnAnio = YEAR(tdFin) - YEAR(tdIni) ldAux = GOMONTH(tdIni, 12 * lnAnio) *--- No cumplio el año aun IF ldAux > tdFin lnAnio = lnAnio - 1 ENDIF lnMes = MONTH(tdFin) - MONTH(tdIni) IF lnMes < 0 lnMes = lnMes + 12 ENDIF lnDia = DAY(tdFin) - DAY(tdIni) IF lnDia < 0 lnDia = lnDia + DiasDelMes(tdIni) ENDIF *--- Si el dia es mayor, no cumplio el mes IF (DAY(tdFin) < DAY(tdIni)) IF lnMes = 0 lnMes = 11 ELSE lnMes = lnMes - 1 ENDIF ENDIF lcRet = ALLTRIM(STR(lnAnio))+ " años, " + ; ALLTRIM(STR(lnMes))+ " meses y " + ; ALLTRIM(STR(lnDia))+ " días" RETURN lcRetENDFUNC
Diferencias entre dos variables DateTime: Calcula la cantidad de días, horas, minutos y segundos entre dos expresiones DateTime pasadas como parámetros.
? Diferencia_DHMS(DATETIME(2000,3,1,12,10,05),DATETIME())FUNCTION Diferencia_DHMS(ttIni,ttFin) LOCAL ln, lnDia, lnHor, lnMin, lnSeg IF EMPTY(ttFin) ttFin = DATETIME() ENDIF ln = ttFin - ttIni lnSeg = MOD(ln,60) ln = INT(ln/60) lnMin = MOD(ln,60) ln = INT(ln/60) lnHor = MOD(ln,24) lnDia = INT(ln/24) RETURN ALLTRIM(STR(lnDia))+ " días, "+ ; TRANSFORM(lnHor, "@L 99")+ " horas, "+ ; TRANSFORM(lnMin, "@L 99")+ " minutos, "+ ; TRANSFORM(lnSeg, "@L 99")+ " segundos"ENDFUNC
Segundos a hora: Transforma una cantidad de segundos pasados como parámetro al formato hora "HH:MM:SS". Con esta función podemos transformar la cantidad de segundos devueltos de una diferencia de dos expresiones DateTime.
lnSeg = DATETIME() - DATETIME(2004,3,1,12,10,05)? Seg2Hor(lnSeg)FUNCTION Seg2Hor(tnSegundos) LOCAL lnHoras, lnMinutos, lnSegundos lnHoras = INT(tnSegundos/3600) lnMinutos = INT(((tnSegundos-(lnHoras*3600))/60)) lnSegundos = MOD(tnSegundos,60) RETURN IIF(lnHoras < 100,TRANSFORM(lnHoras,"@L 99"),ALLTRIM(STR(lnHoras))) + ; ":" + TRANSFORM(lnMinutos,"@L 99") + ; ":" + TRANSFORM(lnSegundos,"@L 99")ENDFUNC
Validar una fecha: Retorna verdadero si la fecha (año, mes, día) pasada como parámetro es válida.
? EsFechaValida(2004,2,30)FUNCTION EsFechaValida(tnAnio, tnMes, tnDia) RETURN BETWEEN(tnAnio, 1000,9999) AND ; BETWEEN(tnMes, 1,12) AND ; BETWEEN(tnDia, 1,31) AND ; NOT EMPTY(DATE(tnAnio, tnMes, tnDia))ENDFUNC
Saber si un año es bisiesto: Retorna verdadero si el año pasado como parámetro es bisiesto.
? EsBisiesto(2004)FUNCTION EsBisiesto(tnAnio) RETURN NOT EMPTY(DATE(tnAnio, 2,29))ENDFUNC
Calcular una fecha festiva: Retorna una fecha festiva como por ejemplo el "Día de la Madre" que en algunos países se celebra el "Tercer Domingo de Octubre". Los parámetros que recibe la esta función son los siguientes:
TnOrdinal: El ordinal que se desea saber (1°, 2°, 3°, ...)
tnDiaSem: El día de la semana (1=Dom, 2=Lun, ..., 7=Sáb)
tnMes: El número del mes (1=Ene, 2=Feb, ..., 12=Dic)
tnAnio: El año
*-- Tercer Domingo de Octubre de 2004? FechaFestiva(3,7,10,2004)FUNCTION FechaFestiva(tnOrdinal,tnDiaSem,tnMes,tnAnio) RETURN DATE(tnAnio,tnMes,1) + tnOrdinal * 7 - ; DOW(DATE(tnAnio,tnMes,1) + tnOrdinal * 7 -1,tnDiaSem)ENDFUNC
Fecha en español: Retorna una cadena con la fecha en español en formato "Sábado 01 de Enero de 2005"
? cFecha(DATE(2005,1,1))FUNCTION cFecha(tdFecha) LOCAL aDias(7), aMeses(12) aDias[1]="Domingo " aDias[2]="Lunes " aDias[3]="Martes " aDias[4]="Miércoles " aDias[5]="Jueves " aDias[6]="Viernes " aDias[7]="Sábado " aMeses[1]="Enero" aMeses[2]="Febrero" aMeses[3]="Marzo" aMeses[4]="Abril" aMeses[5]="Mayo" aMeses[6]="Junio" aMeses[7]="Julio" aMeses[8]="Agosto" aMeses[9]="Setiembre" aMeses[10]="Octubre" aMeses[11]="Noviembre" aMeses[12]="Diciembre" RETURN aDias(DOW(tdFecha,1)) + ; TRANSFORM(DAY(tdFecha),"@L 99") + ; " de " + aMeses(MONTH(tdFecha)) + ; " de " + TRANSFORM(YEAR(tdFecha),"@L 9999")ENDFUNC
Configuraciones
Se debe recordar que muchas de las funciones de fecha y hora están afectadas por las configuraciones de Windows y Visual FoxPro.Se recomienda la lectura en la ayuda de la sintaxis y alcance de los siguientes comandos: SET DATE, SET CENTURY, SET HOURS, SET SECONDS, SET SYSFORMAT, SET FDOW, SET FWEEK, SET STRICTDATE y SET MARK.
