Paso de parametros

[[maeyanes]]

Tienes varias posibilidades, la más rápida:

Usar un procedimiento de esta forma:

Código Delphi [-]
Procedure HorasMinutosEnTurno(HoraInicio, MinutosInicio,
  HoraFinal, MinutosFinal:Integer;
  var TotalHoras, TotalMinutos: String);

Así devuelves en TotalHoras y TotalMinutos los valores que necesitas..

Claro, que si necesitas usar el valor de la función original solo para mostrarla, podrías componer la cadena a devolver:

Código Delphi [-]
var
  TotalHoras: Integer;
  TotalMinutos: Integer;

begin
  // Cálculos...
  Result := Format(%d horas %d minutos', [TotalHoras, TotalMinutos])
end;

Otra opción sería crear un tipo registro que tenga los 2 valores y devolver en la función un registro de ese tipo...


Saludos...

[Delphos]

Ok. Mensaje captado.

¿Y la llamada de la funcion como seria para recoger los dos totales en variables diferentes?

[[maeyanes]]

La primera opción es un procedimiento, y la llamada sería más o menos así:

Código Delphi [-]
var
  HorasTotales: string;
  MinutosTotales: string;

begin
  Procedure HorasMinutosEnTurno(10, 50, 12, 30, HorasTotales, MinutosTotales);
  ShowMessage(Format('El turno duró: %s horas y %s minutos', [HorasTotales,
    MinutosTotales]);
end;

[Delphos]

Vale asunto solucionado.

Muchas gracias Marcos.

Salu2