fun, but hopefully easy question

  • Thread starter Thread starter Brad Allison
  • Start date Start date
B

Brad Allison

Okay, I am grabbing data from a dinosaur, an AS400 system. One of the date
fields is formated as decimal so the data adapter is filling the data set
with these decimal numbers (ie 712004 for today or 10102001 for October 10,
2001).

Being fairly new with .net, is there an easy way to covert these decimal
values into a usable date for vb?

Thanks for the information.

Brad
 
Here's 2 functions I write long ago in the asp days that will do the
trick....they may need a little tweaking to work with .net... Believe it
or not we still use our 400 to run MAPICS. LOL

private function ConvertDate(inDate)
' Converts the stupid AS400 date into a normal date field
dim StrMonth, strDay, strYear
if len(indate) = 6 then inDate = "0" & inDate
strYear = 1900+left(inDate, 3)
strMonth = mid(inDate,4,2)
strDay = right(inDate, 2)
ConvertDate = strMonth & "/" & strDay & "/" & strYear
end function

Private function ConvertDate400(inDate)
' Converts a normal date field into a stupid AS400 Mapics date
dim StrMonth, strDay, strYear
strMonth = month(inDate)
if len(strMonth)=1 then strMonth = "0" & strMonth
strDay = day(inDate)
if len(strDay)=1 then strDay = "0" & strDay
strYear = year(inDate)-1900
ConvertDate400=strYear & strMonth & strDay
end function
 
Back
Top