Clipper e o Ano 2.000

Os arquivos de dados DBF na verdade já guardam o ano das datas com 4 dígitos. É preciso somente ativar a apresentação desse dígitos. Para isso coloque em seu sistema o comando:

set century on

Pronto, o sistema já apresentará nos comandos SAY e GET o ano com 4 dígitos, porém se o usuário digitar 01/01/00, o sistema entenderá como 01/01/1900, para evitar que isso aconteça vamos utilizar o comando:

set epoch to 1910

O ano, 1910, é só um exemplo, você pode alterar.
Com esse comando se o usuário digitar anos com 2 dígitos abaixo de 10 o sistema assumirá como igual ou maior que 2000.

Exemplo sem o SET EPOCH:

set date format to "dd/mm/yyyy"
? ctod( "28/09/75" )    // Resulta: 28/09/1975
? ctod( "10/04/00" )    // Resulta: 10/04/1900
? ctod( "17/05/02" )    // Resulta: 17/05/1902


Exemplo com o SET EPOCH:

set date format to "dd/mm/yyyy"
set epoch to 1910
? ctod( "28/09/75" )    // Resulta: 28/09/1975
? ctod( "10/04/00" )    // Resulta: 10/04/2000
? ctod( "17/05/02" )    // Resulta: 17/05/2002

---

voltar