OBTENER LA FECHA Y HORA DEL SISTEMA



Dos procedimintos interesantes son gettime y getdate que se encuentras dentro de la unidad dos que debera estar presente dentro de uses cuando se quiera utilizar los procedimientos antes mencionados.

gettime, obtiene la hora del sistema (la que aparece en windows), por su parte getdate ¡adivinen!, obtiene la fecha del sistema, ambas tienen una sintaxis muy similar.

gettime(hora,minutos,segundos,milesimas);

getdate(anio,mes,dia,dia_de_semana);

Todas las varibales pasadas como parametro deben ser de tipo word, dia_de_semana devuelve el dia de la semana donde 0 es domingo y 6 es sabado.


program fecha_y_hora;
uses crt,dos;

var
    anio,mes,dia,diasemana,
    hora,minuto,segundo,centesima:word;
    dias:string;

begin
clrscr;
      gettime(hora,minuto,segundo,centesima);
      getdate(anio,mes,dia,diasemana);
      writeln('la hora actual es: ', hora,':',minuto,':',segundo,':', centesima);

      case diasemana of
             0:dias:=Domingo;
             1:dias:=Lunes;
             2:dias:=Martes;
             3:dias:=Miercoles;
             4:dias:=Jueves;
             5:dias:=Viernes;
             6:dias:=Sabado;
         end;

     write('Hoy es ',dias,' ',dia,'/',mes,'/',anio);
readkey;
end.


Otros procedimientos interesantes son setdate y settime para cambiar la fecha y hora respectivamente, la sintaxis es practicamente igual a gettime y getdate.

setdate(año,mes,dia);

settime(hora,minuto,segundo,centesima);


Las varibales que se pasan como parametros deben ser igualmente de tipo word , en setdate, el sistema coloca automaticamente el dia de la semana, si se pasan como parametros fechas u horas incorrectas no se realizara ningun cambio.

Descarga el ejemplo


Regresar


inicio
Si llegaste a esta pagina desde un buscador
haz click aqui para ir a la pagina principal