Vraag : ZET DATUM IN JULIAN OM

Hello, vond

I deze code en het blijkt dat het zou moeten doen wat de behoefte van I maar ik houdt krijgend syntaxisfouten en VAL & het FORMAAT in Manuscript VB onjuist schijnen.  />I behoefte

werken
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
" notpretty " 
 ' JD EDWARDS (de software van AS/400) gebruiksdata genoemd JULIAN. 
Een 'JULIAN Datum identificeert het jaar eerst, toen het aantal dagen in het jaar dat
'zijn datum verschijnt. Zo, 15 is Januari, 1999 99015. 15 maart is 99074. 15 maart, 2001 is
'101074 Data in Y2K begin met 100 (2000), 101 enz. (van 2001).

StartDate = Formaat („01/15/2000“)
TempFromDate = DateValue (StartDate)
TempYr = 100 + Val (Formaat (TempFromDate, „yyyy“)) - Val (Formaat (DateValue („01/01/2000“), „yyyy“))

TempYr = TempYr * 1000
TempString = „01/01/“ + Formaat (TempFromDate, „yyyy“)
fromdate = TempYr + TempFromDate - DateValue (TempString) + 1

Antwoord : ZET DATUM IN JULIAN OM

Wij kregen niet om om het even welke Commentaren ten uitvoer te leggen, aangezien de cliënt de computer voor de kenmerkende last d/t hun tijdbeperkingen opraapte.
Andere oplossingen  
 
programming4us programming4us