-
Notifications
You must be signed in to change notification settings - Fork 4
Expand file tree
/
Copy path1083.bas
More file actions
93 lines (76 loc) · 1.65 KB
/
Copy path1083.bas
File metadata and controls
93 lines (76 loc) · 1.65 KB
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
92
'************************************************************************
'* Autor: Luis A. Díaz *
'* Programa para calcular el dia de una fecha *
'************************************************************************
INPUT "Introduzca la fecha DD/MM/AAAA";fecha
'extraer el dia, el mes y el año
primero = instr(1, fecha, "/")
segundo = instr(4, fecha, "/")
dia = left(fecha, primero -1)
año = right(fecha, 4)
mes = mid(fecha, primero+1, segundo-primero-1)
'calculo del digito 1
digito1 = val(dia)
'calculo del digito 1
digito2 = val(right(fecha,2))
'calculo del digito3
'comprobacion de si es bisiesto o no
if ((año % 4 == 0 AND año % 100 != 0) OR año % 400 == 0) THEN
bisiesto = 1
else
bisiesto = 0
endif
Select case mes
case 1
if bisiesto = 0 then
digito3 = 0
else
digito3 = 6
endif
case 2
if bisiesto = 0 then
digito3 = 3
else
digito3 = 2
endif
case 3
digito3 = 3
case 4
digito2 = 6
case 5
digito3 = 1
case 6
digito3 = 4
case 7
digito3 = 6
case 8
digito3 = 2
case 9
digito3 = 5
case 10
digito3 = 0
case 11
digito3 = "3"
case 12
digito3 = 5
end select
'digito 4
digito4 = val(left(año,2))
digito4 %= 4
digito4 -= 3
digito4 *= -2
'digito 5
año5 = right(año,2)
digito5 = año5 \ 4
digito = val(digito1) + val(digito2) + val(digito3) + val(digito4) + val(digito5)
print "digito=";digito
digito %= 7
if digito = 0 then dia2 = "Domingo"
if digito = 1 then dia2 = "Lunes"
if digito = 2 then dia2 = "Martes"
if digito = 3 then dia2 = "Miércoles"
if digito = 4 then dia2 = "Jueves"
if digito = 5 then dia2 = "Viernes"
if digito = 6 then dia2 = "Sabado"
print "El "; fecha; " es ";dia2
end