Congelar el reloj de Windows

[verzulsan]

No se si se le puede llamar aporte, pero he visto ya muchas preguntas de como se puede parar el reloj de SO, ya sea para hacer pruebas o para hacer trampas en los juegos.

Ejecutando la siguiente macro, siempre será las 13 horas 37 minutos y 59 segundos.

Sub StopClock()

    Do While 1

        Time = DateAdd("n", 0, "13:37:59")

        DoEvents

    Loop

End Sub[/CODE]

Saludos!

[Invitado Cacho R]

Mi estimado verzulsan:

Es sabido que en ámbitos como la mercadotecnia, la publicidad y otros se utiliza frecuentemente una técnica llamada: Lluvia o tormenta de ideas (brainstorming).

Se busca que -sin prejuicios de ninguna naturaleza- un equipo de gente comience a "tirar" ideas (disparatadas, interesantes, con humor, profundas o superficiales) sobre el tema en cuestión. Luego de tomar nota sobre todas ellas comienza el proceso de extraer -de cada aporte hecho- la simiente de una "gran idea".

Permíteme tomar tu propuesta (fraudulenta como pocas... ¡Y no digas que no!)

... parar el reloj de SO, ya sea para hacer pruebas o para hacer trampas en los juegos...

(ja ja ja ja ja ja ja ja ja)

para aplicarla en aquellos libros a los que se les pone una fecha de expiración vía VBA.

¿Qué nos enseña tu código?...

Pues que el control de la fecha/hora debe hacerse vía internet entrando a una página confiable.

¡Buen aporte el tuyo!

Saludos, Cacho R.

[Antoni]

¡ Jo ! Apareces poco, pero se nota.

Un abrazo.

[verzulsan]

Hola Cacho, en este caso me has pillado y era para hacer trampas jejeje. Me mola que tras cada idea siempre haya alguien que sabe llevarla al siguiente nivel, ¡asi uno nunca se aburre!.

¡Antoni!, a ti es dificil hacerte sombra, a ver si encuentro tiempo para volver aqui a darte guerra :beguiled: Un abrazo igualmente. :semi-twins:

Salu2 a los 2

[pegones1]

verzulsan, ya puestos, ¿por qué no parar el tiempo en un pasado mejor? :suspicion:

Sub StopClock2()

    Dim MiFecha, MiTiempo


    MiFecha = #7/17/1957#

    Date = MiFecha

    MiTiempo = #1:37:59 PM#

    Do While 1

        Time = MiTiempo

        DoEvents

    Loop

End Sub

[/CODE]

Lo de usar la función DateAdd es una de tus filigranas. :peaceful:

[verzulsan]

Pedro!!! [ATTACH]34608.vB[/ATTACH]

Jajaja la filigrana DateAdd venia en la ayuda de office :onthego:

Has llevado la macro a otro nivel, pero, por que conformarse con el pasado?

[ATTACH]34607.vB[/ATTACH].

Un saludo amigo.