Hola a todos!!

He creado un formulario con varios textbox, en los cuales debo introducir fechas y en uno de ellos me debe aparecer automaticamente la resta entre dos fechas (en dias), y no consigo dar con el código adecuado, ya que unas veces solo me resta los dias, otras los meses y otras los años, agradecería si alguien me pudiese facilitar un código con el que realizar esta operación.

Gracias, un saludo.

Buenas Tardes amigo, eso lo puedes resolver con la funcion DATEDIFF.

Dim intDias as Integer

Dim FechaDesde, FechaHasta as Date

intDias = DateDiff("d", FechaDesde, FechaHasta, vbMonday)

msgbox "Dias transcurridos " & intDias

Espero haberte ayudado.

Saludos

Gregorio Prado

Lo primero muchas gracias por interesarte.

La verdad es que soy muy nuevo en esto, pero creo que esa función no me vale, ya que yo debo realizarlo mediante una macro en excel, y me han comentado que no se puede.

Lo que querria es algo parecido a esto:

Private Sub TextBox3_Change()
Range("D11").FormulaR1C1 = CDate(TextBox3.Text)
End Sub

Private Sub TextBox6_Change()
Range("H11").FormulaR1C1 = CDate(TextBox6.Text)
TextBox11 = Val(TextBox6.Text) - Val(TextBox3.Text)
End Sub

Private Sub TextBox11_Change()
Range("I11").FormulaR1C1 = TextBox11
End Sub

De esta manera el resultado en días sale automáticamente en el textbox11, el problema es que no por que pero la resta la hace mal, por ejemplo si resto 06/07/07-06/06/07 el resultado me da 100 días en lugar de 30.

me pasa lo mismo que agri13, pero tengo que llevar el resultado a una base de datos en acces, y el depurador me informa que los datos no coinciden, no son del mismo tipo, no se que hacer.

y por cierto, el resultado lo tengo que mostrar en meses, cambie la "d" por la "m" y por muchas "m" y nada.