Contafono

Tengo el siguiente problema estoy haciendo un programa que
dado la hora inicial al hacer click vuelve a tomar las horas
las resta y da el tiempo total como un cronometro pero quiero
multiplicar esos minutos por un numero, ejemplo 10 minutos los
multiplico por 3.64 como numero entero o real(float), así si cada minuto vale
3,63 centavos me dan los centavos trascurridos 10 minutos
pero el resultado que me da me lo da en tiempo 0:0:36.4
al pasarlo de tiempo a cadena y de cadena a entero y luego de entero a cadena
y tratar de mostrarlo en un memo me lanza error me dice que el formato 0:0:36.4 no es un formato válido
de entero o flotante
¿Cómo lo puedo hacer?
Es para controlar el gasto telefónico.

2 Respuestas

Respuesta
1
No entiendo muy bien el porque de que tienes que convertir de cadena a entero y viceversa. Si yo almaceno en un single el valor de un minuto y en otro single el valor del tiempo sale bien.
Ej:
Dim tiempo As Single, a As String, contador As Integer
Dim valor As Single, TiempoTranscurrido As Single
tiempo = Timer
valor = 3.63
For contador = 1 To 30000
a = a + "A"
Next
TiempoTranscurrido = Timer - tiempo
MsgBox TiempoTranscurrido * valor
En mi ordenador devuelve 2,795
Ese formato que me dices no es un numero sino una hora. Trata de convertirla a numero a antes de hacer la operación.
Respuesta
1
Teóricamente ya te envíe algo pero PARECE que no te llegó, acá va otra vez
Fíjate si te sirve este ejemplo
//Esta es la Unit
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ComCtrls;
type
TForm1 = class(TForm)
Inicio: TDateTimePicker;
Final: TDateTimePicker;
Calcular: TBitBtn;
Edit1: TEdit;
Function CuentaTelefonica(Inicio, Final : Ttime; PrecioMinuto: Real): Real;
procedure CalcularClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.CalcularClick(Sender: TObject);
begin
ShowMessage(FormatFloat('"$" 0.00', CuentaTelefonica(Inicio.Time, Final.Time, 3.63) ) );
end;
Function TForm1.CuentaTelefonica(Inicio, Final : Ttime; PrecioMinuto: Real): Real;
Var
Minutos : Real;
Begin
//Una fecha (N° Real) se divide en dos partes
//La Parte Entera que Indica la Fecha y
//la Parte Fraccionaria que Indica la Hora y
//un Minuto es en real 0.000694444444444444 para ser exactos
//Remuevo la Parte de la Fecha Usa este Metodo ya que otro te puede
//Arrastrar error en la parte fraccionaria
Inicio := Inicio - Trunc(Inicio);
Final := Final - Trunc(Final);
Minutos := (Final - Inicio) / 0.000694444444444444;
CuentaTelefonica := Minutos * PrecioMinuto;
End;
end.
//Este es el Form (.DFM)
object Form1: TForm1
Left = 189
Top = 146
Width = 291
Height = 123
Caption = 'Calculo de costo segun tiempo'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Inicio: TDateTimePicker
Left = 43
Top = 20
Width = 70
Height = 21
CalAlignment = dtaLeft
Date = 37204
Time = 37204
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkTime
ParseInput = False
TabOrder = 0
end
object Final: TDateTimePicker
Left = 118
Top = 20
Width = 70
Height = 21
CalAlignment = dtaLeft
Date = 37204.0013888889
Time = 37204.0013888889
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkTime
ParseInput = False
TabOrder = 1
end
object Calcular: TBitBtn
Left = 104
Top = 55
Width = 75
Height = 25
Caption = 'Calcular'
TabOrder = 2
OnClick = CalcularClick
end
object Edit1: TEdit
Left = 195
Top = 20
Width = 45
Height = 21
BiDiMode = bdLeftToRight
ParentBiDiMode = False
TabOrder = 3
Text = '3.63'
end
end
DX

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Tfilestream en c++ builder

Bueno mi pregunta es la siguiente quiero manipular archivos binarios, con el compilador de borland conocido como c++ builder. El problema es que no se como instanciar la clase Tfilestream, mi pregunta es si tu sabes o conoces como poder manejar...
1 respuesta

Sumar campos

¿Cómo puedo recorrer un campo especifico y recorrer todas sus filas hacia abajo para obtener sus valores y sumarlos, usando el componente query y dejar el resultado en un memo?
1 respuesta

Enviar correo con vb

He relizado un programa que envia un fichero a traves de correo electronico, el problema que tengo es que cuando envio el correo se me queda en la bandeja de salida del outlook, hay alguna manera para que me envie el correo directamente sin tener que...
1 respuesta

¿Cómo se carga el calendario completo en un combobox con delphi 7?

Como cargar el calendario completo en un combobox con delphi 7. El segundo consiste en que yo pongo una y quiero que a partir de esa fecha me arroje otra fecha sumada a la cantidad de semana o mes que yo quiera poner.
1 respuesta

Llamadas telefonicas con mi programa en VB6

Estoy tranajando en un pequeña agenda telefonica junto con su base de datos, el asunto es que desearia que tambien sea capaz de efectuar llamadas. ¿Cómo puedo hacer para que pueda realizar las llamadas?
1 respuesta

Componentes visuales dinámicos

Te escribo para hacerte una super consulta, sabes, necesito crear instancias dinámicamente de las clases de los componentes visuales disponibles en Delphi, es decir, que en tiempo de ejecución pueda crear un control del tipo TEdit, haciendo que pueda...
2 respuestas

Reporte en visual foxpro!

Espero no quitarle mucho de su valioso tiempo. He creado un prg para generar un form "hijo" que me permita visualizar reportes. Esto lo logre, siguiendo el consejo que usted, en mi primera consulta que le hice, me dio (muchas gracias de por si) sobre...
1 respuesta

Lista desplegable

Te comento quiero realizar un filtro y mostrar los registros en una lista desplegable, y no lo logro, la lista sale pero no con el filtro, o sea el if endif esta bien porque en messagebox() me muestra los verdaderos regitros filtrados pero la lista...
1 respuesta

Pocisión y tamaño de gráfico en excel...

Es mi primer pregunta y no he logrado encontrar respuesta en las ya publicadas. Quisiera posicionar y dar tamaño a un gráfico con mucha precisión. El resultado que obtengo haciéndolo con el mouse es malo, ya que debo colocar tres gráficos en línea y...
1 respuesta