class= " lineNumbers " de
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
|
class= de
l'id= " codeSnippet774756 " class= " de ' JD EDWARDS (logiciel d'AS/400) emploie des dates appelées JULIAN.
'Une date de JULIAN identifie l'année d'abord, puis le nombre de jours dans l'année cela
'sa date apparaît. Ainsi, le 15 janvier 1999 est 99015. Le 15 mars est 99074. Le 15 mars 2001 est
'101074 dates dans Y2K commencent par 100 (2000), 101 (2001) etc.
StartDate = format (« 01/15/2000 »)
TempFromDate = DateValue (StartDate)
TempYr = 100 + Val (format (TempFromDate, « yyyy »)) - Val (format (DateValue (« 01/01/2000 »), « yyyy »))
TempYr = TempYr * 1000
TempString = « 01/01/ » + format (TempFromDate, « yyyy »)
fromdate = TempYr + TempFromDate - DateValue (TempString) + 1
|