Urgente Las fechas me tienen loco

[hmtech]

Hola a todos los foreros

Necesito ayuda urgente para calcular fechas en VB no tengo la menor idea de como se hace, voy a poner la sintax de lo que quiro a ver si me pueden ayudar:

Controles:
TxtNumero de Dias
Txtnumero de meses
TxtFecha actual
TxtFecha Calculada
Timer para Verificar si la Fecha se paso de ese periodo y avisar

Sub CmdCalcular_Click()

dim nMes as integer

nMes= val(txtnumero de meses)

txtFecha Calculada = TxtFecha actual + nMes

end sub


Sub Timer
dim nDias as Integer 'Numero de días

if txtFecha Calculada < TxtFecha Actual then

nDias = TxtFecha actual - TxtFecha Calculada

TxtDias que han pasado = "La fecha esta caducada por " & nDias & " cantidad de dias"

end if

end sub

le agradecere la ayuda que me puedan brindar de antemano gracias!

saludos
hmtech

[lucasiramos]

Hola. ¿Cual es el problema? ¿Te tira error? ¿De que tipo? ¿No te tira error pero no calcula bien? En principios, la logica del codigo deberia funcionar (aunque no logro entender muy bien lo que estas haciendo)

¿Los nombres de los controles los tenes con espacios?

Saludos. Lucas

[GeoAvila]

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 (26/Mar/97)
'(c) Guillermo Som, 1997
Option Explicit


Private Sub Command1_Click()
Dim t0 As Variant, t1 As Variant

'Text1 Tendrá una fecha anterior
'Text2 tendrá la nueva fecha
t0 = DateValue(Text1)
t1 = DateValue(Text2)
Label1 = t1 - t0

End Sub


Private Sub Command2_Click()
Dim t0 As Variant, t1 As Variant

'Text3 Tendrá una hora anterior
Text4 = Format(Now, "hh:mm:ss")
t0 = Format(Text3, "hh:mm:ss")
t1 = Format(Text4, "hh:mm:ss")
Label2 = Format(TimeValue(t1) - TimeValue(t0), "hh:mm:ss")

End Sub


Private Sub Form_Load()
'Para probar la diferencia de fechas
Text1 = DateValue(Now)
Text2 = DateValue(Now + 10)
'
'Para probar la diferencia de horas
Text3 = Format(Now, "hh:mm:ss")
Text4 = Format(Now, "hh:mm:ss")

Command1_Click
Command2_Click
End Sub