[delphi-br] Função de Data

Fri, 11 May 2007 10:00:56 -0700 

Amigos,


Agradeço a todos pela ajuda e colaboração em me ajudar numa função em que traz 
a data do primeiro dia do mes e a data final do ultimo dia do mes.

Mas tive alguns problemas por tar usando o delphi 5 entao reuni aki as duas 
funções em que usei e compartilhar as mesmas :

function UltimoDiaMes(Mdt: TDateTime) : TDateTime;
var
  ano, mes, dia : word;
  mDtTemp : TDateTime;
begin
  Decodedate(mDt, ano, mes, dia);
  mDtTemp := (mDt - dia) + 33;
  Decodedate(mDtTemp, ano, mes, dia);
  Result := mDtTemp - dia;
end;

function PrimeiroDiaMes ( data : Tdate ) : Tdate;
var
dia , mes , ano : Word ;
begin
Decodedate ( data , ano , mes , dia );
Result := Encodedate ( ano , mes , 01 );
end;

Obrigado pela colaboração de todos.

Atenciosamente,


Rodrigo  Magno 

*      [EMAIL PROTECTED]
msn    [EMAIL PROTECTED]

__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

Responder a