Pascal/Turbo Pascal - Pascal calculo de fecha

   
Vista:

Pascal calculo de fecha

Publicado por Miguelangel (7 intervenciones) el 22/09/2016 17:55:57
Calcular cuantos días faltan hasta el 31 de diciembre. Urgente
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

Pascal calculo de fecha

Publicado por ramon (2109 intervenciones) el 22/09/2016 21:45:08
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
{Mira Esto}
 
program diasquefaltan;
  uses
     crt, dos;
 
   const
     mesesbi : array[1..12] of word = (31, 29, 31, 30, 31,
 
30, 31, 31, 30,
                                                       31,
 
30, 31);
     meses : array[1..12] of word = (31, 28, 31, 30, 31,
 
30, 31, 31, 30,
                                                       31,
 
30, 31);
 
    var
    ano, mes, dia, diasem : word;
    actual, mesant, diaant, posterior : word;
    faltan : word;
    u : integer;
 
  function bisiesto(ano3 : word) : boolean;
  var
     bb, bx, by : real;
  begin
     bx := frac(ano3/4);
     by := frac(ano3/100);
     bb := frac(ano3/400);
     if ((bx = 0) and (by > 0)) or ((bx = 0) and (bb = 0))
 
then
     bisiesto := true
   else
     bisiesto := false;
  end;
 
 
   procedure toma_fechas;
   begin
       getdate(ano, mes, dia, diasem);
       actual := ano;
       mesant := mes;
       diaant := dia;
       posterior := ano - 1;
   end;
 
 
 
   begin
       clrscr;
      toma_fechas;
      writeln(' La Fecho Actual Es :

',diaant,':','',mesant,':','',actual);
      faltan := 0;
      if bisiesto(actual) then
      begin
      faltan := faltan + (mesesbi[mesant] - diaant);
      for u := mesant + 1 to 12 do
      begin
         faltan := faltan + mesesbi[u];
      end;
    end
  else
     begin
        faltan := faltan + (meses[mesant] - diaant);
        for u := mesant + 1 to 12 do
      begin
         faltan := faltan + meses[u];
      end;
     end;
      writeln('  Faltan Dias Para 31 De Diciembre :

',faltan);
      readkey;
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Pascal calculo de fecha

Publicado por Miguelangel (7 intervenciones) el 26/09/2016 16:57:20
Gracias. Hay fórmulas q aun no las he estudiado como el array. Excelente
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