La Web del Programador: Comunidad de Programadores
 
    Pregunta:  1272 - FUNCION FDATE DE CLIPPER
Autor:  Vladimir Alejandro Gutierrez Muñoz
Deseo saber sobre una funcion de clipper (FDATE), quiero saber en que libreria de clipper está y si esta función es compatible con el año 2000.
Espero una pronta respuesta de ustedes, y de antemano muchas gracias.

  Respuesta:  Cruz Alfredo Vásquez Ceja
Ejemplo de manejo de digitos en dias, mes y años entre fechas para calculos en el año 2000

fecha = date()

set date format to "dd/mm/yyyy"
set century on
set epoch to 1980 ´ si el año = 81, se 1981 y si es 79 sera 1979

dia1 = str(day(fecha),2)
mes1 = str(month(fecha),2)
alo1 = substr(str(year(fecha),4),3,2)
? alo1
fecha1 = ctod(dia1+"/"+mes1+"/"+alo1)
? fec,fecha1
? ctod(dtoc(fecha))

dia2 = str(day(fecha),2)
mes2 = str(month(fecha),2)
alo2 = substr(str(year(fecha),4),3,2)
? alo2

fecha2 = ctod(dia2+"/"+mes2+"/"+alo2)
? fec,fecha2
? ctod(dtoc(fecha))

? fecha2-fecha1

espero le sirva a alguien como ejemplo.

  Respuesta:  jofrano
la Verdad no conosco la funcion que mencionas, pero para hacer compatible el clipper con el Y2K

solo debes colocar la siguiente orden

SET CENTURY ON
SET EPOCH TO 1950 (EJEMPLO)

Espero te ayude.. o si no enviame un e-mail más explicito....