Pytanie : KONWERTYTA DATA JULIAŃSKI

Cześć,

I zakładać ten kod i ono pojawiać się że ono musieć pismo I potrzebować ale I utrzymywać składnia błąd i the VAL & FORMAT błędny w VB Pismo.  

I potrzeba ten kod i ono praca w VB script. 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

 ' JD EDWARDS (AS/400 oprogramowanie) używać data dzwonić JULIAŃSKI. 
'JULIAŃSKI Data utożsamiać the rok najpierw, then the liczba dzień w the rok rok
'jego data pojawiać się. W Ten Sposób, Jan 15, 1999 być 99015. Marzec 15 być 99074. Marzec 15, 2001 być
'101074 Data w Y2K zaczynać z 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)

Odpowiedź : KONWERTYTA DATA JULIAŃSKI

My dostać jakikolwiek Komentarz, jako the klient podnosić the komputer podnosić dla the diagnostyczny ładunek d/t ich czas przymus.
Inne rozwiązania  
 
programming4us programming4us