Restar 2 fechas ingresadas en textbox
He visto algunas soluciones que has brindado, y creo que sea posible que me pueda brindar su ayuda con el siguiente tema:
Estoy construyendo lo que he llamado un radicador de permisos, entre otras cosas tengo un formulario que contiene 3 textbox, en el textbox1 tengo la fecha y hora inicial, en el textbox2 tengo la fecha y hora final, necesito colocar en el tetxbox3 la diferencia en días y horas entre la fecha final y la fecha inicial.
Esta consulta la publique en el mes de agosto, pero lamentablemente no recibi ninguna respuesta, ¿sera qué no es posible realizar ese calculo?,
1 Respuesta
Respuesta de James Bond
1
Este es el resultado de la macro
y esta es la macro
Private Sub TextBox2_AfterUpdate() fi = CDate(TextBox1.Text) ff = CDate(TextBox2.Text) dias = ff - fi horas = dias * 24 minutos = horas * 60 segundos = minutos * 60 hora = (horas Mod 24) - 1 minutos = (minutos Mod 60) seg = segundos Mod 60 TextBox3.Text = Int(dias) & " Dias " & Int(hora) & " horas " & minutos & " minutos " & seg & " segundos" End Sub
