Array
(
)

DecodeDate no delphi .net

M2_gibin
   - 17 ago 2007

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;


Knight_of_wine
   - 17 ago 2007

#Código

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


Mais simples impossível! :wink:


M2_gibin
   - 20 ago 2007

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