89
ChisloInCurr := chislo;
Str(ChisloInCurr: 20: Precision, ChisloInStr);
ChisloInStr[Pos('.', ChisloInStr)] := ',';
RoundEx := Trim(ChisloInStr);
end;
function sub(a, b: double): string;
var r1, r2: string;
h1,h2,i:double;
begin
h1 :=INT(A) + (((a - INT(A))*100)/60);
h2 :=INT(B) + (((b - INT(B))*100)/60);
r1:=ReplaceSub(RoundEx(h1,1), ',' ,'.' );
r2:=ReplaceSub(RoundEx(h2,1), ',' ,'.' );
i:=StrToFloat(r1) - StrToFloat(r2);
Result:=FloatToStr(i);
end;
procedure TDM.QJVBeforePost(DataSet: TDataSet);
begin
//Водители
DM.QTWO.SQL.Clear;
DM.QTWO.SQL.Add('Select * from РаботаВ where Год =
'+DM.QJVDSDesigner5.AsString+' and Месяц = '''+DM.QJVDSDesigner6.AsString+''' and
Водитель = '+Jvod.Edit1.Text+' and Число = '+DM.QJVDSDesigner7.AsString+'');
DM.QTWO.Active:=true;
if DM.QTWO.RecordCount>0 then
begin
DM.QJVDSDesigner15.AsString:='00.00';
DM.QJVDSDesigner19.AsString:='00.00';
end;
//Кондукторы
DM.QTWO.SQL.Clear;