convert AS400 date 1071101 to date 11/01/2007 mm/dd/yyy

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Dirty70Bird - 31 Oct 2007 20:04 GMT

Hello, is there a way to convert the AS400 date 1071101 where 107 = 2007, 11
is month, 01 is the day? I'm attempting to use the Format function TDate:
Format([AS400DATE],"??????????") TIA!!!

Reply to this Message

Dirty70Bird - 31 Oct 2007 20:46 GMT

This appears to work..
Date: DateSerial(Left([SCEDAT],3)-100,Mid([SCEDAT],4,2),Right([SCEDAT],2))

> Hello, is there a way to convert the AS400 date 1071101 where 107 = 2007, 11
> is month, 01 is the day? I'm attempting to use the Format function TDate:
> Format([AS400DATE],"??????????") TIA!!!

Reply to this Message

Douglas J. Steele - 31 Oct 2007 22:00 GMT

Or

Date: DateSerial(Mid([SCEDAT],2, 1),Mid([SCEDAT],4,2),Right([SCEDAT],2))

Of course, you may run into problems if the year is greater than 2029.

Signature

Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no private e-mails, please)

> This appears to work..
> Date: DateSerial(Left([SCEDAT],3)-100,Mid([SCEDAT],4,2),Right([SCEDAT],2))
[quoted text clipped - 4 lines]
>> TDate:
>> Format([AS400DATE],"??????????") TIA!!!

Reply to this Message