InterchangeDate()


Get Date/Time from EDI Envelope (ISA, STX or UNB).

Public Function InterchangeDate(ByVal InterchangeHeader As String) As Date

Parameters

InterchangeHeader
String 
A valid ISA, STX or UNB segment. 

Returns

InterchangeDateTime
Date
The Date/Time of an Interchange derived from the Interchange Envelope ISA, STX or UNB segment.

Remarks

This method does not require a login.

Example

Visual Basic

Dim dt As Date

Dim isa As String = _
"ISA*00*          *00*          *01*000123456      *ZZ*ECGRID          *081116*0622*U*00400*000000181*0*P*>"
dt = InterchangeDate(isa) 'November 16, 2008 6:22am

Dim stx As String = _
"STX=ANA:1+1111111111111:XYZ STORES LTD+2222222222222:ABC SUPPLIER+080613:183455+333+YFBANNWB+GENHDR"
dt = InterchangeDate(stx) 'June 13, 2008 6:34pm

Dim unb As String = _
"UNB+UNOA:2+000123456+1+ECGRID:ZZ+080704:1351+100000717++DELJIT"
dt = InterchangeDate(unb) 'July 4, 2008 1:51pm

EventID: n/a

See Also


© 2008-2011, Loren Data Corp.
All rights reserved.
ECGrid is a registered service mark of Loren Data Corp.
ECGridOS is a service mark of Loren Data Corp.