Restar de horas
Publicado por Kenneth (1 intervención) el 19/10/2021 23:08:17
Hola, soy nuevo en todo esto.
Estoy recreando un archivo que tenia en Excel, programado en Vba.
Decidi descargar Visual Studio y empezar a hacer mi .exe
La primera parte de mi programa es crear un contador de tiempos.
Quiero Restar a la Hora actual ( Estoy usando Datetime.now.ToLongTimeString) una Hora que yo ponga en un Txt
Practicamente es eso, y poder sacarlo en minutos todo( esto si tengo idea de como hacerlo)
Lo habia hecho en Excel solo que en las celdas, sabran que es un tanto diferente.
Practicamente es esto: Hola Actual: 15:00:10 - Hora que puedo modificar en un Txt : 14:50:10 (hora ejemplo)
El resultado me daria : 00:10:00 Yo tomo esos 10 minutos y los multiplico x60 y me da los minutos que es en realidad lo que me importa.
Intento hacerlo en VB pero me da error de Date no puede convertirse a String.
Esto es lo que tengo, falta otimizarlo y ordenarlo, claro está con el tiempo voy aprendiendolo.
Agradezco la ayuda que pueda ser brindada. Saludos Kenneth
Estoy recreando un archivo que tenia en Excel, programado en Vba.
Decidi descargar Visual Studio y empezar a hacer mi .exe
La primera parte de mi programa es crear un contador de tiempos.
Quiero Restar a la Hora actual ( Estoy usando Datetime.now.ToLongTimeString) una Hora que yo ponga en un Txt
Practicamente es eso, y poder sacarlo en minutos todo( esto si tengo idea de como hacerlo)
Lo habia hecho en Excel solo que en las celdas, sabran que es un tanto diferente.
Practicamente es esto: Hola Actual: 15:00:10 - Hora que puedo modificar en un Txt : 14:50:10 (hora ejemplo)
El resultado me daria : 00:10:00 Yo tomo esos 10 minutos y los multiplico x60 y me da los minutos que es en realidad lo que me importa.
Intento hacerlo en VB pero me da error de Date no puede convertirse a String.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim thisTime As Date
Dim thishour As Integer
Dim thisminute As Integer
Dim actual As Integer
thisTime = DateTime.Now.ToLongTimeString
thishour = Hour(thisTime)
thisminute = Minute(thisTime)
' thisMinute now contains 35actual = thishour * 60 + thisminute
Dim thisTime1 As Date
Dim thishour1 As Integer
Dim thisminute1 As Integer
Dim actual1 As Integer
thisTime1 = TxtHora.Text
thishour1 = Hour(thisTime1)
thisminute1 = Minute(thisTime1)
' thisMinute now contains 35actual1 = thishour1 * 60 + thisminute1
lbHora1.Text = actual1 - actual
Esto es lo que tengo, falta otimizarlo y ordenarlo, claro está con el tiempo voy aprendiendolo.
Agradezco la ayuda que pueda ser brindada. Saludos Kenneth
Valora esta pregunta
0