FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Tipo de Variable."String" ó "Double"
Saludos Compañeros, estoy elaborando un calculo con variables y constante, y me da un error de tipo de variables. este es el codigo.
Const Meses=12; Semana=54; Horas_Semanal=44; Var Sueldoouble; Hora_Normalouble; Begin Sueldo:=100000; Hora_normal:=Sueldo * meses; Hora_normal:=(Hora_Normal/Semana)/Horas_Semanal; Costo_Hr:=Hora_normal*0.30; End; End. Tambien da Error, Dice Incompatible ., "TEdi"t and "Extended". Este Codigo es para calcular la hora normal y la hora extras para un empleado. ------------------------------------------------------------------------------ Att.Utecyber. |
#2
|
||||
|
||||
¿Por casualidad Costo_Hr es un TEdit?...
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
Cita:
Código:
Costo_Hr.Text := FormatFloat('#,##0.00', Hora_normal*0.30); |
#4
|
||||
|
||||
Cita:
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#5
|
|||
|
|||
Asi es Delphi.com.ar Costo_Hr es un TEdit, Son todos TEdit.
Estoy intentando con el codigo de conversion y no me funciona. ____________________________ Atte.Utecyber |
#6
|
|||
|
|||
Recuerden que las Variables declaradas son tipo double.
______ Atte.Utecyber |
#7
|
||||
|
||||
Ok... prueba lo que te ha sugerido cadetill
Cita:
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#8
|
|||
|
|||
La verdad Gracias Cadetil y Delphi.com.ar. La verdad me funciono.
Observen el codigo. asi resolvi el problema procedure TForm1.Button1Click(Sender: TObject); Const meses=12; semanas=54; horas_Semana=44; Var Sueldoouble; HoraNormalouble; begin Sueldo:=Table1Sueldo.Value; HoraNormal:=Sueldo*meses; CostoHrs.Text:=FormatFloat('#,##0.00',(HoraNormal/Semanas)/Horas_Semana); end; Tuve que emigrar a buscar el ( DbEdit) sueldo del empleado en la base de datos, y despues asignarle el valor, por que como Edit no me funcionaba. Mil Gracias.. Atte. Utecyber |
|
|
|