Delphi dicas

Data atual decrementade de um mês

{ Pessoal esta função retorna o Mês atula decrecido de um mês}





// Após type digite



Function Return_DATE(Sender : TObject):String;





// Após implementation digite



Function TForm1.Return_DATE(Sender : TObject):String;

var st: String;

begin

        st:= Copy(FormatDateTime('yyyy/mm/dd',now),6,2);

        if (st = '01') then begin

                result :='12'; // Retorno da Função

        end

        else begin

                st := '0'+ IntToStr(StrToInt(Copy(FormatDateTime('yyyy/mm/dd',now),6,2))-1);

                if Length(st) > 2 then begin // Caso mês ataul seja [10..12]

                        result :=  Copy(st,2,2);

                        exit;

                end;

                result := st;

        end;

end;





// Feito isso  vc pode char a função onde vc quizer



// EX:  Edit1.text := Return_Date(Sender);



{ Sua Edit recebera um mês do tipo,



se mês atual = 01  recebe 12

se mês atual = 02 recebe 01

se mês atual = 03 recebe 02

... e assim por diante

}





// Espero que possa ser útil.



// Abraços e até +++

por : Antônio Carlos Da Silva