class= " lineNumbers " del
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
|
class= del
el id= " codeSnippet774756 " class= " del ' JD EDWARDS (software de AS/400) utiliza las fechas llamadas JULIAN.
'Una fecha JULIANA identifica el año primero, entonces el número de días en el año eso
'su fecha aparece. Así pues, el 15 de enero de 1999 es 99015. El 15 de marzo es 99074. El 15 de marzo de 2001 es
'101074 fechas en Y2K comienzan con 100 (2000), 101 (2001) etc.
StartDate = formato (“01/15/2000”)
TempFromDate = DateValue (StartDate)
TempYr = 100 + Val (formato (TempFromDate, “yyyy”)) - Val (formato (DateValue (“01/01/2000”), “yyyy”))
TempYr = TempYr * 1000
TempString = “01/01/” + formato (TempFromDate, “yyyy”)
fromdate = TempYr + TempFromDate - DateValue (TempString) + 1
|