elsimei

Gente, tudo bem?

Bom eu tenho que entregar isso hj e não to conseguindo resolver e preciso da ajuda de vocês.

tenho uma tarefa no qual a pessoa informa o salario bruto mensal e o Inss que ela paga e se desejar o mes especifico, tendo assim que dar os valores de:

Mensal Liquido

Anual bruto

Anual liquido

Valor da Diaria

O que eu ja tenho é os valores mensal e anual no qual a diaria para cada mes eu n estou conseguindo.

Segue à baixo o código usado até agora.

Citação

 

procedure TForm1.Button1Click(Sender: TObject);
var
  mes : array [1..12] of integer;
  Dia, mDia : Integer;
  VB, INSS, TLM, TBA, TLA, PI, PPI : Double;
  vDia : Real;
begin

   mes [1] := 31;
   mes [2] := 28;
   mes [3] := 31;
   mes [4] := 30;
   mes [5] := 31;
   mes [6] := 30;
   mes [7] := 30;
   mes [8] := 31;
   mes [9] := 30;
   mes [10]:= 31;
   mes [11]:= 30;
   mes [12]:= 31;

   VB   := StrToFloat (Edit1.Text);
   INSS := StrToFloat (Edit2.Text)/100;
   vDia := StrToFloat (Edit6.Text);
   Dia  := StrToInt (Edit7.text);

   PPI  := VB * INSS;
   TLM  := VB - PPI;
   TBA  := VB * 12;
   TLA  := TLM *12;
   Edit3.Text := (FloatToStr (TLM));
   Edit4.text := (FloatToStr (TBA));
   Edit5.text := (FloatToStr (TLA));

for Dia := 1 to 12 do
  begin
    for mDia := TLM / 1 to 12 do
      begin
        vDia := FloatToStr(mDia)
      end;
  end;

end;