Pascal/Turbo Pascal - Utilizacion de GetDate y GetTime

   
Vista:

Utilizacion de GetDate y GetTime

Publicado por Ignacio (12 intervenciones) el 11/12/2008 10:13:02
Buenos días, mi duda es muy concreta, yo quiero asignar la hora y la fecha de mi sistema a dos variables, para lo cual dispongo en TurboPascal de dos procedimientos en la unidad Dos que los puedo llamar. Mi duda es que no se utilizarlos. ¿Alguien me podría mostrar un ejemplo sencillo de como asignarle a dos variables la hora y fecha que tenga en ese momento el sistema? Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Utilizacion de GetDate y GetTime

Publicado por Alexandra (1 intervención) el 19/12/2008 02:24:21
program tiempo;
uses dos;
type TFecha = record
dia,mes,anio:word;
{la variable word almacena un número en doble dígito, ej: 00, 07, 28...}
THora = record
hr,min,seg:word
var d,m,a,ds: word;
{al usar getdate deberás utilizar 4 variables: dia, mes, año, dia de la semana}
h,mn,s,c: word; {para gettime hora, minutos, segundos, centesimas}
fecha: TFecha;
hora: THora;
begin
with fecha do
getdate(d,m,a,ds);
{Aunque una de las variables como el dia de la semana o el año no los necesites debes ponerlos en getdate!!}
{Por ejemplo para mostrar la fecha por pantalla:}
writeln(fecha.dia, '/', fecha.mes,'/', fecha.anio);
end.


Bueno y para gettime es lo mismo, espero haberte ayudado ciao
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Utilizacion de GetDate y GetTime

Publicado por s (1 intervención) el 05/11/2009 03:35:06
ssssss
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar