send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Como restar fechas u Horas

  • 0 Respuestas
  • 1234 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5283
  • Actividad:
    30%
  • Reputación 28
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 11:23:03 am »
Dos ejemplos de cómo restar fechas y horas.
Para saber los segundos entre dos horas o los días entre dos fechas.

Crea un form con los siguientes controles, dejale los nombre por defecto.
4 TextBox
2 Labels
2 Commands
Distribuyelos para que los dos primeros TextoBoxes estén con el primer label y command, lo mismo con el resto.
Añade lo siguiente al form y pulsa F5

'Ejemplo de prueba para restar fechas y horas

Código: Visual Basic
  1. Option Explicit
  2.  
  3.  
  4. Private Sub Command1_Click()
  5. Dim t0 As Variant, t1 As Variant
  6.  
  7. 'Text1 Tendrá una fecha anterior
  8. 'Text2 tendrá la nueva fecha
  9. t0 = DateValue(Text1)
  10. t1 = DateValue(Text2)
  11. Label1 = t1 - t0
  12.  
  13. End Sub
  14.  
  15.  
  16. Private Sub Command2_Click()
  17. Dim t0 As Variant, t1 As Variant
  18.  
  19. 'Text3 Tendrá una hora anterior
  20. Text4 = Format(Now, "hh:mm:ss")
  21. t0 = Format(Text3, "hh:mm:ss")
  22. t1 = Format(Text4, "hh:mm:ss")
  23. Label2 = Format(TimeValue(t1) - TimeValue(t0), "hh:mm:ss")
  24.  
  25. End Sub
  26.  
  27.  
  28. Private Sub Form_Load()
  29. 'Para probar la diferencia de fechas
  30. Text1 = DateValue(Now)
  31. Text2 = DateValue(Now + 10)
  32. '
  33. 'Para probar la diferencia de horas
  34. Text3 = Format(Now, "hh:mm:ss")
  35. Text4 = Format(Now, "hh:mm:ss")
  36.  
  37. Command1_Click
  38. Command2_Click
  39. End Sub
« Última modificación: Julio 08, 2011, 10:22:41 am por ANTRAX »


 

¿Te gustó el post? COMPARTILO!



Como leer caracter por caracter de una cadena string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1304
Último mensaje Julio 26, 2010, 11:42:21 am
por ANTRAX
Cómo ajustar la cadena introducida a formato numérico: "#,##"

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1079
Último mensaje Julio 26, 2010, 12:38:04 pm
por ANTRAX
Cómo ajustar la cadena introducida a formato de hora "00:00:00"

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1381
Último mensaje Julio 26, 2010, 12:36:23 pm
por ANTRAX
Manual de como bloquear CTRL+ALT+SUP, ALT+TAB, Y OTROS con Visual Basic en WinXP

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1711
Último mensaje Julio 26, 2010, 11:11:14 am
por ANTRAX
Como pasar de un texto a otro usando Enter

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1506
Último mensaje Julio 26, 2010, 10:28:10 am
por ANTRAX