Regístrate gratis para participar de los foros, o si ya estás registrado haz login.

Convertir tiempo en costo

comentario del autor	Mie Feb 04, 2009 3:11 pm
Necesito que me ayuden con la formula de como convertir el tiempo final de una maquina a pesos, mas claro mi problema es este estoy haciendo un trabajo para la escuela hacerca de reporte de tiempo de un ciber y necesito ¿convertir el tiempo final de una maquina al costo total o importe del tiempo consumido?	trentor
solución	Lun Feb 16, 2009 7:30 pm
bueno, te convendria llevar el tiempo a una unidad fija por ejemplo segundos que es la mas chica entonces si tenes 1 minuto son 60 segundos y asi, de esa forma el valor en pesos por ejemplo 1 minuto es igual a 2 pesos entonces si 1 segundo es x y quedaria asi 1 minuto es igual a 60 segundos y nos queda 60s------------------------- 2 pesos 1s-------------------------- x (0,033 centavos) (regla de 2 simple) y despues te queda solo multiplicar 0,33 centavos por la cantidad de segundos x ejemplo 120 seg (2 minutos) da 3,96 pesos usados espero te sirva esta info suerte y bye PD ( utiliza redondeo para ser mas exactos)	mark_tecnico
sin valorar	Mar Feb 17, 2009 4:07 pm
primeramente... me gustaria que me dijeras si usas un lenguaje de programacion... yo uso VB... yo en lo personal lo calcularia en rangos por ejemplo. yo uso lo pesos mexicanos. si uso 00:00 - 00:15 con 3 pesos 00:16 - 25:00 son 4 pesos y sai se van los rangos cree un programa para copntrolar el tiempo de las pc's de un negocio... pero no bloquea las maquinas clientes unicamente sirve de manera local y esta limitado solo para 4 maquinas y el codigo que use para convertir es la siguiente. Private Sub timerpc3_Timer() Dim dif As Single Dim horas As Integer Dim minutos As Integer Dim segundos As Integer Dim centesimas As Integer 'Dim res As Double If Timer > Iniciarpc3 Then dif = Timer - Iniciarpc3 Else dif = 86400 - Iniciarpc3 + Timer End If centesimas = (dif - Fix(dif)) * 100 horas = Fix(dif) \ 3600 minutos = (Fix(dif) Mod 3600) \ 60 segundos = (Fix(dif) Mod 60) lblcronometropc3.Caption = Format(horas, "00") & ":" & Format(minutos, "00") & ":" & Format(segundos, "00") & ":" & Format(centesimas, "00") respc3 = ((horas * 10)) + (minutos * (10 / 60)) DoEvents End Sub es en VB 6.0 por si sabes de programacion en este lenguaje te puedo pasar el codigo fuente de mi programa. solo que lo modificarias a tus precios incluso puedes cobrar impresiones, quemado de discos etc.... espero y te sirva la ayuda... si te interesa nicus_hr@hotmail.com	nicus