FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Campos autocalculados en una tabla
Hola a todos,
Tengo una preguntica, estoy trabajando en un proyecto en delphi 7 con base de datos paradox, en el proyecto tengo una tabla con los siguientes campos: Descripcion, valor, Fecha de adquisicion y depreciacion. Ademas 3 campos auto calculados, para que cuando muestre la tabla en el dbgrid en esos campos me muestre: 1. Depreciacion anual, esta la calculo con la siguiente formula Da=valor*dep/100 2. Depreciacion mensual, Dm=Da/12 3. Depreciacion acumulada Dac=(Da/365)*(Fecha actual - Fecha de Aquisicion) estos campos los cree en la tabla, dando doble click, new field en la ventanita que muestra, tipo de campo autocalculado, tipo de campo Float.. Y en el evento oncalcfields de la tabla el siguiente codigo: procedure TDataModule5.Table3CalcFields(DataSet: TDataSet); begin if not table3valor.IsNull and (table3valor.Value <>0) then begin table3danual.Value:=table3valor.Value * table3dep.Value/100; table3dmes.Value:= table3danual.Value/12; table3dacum.Value:= table3danual.value/365 * date-(table3fadq.value); end ; Esto compila bien, pero el resultado me lo muestra completo, es decir 3333.348459505 y los que el resultado es de 0.70, nada mas me muetra el .7. Que es lo que estoy haciendo mal, trate de ponerle una maascara el campo autocalculado pero a lo mejor no la puse bien, pues me sigue haciendo lo mismo... Agradeceria cualquier ayuda que me pudieran brindar... Gracias por adelantado. |
|
|
|