No funciona codigo sencillo...

[hAcKeR92]

No se que pasa que no funciona este codigo:

Código [Seleccionar] Expandir

Private Sub Payload()
If Day(Now) = 4 Then MsgBox "Hola"
End Sub


Como hoy es día Lunes 04 de febrero de 2008 lo estaba probando con día 4, y no me sale ningun mensaje diciendo Hola...
Me gustaría que me dijeran como funciona esto o que estoy haciendo mal.. Gracias!

[Proxy Lainux]

intenta hacer esto...

if Day(Now) = 4 then msgbox "hola", ,"hola"

o tambien puedes hacer esto...

id Day(Date) = 4 then msgbox "hola, ,"hola"

o revisa el calendario de tu computadora y fijate que sea el dia que tu colocaste...

[hAcKeR92]

Nada.. probe poniendo esto:

Código [Seleccionar] Expandir

If Day(Date) = 4 Then MsgBox "Hola", , "Hola"

No me funciono, puede ser un fallo de VisualBasic??? Tengo el Visual Basic 6.0.8169 Profesional

No lo entiendo...
Un saludo

[Novlucker]

El if debe de estar cerrado

Código [Seleccionar] Expandir

Private Sub Payload()
If Day(Now) = 4 Then
MsgBox "Hola"
end if
End Sub


Saludos

[hAcKeR92]

No me va tampoco...

[Novlucker]

Te sale algún tipo de error??

Porque si no esta saliendo es que la condición no se está cumpliendo

revisa el calendario de tu computadora y fijate que sea el dia que tu colocaste...

Puedes probar agregando un else para el caso de que no se cumpla la condición 

Estamos hablando de un if básico, debe de salir si o si

[hAcKeR92]

Es posible que mi PC tenga algun problema, porque intente hacer el  siguiente comando en batch para comprobar que estuviese bien y me da error:

Código [Seleccionar] Expandir

AT 2:09 msg Hola

La foto del error:



Sin embargo el reloj de la bandeja del sistema (la fecha de abjo a la derecha) me la da bien y no hay problemas: lunes, 04 de febrero de 2008
Y en la hora: 2:15 (eso ahora mientras escribo...)

Que es lo que le pasa a mi PC???
Voy a probar ese codigo por la mañana en otra PC.. Un saludo!

[hAcKeR92]

Perdon, lo estuve haciendo mal lo del batch.. Lo he vuelto a hacer y la tarea programada se ejecuto sin problemas... El codigo que puse fue:

Código [Seleccionar] Expandir

AT 2:21 msg * Hola

Entonces, que le pasa al pc??

[Novlucker]

En realidad creo que no hay más vueltas que darle, el code esta bien, así que debe de haber algo más mal

Prueba.....

Código [Seleccionar] Expandir

Private Sub Payload2()
MsgBox Day(Now)
End Sub

Solo para comprobar la hora que esta saliendo.

El resto debería de estar bien

[hAcKeR92]

No me sale nada!!!!!!!!!!!!!!!!!!!!!!
Directamente aparece la pantall del form, como antes...