20040123 to 1/23/2004 PLEASE HELP!!

In an append Query I should be able to write an Expression that will take a column (BIRTHDATE) that contains 20040123 and put that data into another column, converting it to 01/23/2004. I can get the Days correct, but need some help figuring out the rest of the expression. Here is what I have sor far.

in "Field"

NEWBDATE: Mid([BIRTHDATE],5,2)

If using todays date (20040123), this would give me the value 01 with no / or - to seperate.

Am I on the right Track here, or still way off base?

Assuming the Birthdate is text

Mid([BIRTHDATE],5,2) & "/" & Right([BIRTHDATE],2) & "/" & Left([BIRTHDATE],4)

S-

DUDE (assuming that you're male) YOU ARE DA MAN!!!!!

Sometimes the easiest probs sneak up on ya...

Now can you figure out how to do the same thing with a time field (also text) that is doing the same thing
730 = 7:30 am
1630=4:30 pm

Paste the following function in you query

expr1: IIf(Len([TIme])=4,TimeValue(Left([TIme],2) & ":" & Right([TIme],2)),TimeValue(Left([TIme],1) & ":" & Right([TIme],2)))

S-