Arquivo TXT

22/05/2003

0

Oi, tenho essa sequencia em um arquivo TXT

22050300000253 onde,
220503 = 22/05/03 e 00000253 é Matricula

Quando executo o EncodeDate 220503 ele armazena
22/05/0003 ou 22/05/1903

Queria que o ano ficasse 22/05/2003. Como?

Pelo amor de Deus. A droga do relogio de ponto tem o bug do milenio e nao armazena data com 4 digitos.

Se alguem souber me please help !!!


Wallacest

Wallacest

Responder

Posts

22/05/2003

Luza

Tente criar uma funcao que peque os digitos de data:

Creio que assim podera fazer:

function DMY(d: string): string;
begin
DMY:=Copy(d,1,2)+´/´+Copy(d,3,2)+´/20´+Copy(d,5,2);
end;


onde d: eh a string 220503

a funcao retornaria: ´22/05/2003´

e entao ficaria DecodeDate(DMY(d))

Espero ter ajudado


Responder

22/05/2003

Ildefonso

Olá, Wallace.

Neste seu caso, apenas some 2000 ao ano que você obteve, diretamente na chamada do EncodeDate...
[b:db38d94db5]
  ...
  vData := EncodeDate(vAno+2000, vMes, vDia);
  ...
[/b:db38d94db5]
Bom trabalho. 8)


Responder

22/05/2003

Rubensavelino

a funcao
Encodedate(year,moth,day : word): TDateTime;


voce chama

encodedate(2000+03,05,22);


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar