class= " lineNumbers " del
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
|
class= del
il id= " codeSnippet774756 " class= " del ' JD EDWARDS (software di AS/400) usa le date denominate JULIAN.
'Una data di JULIAN identifica l'anno in primo luogo, allora il numero dei giorni nell'anno quello
'la sua data compare. Così, il 15 gennaio 1999 è 99015. Il 15 marzo è 99074. Il 15 marzo 2001 è
'101074 date in Y2K cominciano con 100 (2000), 101 (2001) ecc.
StartDate = disposizione (“01/15/2000„)
TempFromDate = DateValue (StartDate)
TempYr = 100 + Val (disposizione (TempFromDate, “yyyy„)) - Val (disposizione (DateValue (“01/01/2000„), “yyyy„))
TempYr = TempYr * 1000
TempString = “01/01/„ + disposizione (TempFromDate, “yyyy„)
fromdate = TempYr + TempFromDate - DateValue (TempString) + 1
|