¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
System i5 iSeries AS400 Recursos. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Noticias tecnológicas

Utilidades. Función en VB para convertir fechas de juliana a gregoriana

Funcion realizada en Visual Basic para convertir fecha de julianas a gregorianas y viceversa.

Function CGregoJulian(Grego As String) As String

Dim YYYY As Variant

Dim AñoJ As Integer

Dim Years As String

Dim MyDate As Date

MyDate = CDate(Grego)

YYYY = Year(Grego)

If YYYY <= 1999 Then

Years = Right(YYYY, 2)

Else

AñoJ = CInt(Right(YYYY, 2)) + 100

Years = CStr(AñoJ)

End If

CGregoJulian = Years + Format(MyDate - DateSerial(Year(MyDate) - 1, 12,

31), "000")

End Function

Function CJulianGrego(JulDay As String) As String

' OBJETIVO: Convertir un día juliano en una fecha.'

' Funciona con fechas basadas en el calendario gregoriano '

' (moderno). '

' Recibe como parametro la fecha juliana

' Y devuelve la fecha en formato gregoriano

Dim Years As String

Dim Days As Integer

Dim YYYY As Variant

Days = CInt(Right(JulDay, 3))

If Len(JulDay) = 5 Then

YYYY = 1900 + (JulDay \ 1000)

Else

Years = Left(JulDay, 3)

YYYY = 2000 + CInt(Right(Years, 2))

End If

If Days > 0 And Days < 366 Or Days = 366 And YYYY Mod 4 = 0 And YYYY Mod

100 <> 0 Or YYYY Mod 400 = 0 Then

CJulianGrego = DateSerial(YYYY, 1, Days)

End If

End Function

Puedes verlo en formato texto aquí
Utilidad desarrollada por Wilber Martinez Rasgado


14-11-2001


 

NUESTRA COMUNIDAD EN
ÚNETE Y.... ¡¡ PARTICIPA !!
Dossiers técnicos iSeries y AS400
- Seguridad
- Alta disponibilidad.
Nuestros links favoritos
- Tendencias tecnologías de la información
Expertos en tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware y shareware para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400. Es una web de: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049