DecodeDate no delphi .net

17/08/2007

0

como utilizo essa funcao no delphi.net



// Retorna o Dia de uma data
Function Dia(vData:TDate):Integer;
Begin
DecodeDate(vData,Year,Month,Day);
Result:=Day;
end;

// Retorna o Mes de uma data
Function Mes(vData:TDate):Integer;
Var
wDia, wMes, wAno : Word;
Begin
DecodeDate(vData,Year,Month,Day);
Result:=Month;
end;

// Retorna o Ano de uma data
Function Ano(vData:TDate):Integer;
Begin
DecodeDate(vData,Year,Month,Day);
Result:=Year;
end;


M2_gibin

M2_gibin

Responder

Posts

17/08/2007

Knight_of_wine

Result := Data.Year;
         Result := Data.Month;
         Result := Data.Day;


Mais simples impossível! :wink:


Responder

20/08/2007

M2_gibin

realmente e simples mais o delphi contem tantas coisas que as vezes precisamos pedir ajuda para amigos como vcs obrigado novamente....


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