preciso fazer um sistema que com calcule quantos minutos existem entre 2 horas somando 20 me 20 minutos até ae tudo bem,
Entrada ="13:30" Saida = "18:00" total = DateDiff("s",Entrada,Saida) segundos = (total) Mod 60 minutos = ((total - segundos) / 60) mod 60 horas = int((total) / 3600) TempoCompleto = (horas & ":" & minutos ) totalminutos = (horas * 60 ) + minutos
agora tenho que colocar um radio nas horas possíveis entre os horários
<% Function HoraMinuto(Hora) HoraMinuto = (Hour(Hora)*60) + Minute(Hora) End Function Function MinutoHora(Minutos) MinutoHora = (Minutos \ 60) & ":" & (Minutos Mod 60) End Function %> <% For i = 0 To (totalminutos / 20) -1 %> <input type="radio" name="hora" value=""> <% horad = (4.5) - i*(0.33) horas = CStr(horad) n_horas = Mid(horas, 1, InStr(horas, ",") - 1) n_minutos = Round(Left(Mid(horas, InStr(horas, ",") +1, Len(horas))*0.6,2)) Hora1 = CStr(n_horas) & ":" &CStr(n_minutos) Hora2 = "13:20" Soma = HoraMinuto(Hora1) + HoraMinuto(Hora2) Response.Write MinutoHora(Soma) %><br> <% next%>
tentei algo assim, mais estou perdido.. entenderam? alguém, pode me ajudar?
Edição feita por: _zEek_, 28/09/2009, 01:04.