DecodeDate no delphi .net
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
Curtidas 0
Respostas
Knight_of_wine
17/08/2007
Result := Data.Year; Result := Data.Month; Result := Data.Day;
Mais simples impossível! :wink:
GOSTEI 0
M2_gibin
17/08/2007
realmente e simples mais o delphi contem tantas coisas que as vezes precisamos pedir ajuda para amigos como vcs obrigado novamente....
GOSTEI 0