Pascal/Turbo Pascal - Hora y dia de la semana Pascal

   
Vista:

Hora y dia de la semana Pascal

Publicado por gaston (1 intervención) el 04/07/2013 04:22:53
Hola buenas noches estoy realizando un programa en pascal el mismo se trata d un control de asistencia de una empresa, a groso modo ya tengo definido todo ya sea carga de los empleados, busqueda de empleados, carga de los turnos busqueda de turnos me queda pendiente el registro de entrada y salida de cada empleado, en ese punto necesito el dia de la semana(lunes,martes,miercoles) de una determinada fecha que ingreso, lei que con el gettdate se puede hacer pero no entiendo como ademas de que si defino las variables como word no me deja compilar por incopatibilidad, tambien tengo el mismo problema con la hora en la que ingresa o egresa nose como hacerlo con la funcion gettime, espero su ayuda.
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

Hora y dia de la semana Pascal

Publicado por ramon (2072 intervenciones) el 04/07/2013 11:54:07
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
{Mira esto te ayudara a comprender las formas}
 
 
program calendario;
uses
   crt, dos;
 type
   dato = record
          hayo : word;
          mese : word;
          dias : word;
          dise :  word;
        end;
 
      fech = array[1..2] of word;
 
   var
     dia, mes, ayo, disem : word;
     fecha : dato;
     cont : integer;
     fh : fech;
 
  procedure guardafecha;
  begin
      getdate(ayo, mes, dia, disem);
      fecha.hayo := ayo;
      fecha.mese := mes;
      fecha.dias := dia;
      fecha.dise := disem;
  end;
 
  procedure ponfechaanterior;
  begin
      setdate(fecha.hayo, fecha.mese, fecha.dias);
  end;
 
  procedure entrafecha(var fh : fech);
  var
    di, ay : word;
    x, y : integer;
  begin
      x := 20;
      y := 2;
      gotoxy(x,y);write('Entre Fecha Mes y A¤o');
      gotoxy(32,y + 1);readln(fh[1]);
      gotoxy(38,y + 1);readln(fh[2]);
  end;
 
  procedure ponfechaconsulta;
  const
     meses : array[1..12] of string[10] = (
     'Enero','Febrero','Marzo','Abril','Mayo','Junio',
     'Julio','Agosto','Septiembre','Octubre','Noviembre','Diciembre');
  var
    t, di, me, ay, id, ds : word;
    cadi, came : string[2];
    caay : string[4];
    x1, y1, erro : integer;
    salir : boolean;
   begin
      entrafecha(fh);
      guardafecha;
      setdate(fh[2],fh[1],1);
      id := 1;
      salir := false;
      y1 := 7;
      x1 := 20;
      gotoxy(x1 + 3,y1 - 1);write('Los Domingos [',meses[fh[1]],'] Son');
     repeat
     t := id;
     setdate(fh[2],fh[1],t);
     getdate(ay,me,t,ds);
     if ds = 0 then
     x1 := x1 + 4;
     if ds = 0 then
     begin
       textcolor(4);
       gotoxy(x1 - 4,y1 + 1);write(t);
       textcolor(15);
     end;
     id := id + 1;
     until (id > 31) or (salir = true);
     ponfechaanterior;
   end;
 
 
   begin
       clrscr;
       ponfechaconsulta;
       readln;
   end.
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