HORA COM PORCENTAGEM
BOA NOITE AMIGOS
COMO Q EU FAÇO PARA CALCULAR UMA DETERMINADA HORA COM UMA PORCENTAGEM
POR EXEMPLO
02:00 * 50% = 03:00HS
OBS: QUERO SABER COMO Q FAZ ESSE CALCULO NO VB6
OBRIGADO
COMO Q EU FAÇO PARA CALCULAR UMA DETERMINADA HORA COM UMA PORCENTAGEM
POR EXEMPLO
02:00 * 50% = 03:00HS
OBS: QUERO SABER COMO Q FAZ ESSE CALCULO NO VB6
OBRIGADO
colega fiz meio que no tapa veja se funciona
modo de usar
ps: todos os calculos são feitos pela hora (02) e sim pelos minutos contidos na hora ou seja (120), (02 horas X 60 minutos = 120)
então se você por um acaso for querer acrescentar 10% em 01 hora o resultado será + 06 minutos (01:06)
boa sorte
Function CalculaProcentagemHoras(vTime As String, vProc As Integer) As Date
Dim HM() As String, H As String, M As String, HMporc As String
HM = Split(vTime, [Ô]:[Ô])
H = ((HM(0) * 60) / 100) * vProc
M = (HM(1) / 100) * vProc
If (H Mod 60) <> 0 Then
M = CInt(M) + CInt((H Mod 60))
H = (H - (H Mod 60))
End If
HMporc = Format((H / 60) & [Ô]:[Ô] & M, [Ô]hh:nn[Ô])
CalculaProcentagemHoras = CDate(vTime) + CDate(HMporc)
End Function
modo de usar
Private Sub Command1_Click()
MsgBox CalculaProcentagemHoras([Ô]02:00[Ô], 50)
End Sub
ps: todos os calculos são feitos pela hora (02) e sim pelos minutos contidos na hora ou seja (120), (02 horas X 60 minutos = 120)
então se você por um acaso for querer acrescentar 10% em 01 hora o resultado será + 06 minutos (01:06)
boa sorte
Resumindo o que o Marcelo postou, você deve:
1) transformar o horário (ex: 02:00) em minutos
2) multiplicar pelo percentual, usando a regra de três
3) transformar o resultado novamente em formato horas
1) transformar o horário (ex: 02:00) em minutos
2) multiplicar pelo percentual, usando a regra de três
3) transformar o resultado novamente em formato horas
Tópico encerrado , respostas não são mais permitidas