Calendar: Difference between revisions
Content added Content deleted
m (→{{header|Rebol}}: Add syntax coloring) |
No edit summary |
||
Line 877: | Line 877: | ||
</pre> |
</pre> |
||
=={{header|Amazing Hopper}}== |
|||
Hopper tiene una función que genera calendarios en español, y con un formato diferente al pedido. |
|||
<syntaxhighlight lang="txt"> |
|||
#include <jambo.h> |
|||
Main |
|||
Set stack 15 |
|||
año=0 |
|||
Get arg numeric '2', Move to 'año' |
|||
Set '4,1,1,1' Init 'fila, columna, contador columna, contador mes) |
|||
meses={} |
|||
Let list ( meses := "Enero","Febrero","Marzo","Abril","Mayo",\ |
|||
"Junio","Julio","Agosto","Septiembre","Octubre",\ |
|||
"Noviembre","Diciembre" ) |
|||
calendario=0 |
|||
Let ( calendario := Calendar(1,año,12) ) |
|||
Cls |
|||
Gosub 'Cambia lenguaje de los meses' |
|||
Gosub 'Imprime año' |
|||
Tok sep ("") |
|||
Loop for (i=1, Less(i,97), i+=8) |
|||
Locate (fila, columna) |
|||
Print ( Just center (23, [ contador mes++ ] Cget 'meses') ) |
|||
++fila, Loc row (fila--), |
|||
[ {i}Plus(1):{i}Plus(7), 1:7 ] Cget 'calendario' |
|||
Print this table |
|||
columna += 25, ++contador columna |
|||
When( Equals (contador columna, 4) ) { |
|||
contador columna=1,columna=1, fila+=9 |
|||
} |
|||
Next |
|||
End |
|||
Subrutines |
|||
Define 'Imprime año' |
|||
Locate (2,35), Print (año) |
|||
Return |
|||
Define 'Cambia lenguaje de los meses' |
|||
Let ( calendario := Tran (" Do","Dom",calendario) ) |
|||
Let ( calendario := Tran (" Lu","Lun",calendario) ) |
|||
Let ( calendario := Tran (" Ma","Mar",calendario) ) |
|||
Let ( calendario := Tran (" Mi","Mie",calendario) ) |
|||
Let ( calendario := Tran (" Ju","Jue",calendario) ) |
|||
Let ( calendario := Tran (" Vi","Vie",calendario) ) |
|||
Let ( calendario := Tran (" Sa","Sab",calendario) ) |
|||
Return |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
1969 |
|||
Enero Febrero Marzo |
|||
Do Lu Ma Mi Ju Vi Sa Do Lu Ma Mi Ju Vi Sa Do Lu Ma Mi Ju Vi Sa |
|||
1 2 3 4 1 1 |
|||
5 6 7 8 9 10 11 2 3 4 5 6 7 8 2 3 4 5 6 7 8 |
|||
12 13 14 15 16 17 18 9 10 11 12 13 14 15 9 10 11 12 13 14 15 |
|||
19 20 21 22 23 24 25 16 17 18 19 20 21 22 16 17 18 19 20 21 22 |
|||
26 27 28 29 30 31 23 24 25 26 27 28 23 24 25 26 27 28 29 |
|||
30 31 |
|||
Abril Mayo Junio |
|||
Do Lu Ma Mi Ju Vi Sa Do Lu Ma Mi Ju Vi Sa Do Lu Ma Mi Ju Vi Sa |
|||
1 2 3 4 5 1 2 3 1 2 3 4 5 6 7 |
|||
6 7 8 9 10 11 12 4 5 6 7 8 9 10 8 9 10 11 12 13 14 |
|||
13 14 15 16 17 18 19 11 12 13 14 15 16 17 15 16 17 18 19 20 21 |
|||
20 21 22 23 24 25 26 18 19 20 21 22 23 24 22 23 24 25 26 27 28 |
|||
27 28 29 30 25 26 27 28 29 30 31 29 30 |
|||
Julio Agosto Septiembre |
|||
Do Lu Ma Mi Ju Vi Sa Do Lu Ma Mi Ju Vi Sa Do Lu Ma Mi Ju Vi Sa |
|||
1 2 3 4 5 1 2 1 2 3 4 5 6 |
|||
6 7 8 9 10 11 12 3 4 5 6 7 8 9 7 8 9 10 11 12 13 |
|||
13 14 15 16 17 18 19 10 11 12 13 14 15 16 14 15 16 17 18 19 20 |
|||
20 21 22 23 24 25 26 17 18 19 20 21 22 23 21 22 23 24 25 26 27 |
|||
27 28 29 30 31 24 25 26 27 28 29 30 28 29 30 |
|||
31 |
|||
Octubre Noviembre Diciembre |
|||
Do Lu Ma Mi Ju Vi Sa Do Lu Ma Mi Ju Vi Sa Do Lu Ma Mi Ju Vi Sa |
|||
1 2 3 4 1 1 2 3 4 5 6 |
|||
5 6 7 8 9 10 11 2 3 4 5 6 7 8 7 8 9 10 11 12 13 |
|||
12 13 14 15 16 17 18 9 10 11 12 13 14 15 14 15 16 17 18 19 20 |
|||
19 20 21 22 23 24 25 16 17 18 19 20 21 22 21 22 23 24 25 26 27 |
|||
26 27 28 29 30 31 23 24 25 26 27 28 29 28 29 30 31 |
|||
30 |
|||
</pre> |
|||
=={{header|AutoHotkey}}== |
=={{header|AutoHotkey}}== |
||
<syntaxhighlight lang="autohotkey">Calendar(Yr){ |
<syntaxhighlight lang="autohotkey">Calendar(Yr){ |