<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#ffffff">
El 04/07/2011 03:23 p.m., Francisco Javier Solis Palma escribió:
<blockquote cite="mid:4E12052A.5080805@gmail.com" type="cite">
<meta http-equiv="content-type" content="text/html;
charset=ISO-8859-1">
<pre>Disculpa la molestia mi nombre es Francisco, tengo un problema algo similar al tuyo, bueno tu ya lo resolviste, tengo la siguiente rutina:
procedure TModuloDatosFrm.frReport1UserFunction(const AName: String; p1, p2,
p3: Variant; var Val: Variant);
var
sdato: double;
Entero: Double;
Fraccion: Double;
begin
If AName = 'FORMATO' Then
Begin
sdato:=frParser.Calc(P1);
if sdato = 10 then
Begin
sdato := Int(sdato);
Val:=Format('%n', [sdato]);
End
else
Begin
Entero := Int(sdato);
Val:=format('%n', [Entero]);
Fraccion := Frac(sdato);
If Fraccion <> 0 Then
Val := Val + Format('%d', [Fraccion])
Else
Val := Val + Format('%.1d', [Fraccion]);
end;
end;
end;
</pre>
</blockquote>
Hola..<br>
yo probaría de hacer esto:<br>
<br>
<pre> Entero := Int(sdato);
Val:=format('%n', [Entero]);
Fraccion := Frac(sdato);
If Fraccion <> 0 Then
Val := Format('%.1d', [sdato])
Else
Val := Format('%d', [sdato]);</pre>
<br>
<br>
</body>
</html>