CONFIGURAR TEXT

PEDROALSOI 31/12/2013 17:37:08
#432572
Estou fazendo um programa que faça a formula para ver quanto tempo demora para uma bateria carregar.
Quando ele faz a conta por exemplo se der:
1,2, ele altera para 1:2 como faço para que fique por exemplo:
1:20 hora(s)?

Aqui tem o code de uma parte do programa caso seja necessário.

Citação:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim total As String
total = Val(TextBox1.Text) / Val(TextBox2.Text)
Label3.Text = Val(total) * Val(1.2)
Label3.Text = Replace(Label3.Text, [Ô],[Ô], [Ô]:[Ô])
End Sub



Obrigado pela atenção.
MARCELOKROL 31/12/2013 20:08:17
#432573
Tenta assim, acho que á mais facil:
  Private Sub btnTeste_Click(sender As Object, e As EventArgs) Handles btnTeste.Click
      Dim Inicio As Date = Now [ô]horario de incio da carga
      Dim Fim As Date = Now.AddMinutes(96) [ô]horario do fim da carga, coloquei 96 so para que o exemplo funcione, mais voce pode usar assim: Dim Fim as Date = cDate(TextBox1.text)

      Dim intervalo As Long = DateDiff(DateInterval.Minute, Inicio, Fim)

      Dim Tempo As String = DateAdd([Ô]n[Ô], intervalo, [Ô]00:00:00[Ô])

      MsgBox(Tempo)
   End Sub
PEDROALSOI 31/12/2013 22:12:31
#432574
Ótima resposta, mas infelizmente não consegui.
Tentei adaptar o code mas não deu certo.
Colocarei essa parte do projeto aqui para download, afinal disponibilizarei de graça
GGERMINIANI 01/01/2014 21:20:27
#432579 Resposta escolhida
Pedro,
Boa noite.

Veja se é isso que vc procura.

Caso não consigo abrir o anexo, adicionei o código:


        Dim inicio_num = Mid(Label3.Text, 1, InStr(1, Label3.Text, [Ô]:[Ô]))
        Dim formata_num = Mid(Label3.Text, InStr(1, Label3.Text, [Ô]:[Ô]) + 1, Len(Label3.Text)).ToString.PadRight(2, [Ô]0[Ô])
        Label3.Text = inicio_num & formata_num & [Ô] hora(s)[Ô]
GGERMINIANI 01/01/2014 21:27:00
#432580
Desculpe,
Estive revendo...

Se realmente for isso que vc deseja, o código que lhe enviei dá muita volta....

mais simplificado (adicione a linha sublinhada):

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim total As String
total = Val(TextBox1.Text) / Val(TextBox2.Text)
Label3.Text = Val(total) * Val(1.2)
Label3.Text = FormatNumber(Label3.Text, 2)
Label3.Text = Replace(Label3.Text, [Ô],[Ô], [Ô]:[Ô]) & [Ô] hora(s)[Ô]
End Sub
PROGRAMADORVB6 01/01/2014 22:18:52
#432581
Acho que ele quer algo deste género:

Battery capacity: 2510 mAh
Current drawn when active = 1.53 mA
Current drawn, average over duty cycle = 1.53 mA * duty cycle = 1.53 * 3 / 100 mA = 0.046 mA
Battery life in hours = 2510 mAh / 0.046 mA = 54565 hours
Battery life in seconds = 54565 * 3600 = 196,434,000 seconds
Battery life in years = 54565 / 24 / 365 = approx. 6 years.
PEDROALSOI 02/01/2014 10:04:56
#432585
Obrigado pelas respostas porem, sendo que a do GGERMINIANI, foi a que funcionou.

Obrigado de novo, ajudou muito.
Tópico encerrado , respostas não são mais permitidas
Voltar