Reloj del sistema que avance
Publicado por soulblazer (19 intervenciones) el 06/03/2013 17:03:46
Hola tengo este código:
Obtiene la hora actual del sistema y todo... pero yo quiero vayan avanzando los segundos y demás.
Muchas gracias :)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program sistem_time;
uses crt, dos;var
hora, minuto, segundo, microseg, mes, dia, annio, diasemana : word;
begin
clrscr;
gettime(hora, minuto, segundo, microseg); {obtiene la hora}
getdate(annio, mes, dia, diasemana); {obtiene la fecha}
gotoxy(20,3);
write('----------------------------------------');
gotoxy(20,4);
writeln('La hora del sistema es: ',hora, ':',minuto,':',segundo);
gotoxy(20,5);
writeln('Y la fecha del sistema es: ',dia,'/',mes,'/',annio);
gotoxy(20,6);
write('----------------------------------------');
readln;
end.Obtiene la hora actual del sistema y todo... pero yo quiero vayan avanzando los segundos y demás.
Muchas gracias :)
Valora esta pregunta
0
