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;
// 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
Curtir tópico
+ 0
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
Clique aqui para fazer login e interagir na Comunidade :)