[resolvido] Datas E Horas

[Jaimecf1]

: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

[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

Editado Agosto 11, 2007 por Micheus
Adicionado o delimitador de código [quote] [/quote]. Lembre-se de utilizá-lo para melhor definição das partes.

[Micheus]

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.

[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)

[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.

[Jaimecf1]

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.

Editado Agosto 12, 2007 por Jaimecf1