alex
30 de Septiembre del 2003

hola queria pregintarles como devuelvo de la cadena minutos que va regresivamente a pesos en forma progresiva

ejemplo si el tiempo parte en 10 minutos a medida que retrocede el conómetro 9,8,7 minutos valla sumando 8 pesos 16 pesos 24 pesos

Dim segundos As Long
Dim total As Long

Private Sub CmdConvertir_Click()
TmrConvertir.Enabled = True
CmdConvertir.Enabled = False
TxtFormateadas.Locked = True
CmdDetener.Enabled = True
End Sub
Function convertir(segundos As String)
total = Val(segundos)
horas = 0
minutos = 0
segundos = 0
Do While total <> 0
If total >= 3600 Then
horas = Int(total / 3600)
total = total Mod 3600
Else
If total >= 60 And total < 3600 Then
minutos = Int(total / 60)
total = total Mod 60
Else
segundos = total
total = total Mod 1
End If
End If
Loop
cadena = Format(Str(horas) & ":" & Str(minutos) & ":" & Str(segundos), "HH:MM:SS")
LblSegundos = cadena
End Function

Private Sub CmdDetener_Click()
TmrConvertir.Enabled = False
CmdConvertir.Enabled = True
CmdDetener.Enabled = False
TxtFormateadas.Locked = False
End Sub

Private Sub TmrConvertir_Timer()
TxtFormateadas.Text = Str(Val(TxtFormateadas.Text) - 1)
End Sub

Private Sub TxtFormateadas_Change()
If TxtFormateadas <> "" Then
convertir (TxtFormateadas.Text)
If TxtFormateadas.Text = 0 Then
MsgBox "Se terminó la cuenta"
TmrConvertir.Enabled = False
End If
End If
End Sub

Juan
30 de Septiembre del 2003

Veo que cada minuto que pasa se suman 8 pesos. Si
es así se puede calcular de esta forma:

totalPesos = (minutosIniciales - minutosActuales) * 8

Si tienes los minutos como cadena de texto acuerdate
de transformarlos a número.