Día de la semana, etc

Dia de la semana, etc

Dia de la semana, etc : Multi-millones de consejos para hacer su vida mas facil.

el Dia de la semana, el Dia de año etc

Colaborador: SWAG EQUIPO de SOPORTE

Programa Gregoriano { dia Juliano al Gregoriano fecha }
Utiliza Crt { Turbo/Rapido Pascal }
Tipo de String3 = Cadena[3]
String9 = Cadena[9]
Const MonthName : Array [1..12] de String3 =
( & #39 Ene & #39 , & #39 Feb & #39 , & #39 Mar & #39 , & #39 Abr & #39 , & #39 Mayo & #39 , & #39 Jun & #39 ,
& #39 Jul & #39 , & #39 Ago & #39 , & #39 Sep & #39 , & #39 Oct & #39 , & #39 Nov & #39 , & #39 Dic & #39 )
DayName : Array [1..7] de String9 =
( & #39 domingo & #39 , & #39 lunes & #39 , & #39 martes & #39 , & #39 miercoles & #39 ,
& #39 jueves & #39 , & #39 viernes & #39 , & #39 sabado & #39 )
Var Dia, JulianDay, F : Real
Mes : Byte
Año : Integer
a, B, C, D, E, G, Z : LongInt
LeapYear : Boolean

la Funcion de DayofWeek( Mes : Byte Dia : Real Año : Integer ): Byte
Var iVar1, iVar2 : Integer
begin
iVar1 := Año MOD 100
iVar2 := TRUNC( Dia ) iVar1 iVar1 div 4
para el Caso del Mes de
4, 7 : iVar1 := 0
1, 10 : iVar1 := 1
5 : iVar1 := 2
8 : iVar1 := 3
2,3,11 : iVar1 := 4
6 : iVar1 := 5
9,12 : iVar1 := 6
end {Casos}
iVar2 := ( iVar1 iVar2 ) MOD 7
si ( iVar2 = 0 ) entonces iVar2 := 7
DayofWeek := Byte( iVar2 )
end {DayofWeek}

la Funcion de DayofTheYear( Mes : Byte DIA : Real ): Integer
Var N : Integer
begin
si LeapYear entonces N := 1 else N := 2
N := 275 * Mes div 9
- N * (( Mes 9 ) div 12)
TRUNC( Dia ) - 30
DayofTheYear := N
end {DayofTheYear}

begin {Gregoriano}
ClrScr
WriteLn( & #39 fechas Gregorianas v0.0 Dic.91 Greg Vigneault & #39 )
WriteLn( & #39 [Enter dia Juliano valores] & #39 )

Repeat WriteLn
Escribir( & #39 Enter (positivo) numero de dia Juliano: & #39 )
ReadLn( JulianDay )
Hasta que ( JulianDay >= 706.0 )

JulianDay := JulianDay 0.5
Z := TRUNC( JulianDay ) F := FRAC( JulianDay )

if ( Z < 2299161 )
R := Z
otra cosa de empezar G := TRUNC( ( Z - 1867216.25 ) / 36524.25)
R := Z 1 G - G div 4
end {si}

B := A 1524 C := TRUNC( ( B - 122.1 ) / 365.25 )
D := TRUNC( 365.25 * C ) E := TRUNC( ( B - D ) / 30.6001 )

Dia := B - D - TRUNC( 30.6001 * E ) F

if ( E < 13.5 )
a continuacion, Mes := Byte( E - 1 )
else if ( E > 13.5 ), a continuacion, Mes := Byte( E - 13 )

if ( Mes > 2.5 )
Año := Integer( C - 4716 )
else if ( Mes < 2.5 ) Año := Integer( C - 4715 )

si ((MOD 100)<>0) y ((Año MOD 4)=0)
a continuacion, LeapYear := True
otra cosa LeapYear := False

Escribir(#10, & #39 Gregoriano & #39 ) si LeapYear entonces Escribir( & #39 LeapYear & #39 )
WriteLn( & #39 fecha es & #39 ,DayName[DayofWeek(Mes,Dia,Año)],
& #39 , & #39 ,Nombremes[ Mes ], & #39 & #39 ,Dia:2:2, & #39 , & #39 ,Año:4,
& #39 (dia de año= & #39 ,DayofTheYear(Mes,Dia), & #39 ) & #39 ,#10)
final. {Gregoriano}