Hello.
Can anyone help me with the Dephi function below...
const CC_TIME = $3f;
procedure TvStripForm.AddTime(var sum: array of Byte; b: array of Byte);
var
i: Integer;
max_f: Integer;
begin
for i := Low(sum) to High(sum) do
Inc(sum[i], (b[i] and CC_TIME));
max_f := 25;
if ((b[3] and (not CC_TIME_)) = 192) then
max_f := 30;
if (sum[3] >= max_f) then begin
Dec(sum[3], max_f);
Inc(sum[2]);
end;
if (sum[2] >= 60) then begin // seconds
Dec(sum[2], 60);
Inc(sum[1]);
end;
if (sum[1] >= 60) then begin // minutes
Dec(sum[1], 60);
Inc(sum[0]);
end;
end;
I wan't to create the same function in Visual Basic, but Im struggling, as
I
don't really know Delphi all that well. We dont intend to leave Delphi
behind, someone in our department wants to see if VB tackles the above
function, as he thinks it will be a much long winded away around..
personally I dont think it will.
Any help appreciated


|