Obtener / establecer fecha y hora del sistema

Obtener / establecer fecha y hora del sistema

Obtener / establecer fecha y hora del sistema : Multi-millones de consejos para hacer su vida mas facil.

Configuracion del sistema de PC Fecha/hora

Colaborador: CARLOS BEGUIGNE

{Creado por Carlos Beguinge, Septiembre 12, 1993}
{Programa para obtener los sistemas fecha con [GetDate] y permitiendo que usted
cambiar la fecha con [SetDate]. Sientase libre de incorporar en cualquier
otro codigo, y el cambio que usted lo desee... Disfrutar.}
{P. S. los cambios realizados para que este codigo sea mejor por favor enviar de nuevo a mi
describa los cambios, Gracias.}

utiliza Dos, Crt

const
dias : array [0..6] of String[9] = {de la Matriz de los dias Laborables establecidos aqui}
( & #39 domingo & #39 , & #39 lunes & #39 , & #39 martes & #39 ,
& #39 miercoles & #39 , & #39 jueves & #39 , & #39 viernes & #39 ,
& #39 sabado & #39 )
var
y, m, d, dow, I, Codigo : Palabra {Configuracion de las variables aqui}
changedt, cch : Char
flagd, flagm, flagy : boolean
ch : String

de inicio del procedimiento(Codigo: Word) hacia Adelante {A permitir avanzar en un }
{procedimiento. Se utiliza para el Error }
{Comprobacion. }

el procedimiento de calcular {Llamada de Inicio de procedimiento de }
begin {se Mueve la cadena numerica a }
Val(ch, me, Codigo) {valor numerico. a continuacion, comprueba }
si el codigo <> 0 then {en busca de errores. si el error true }
begin {luego de la Llamada de Inicio del procedimiento }
clrscr
Writeln( & #39 Error en la Fecha de Declaracion & #39 , & #39 Presione cualquier tecla para Iniciar de Nuevo & #39 )
readln
iniciar(Codigo)
end {Else Proceso Mes, Dia, y}
si (flagm = false) then {Año. }
begin
m := I
flagm := true
escribir(cch)
cch :=#0
fin
si (flagd = false) y (cch > #0) entonces
begin
d := I
flagd := true
escribir(cch)
cch :=#0
fin
si (flagy = false) y ( cch > #0) entonces
begin
y := I
flagy := true
cch :=#13
fin
ch := & #39 & #39
fin

procedimiento ResetVars {Llamada de procedimiento Inicio }
begin {Restablece todas las variables. }
clrscr
Codigo :=0
d :=0
m :=0
y :=0
flagd := false
flagm := false
flagy := false
ch := & #39 & #39
cch := #0
fin

inicio de procedimiento de {Llamada desde el Programa Principal }
begin
ResetVars {Llama al procedimiento ResetFields }
mientras (ccs <> #13) do {Obtiene la entrada desde el teclado}
begin {hasta que un '/' o 'Enter es }
cch := readkey {presionado. }
mientras (ccs <> #47) y (ccs <> #13)
begin
ch := ch cch {Agrega la cada numerico de los perso}
escribir(cch) {ter a la variable de cadena }
cch := readkey
fin
calcular {Llama al procedimiento Calcular }
fin
fin

begin {Programa Principal que llama a }
clrscr {Inicio del procedimiento }
GetDate(y,m,d,dow)
Writeln( & #39 en la Actualidad es & #39 , dias[dow], & #39 , & #39 ,
m:0, & #39 / & #39 , d:0, & #39 / & #39 , y:0)
Writeln
Escribir( & #39 te gustaria cambiar esta Fecha? & #39 )
readln(changedt)
si upcase(changedt) = & #39 Y & #39
begin
iniciar(Codigo)
clrscr
SetDate(y,m,d) {Establece la Fecha si se Cambia }
Writeln( & #39 en la Actualidad es & #39 , dias[dow], & #39 , & #39 ,
m:0, & #39 / & #39 , d:0, & #39 / & #39 , y:0)
readln
fin
else
begin {Fecha permanece intacta }
Writeln( & #39 en la Actualidad & #39 #39 & #39 s fecha NO Se ha cambiado & #39 )
Writeln( & #39 en la Actualidad es & #39 , dias[dow], & #39 , & #39 ,
m:0, & #39 / & #39 , d:0, & #39 / & #39 , y:0)
readln
fin
final.