Visual Basic - Restar horas y fechas

Life is soft - evento anual de software empresarial
   
Vista:

Restar horas y fechas

Publicado por Jennifer (149 intervenciones) el 03/01/2009 16:24:06
Hola amigos, muchas gracias por la ayuda que me puedan brindar, tengo el siguiente problema, como puedo hacer para restar fechas y horas, por ejemplo:

textbox1= 25/03/09 15.45
textbox2= 02/01/09 8:15

textbox3 ---> que me de la cantidad de dias
textbox4 ---> que me da la cntidad de horas

por favor alguna ayudita
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Alarma
- Torres de Hanoi
- Juego de coches

RE:Restar horas y fechas

Publicado por Daivinson Coffi (15 intervenciones) el 03/01/2009 17:00:51
Hola Jennifer espero te sirva de ayuda este ejemplo fue extraído de la ayuda de Microsoft Excel la utiliza la función datediff que es lo que necesitas aqui te lo envio para que lo entiendas:
DateDiff (Función)
Devuelve un valor de tipo Variant (Long) que especifica el número de intervalos de tiempo entre dos fechas determinadas.

Sintaxis

DateDiff(intervalo, fecha1, fecha2[, primerdíasemana[, primerasemanaaño]])

La sintaxis de la función DateDiff consta de los siguientes argumentos con nombre:

Parte Descripción
Intervalo Requerido. Expresión de cadena con el intervalo de tiempo utilizado para calcular la diferencia entre fecha1 y fecha2.
Fecha1, fecha2 Requerido; Variant (Date). Las dos fechas que se van a utilizar en el cálculo.
Primerdíasemana Opcional. Constante que especifica el primer día de la semana. Si no se especifica, se asume que es el domingo.
Primerasemanaaño Opcional. Constante, que especifica la primera semana del año. Si no se especifica, se asume que es aquélla en la que se encuentre el 1 de enero.


Valores

El argumento intervalo toma los valores siguientes:

Intervalo Descripción
yyyy Año
q Trimestre
m Mes
y Día del año
d Día
w Día de la semana
ww Semana
h Hora
n Minuto
s Segundo


El argumento primerdíasemana toma los siguientes valores:

Constante Valor Descripción
vbUseSystem 0 Utilice la configuración de la API de NLS.
vbSunday 1 Domingo (predeterminado)
vbMonday 2 Lunes
vbTuesday 3 Martes
vbWednesday 4 Miércoles
vbThursday 5 Jueves
vbFriday 6 Viernes
vbSaturday 7 Sábado


Constante Valor Descripción
vbUseSystem 0 Utilice la configuración de la API de NLS.
vbFirstJan1 1 Empieza con la semana en la que se encuentra el 1 de enero (predeterminado).
vbFirstFourDays 2 Empieza con la primera semana que tenga al menos cuatro días en el nuevo año.
vbFirstFullWeek 3 Empieza con la primera semana que esté completamente incluida en el nuevo año.


Comentarios

Puede utilizar la función DateDiff para determinar el número de intervalos especificados que existen entre dos fechas. Por ejemplo, con DateDiff podría calcular el número de días entre dos fechas o el número de semanas entre hoy y el final del año.

Si desea saber el número de días entre fecha1 y fecha2, puede utilizar Día del año ("y") o Día ("d"). Cuando intervalo es Día de la semana ("w"), DateDiff devuelve el número de semanas entre las dos fechas. Si fecha1 es lunes, DateDiff contará el número de lunes hasta fecha2. En la cuenta incluirá fecha2, pero no fecha1. Si intervalo es Semana ("ww"), la función DateDiff devolverá el número de semanas entre las dos fechas. En este caso contará el número de domingos entre fecha1 y fecha2. DateDiff contará fecha2 si es domingo, pero no fecha1, aunque sea domingo.

Si fecha1 se refiere a un momento posterior en el tiempo a fecha2, la función DateDiff devolverá un número negativo.

El argumento primerdíasemana afecta a los cálculos que utilizan "w" y "ww" como símbolos de intervalo.

Si fecha1 o fecha2 es un literal de fecha, el año, si se especifica, pasará a ser una parte permanente de la fecha. Sin embargo, si fecha1 o fecha2 está comprendida entre comillas dobles ("") y se omite el año, se insertará el año en curso en el código cada vez que se evalúe la expresión fecha1 o fecha2. Así es posible escribir código que se pueda usar en años distintos.

Cuando compara el 31 de diciembre con el 1 de enero del año siguiente, DateDiff para un año ("yyyy") devolverá 1 aunque sólo haya pasado un día.

Nota Para fecha1 y fecha2, si la configuración de la propiedad Calendar es gregoriano, la fecha proporcionada debe ser gregoriano. Si el calendario es Hijri, la fecha proporcionada debe ser Hijri.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Restar horas y fechas

Publicado por Daivinson Coffi (15 intervenciones) el 03/01/2009 17:02:21
Aquí esta el ejemplo:
Ejemplo de la función DateDiff
Este ejemplo utiliza la función DateDiff para mostrar el número de días entre una fecha dada y hoy.

Dim LaFecha As Date ' Declara las variables.
Dim Msj
LaFecha = InputBox("Escriba una fecha")
Msj = "Días desde hoy: " & DateDiff("d", Now, LaFecha)
MsgBox Msj
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar