Jump to content
Fórum Script Brasil
  • 0

[resolvido] Datas E Horas


Jaimecf1
 Share

Question

:blink:

Amigos!

Alguém poderia me ajudar?

Sou novo em programação e gostaria de saber se alguém poderia me ajudar na solução do seguinte problema:

Estou fazendo um sistema para gerenciamento de máquinas (tratores) que trabalham por hora e eu preciso fazer com que seja achado o valor do serviço. (horas trabalhadas x valor da hora = Valor do Serviço / 100h x 30,00 = 3.000,00)

Poderá ocorrer em algum momento o seguinte resultado: 100h e 30min x valor da hora = valor do Serviço.

Obrigado!

Jaime

Link to comment
Share on other sites

5 answers to this question

Recommended Posts

  • 0
Guest --Jonas --
horas trabalhadas x valor da hora = Valor do Serviço / 100h x 30,00 = 3.000,00

Poderá ocorrer em algum momento o seguinte resultado: 100h e 30min x valor da hora = valor do Serviço.

A solucão ... converter horas em minutos EX: 100h e 30 minutos

100 horas => 100 * 60 = 6000 minutos +

30 minutos => = 30 minutos

total => 6030 minutos

depois saber quanto vale cada minuto de trabalho EX: Se o valor da hora trabalhada é R$ 30,00

então 1 minuto corresponde a R$ 0,5 ( 30,00 / 60 )

logo 6030 min X 0,5 = R$ 3015,00 ( valor do serviço)

agora é so aplicar esse raciocinio ao delphi

Edited by Micheus
Adicionado o delimitador de código [quote] [/quote]. Lembre-se de utilizá-lo para melhor definição das partes.
Link to comment
Share on other sites

  • 0

jonas, como você não se registra, não posso lhe orientar por MP, então coloco este post.

Gostaria que você utilizasse os marcadores de QUOTE (icone com balãozinho) quando estiver querendo comentar o texto do post que está respondendo. Alguns posts ficam ruins de ler (mistura seus comentários com o texto sendo comentado).

Grato.

Link to comment
Share on other sites

  • 0
Guest --Jaimecf1 --

:blink:

horas trabalhadas x valor da hora = Valor do Serviço / 100h x 30,00 = 3.000,00

Poderá ocorrer em algum momento o seguinte resultado: 100h e 30min x valor da hora = valor do Serviço.

A solucão ... converter horas em minutos EX: 100h e 30 minutos

100 horas => 100 * 60 = 6000 minutos +

30 minutos => = 30 minutos

total => 6030 minutos

depois saber quanto vale cada minuto de trabalho EX: Se o valor da hora trabalhada é R$ 30,00

então 1 minuto corresponde a R$ 0,5 ( 30,00 / 60 )

logo 6030 min X 0,5 = R$ 3015,00 ( valor do serviço)

agora é so aplicar esse raciocinio ao delphi

Valeu Jonas!

Andei 50%! Só esbarrei em uma coisa: Como separar as horas dos minutos para eu aplicar esse procedimento? Desculpe mas é a única parte de cálculo que eu tenho, o resto é texto. (ess parte é código, você pode fazer um pequeno exemplo para mim)

Link to comment
Share on other sites

  • 0
Guest --Jonas --

Ai vai o pequeno exemplo:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Edit3: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
VAR horas, minutos : integer;
    hora_trab, val_serv : real;
begin
    horas := strtoint(edit1.text);  // valor em horas
    minutos := strtoint(edit2.text); // valor em minutos
    hora_trab := strtofloat(edit3.text); // valor da hora trabalhada

    val_serv := ((horas * 60) + minutos) * (hora_trab / 60); // calculo
    label1.Caption := 'Valor do Serviço = ' + floattostr(val_serv);
end;

end.

Link to comment
Share on other sites

  • 0

JONAS!

MUITO OBRIGADO!

Espero estar a altura, um dia, de retribui-lo.

Ai vai o pequeno exemplo:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Edit3: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
VAR horas, minutos : integer;
    hora_trab, val_serv : real;
begin
    horas := strtoint(edit1.text);  // valor em horas
    minutos := strtoint(edit2.text); // valor em minutos
    hora_trab := strtofloat(edit3.text); // valor da hora trabalhada

    val_serv := ((horas * 60) + minutos) * (hora_trab / 60); // calculo
    label1.Caption := 'Valor do Serviço = ' + floattostr(val_serv);
end;

end.

Edited by Jaimecf1
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.5k
×
×
  • Create New...