GV

GeezerVison

The World Wide Web, restored to 800 pixels of glory.

Home|About|Gaming cabinet|Archives|How it works|Starter sites

On this site

  • Sign in
  • ActionsCI/CD and automation
  • CodespacesCloud development environments
  • All Features
  • Documentation
  • Training
  • Certifications
  • Build with Copilot
  • Customize Copilot
  • Integrations
  • Trending repos
  • GitHub Sponsors
  • Developer articles
  • Enterprises

This view

  • Original page
  • New address

GeezerVison is showing github.com — smallbasic.github.io/samples/node/1083.bas at master · smallbasic/smallbasic.github.io

Expand file tree

/

1083.bas

Copy path
More file actions
More file actions

Latest commit

 

History

History
History
93 lines (76 loc) · 1.65 KB
/

1083.bas

Copy path

File metadata and controls

93 lines (76 loc) · 1.65 KB
Raw
Copy raw file
Download raw file
Open symbols panel
Edit and raw actions
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
You are visitor 01402520 — GeezerVison does not store the pages you look up.
Best viewed with Netscape Navigator 4.7 or Internet Explorer 6 at 800×600. No cookies required.