Estoy buscando urgentemente un código de cuenta regresiva para los Juegos Olímpicos de Beijing 2008. Debe estar escrito en lenguaje VB.
Programación: Cuenta atrás para los Juegos Olímpicos de 2008
'Nota: El horario de apertura de los Juegos Olímpicos será el 8 de agosto de 2008 a las 20 horas
'Añadir un Temporizador
Y una etiqueta
Privada
Sub
Form_Load()
Temporizador1.Interval
=
1000
Fin
Sub
Privado
Sub
Timer1_Timer()
aoyun
=
#8/8/2008#
a
=
19
-
Hora(Hora)
b
=
DateDiff("d ",
Ahora,
aoyun)
Si
a
lt;
Entonces
a
=
24
a
b
=
b
-
1
Fin
Si
p>
Label1
=
"Aún falta tiempo para la inauguración de los Juegos Olímpicos"
amp;
b
amp;
"día"
amp;
a
amp;
"hora"
amp;
59
-
Minuto( Tiempo)
amp;
"minutos"
amp;
59
-
Segundo(Tiempo)
amp;
"Segundos"
Fin
Sub