Textbox Formatting Problem !

[Prakash Wadhwani]

I'm importing & displaying data from a legacy DbaseIII+ system.

There's a Numeric field (6 characters) which displays the date in the
following manner: yymmdd (stored as a number in the table).

When I'm displaying this in a text box in my form I'd like it to
display as:
dd/mm/yy (including the slashes).

Can someone please tell me how to go about this ?

Thx & Best Rgds,
Prakash

[Phil Stanton]

Function NumToDate(Num As Long) As Date

Dim DateStg As String, NewDateStg As String
Dim Day As String, Month As String, Year As String

DateStg = Right("0" & CStr(Num), 6)
Day = Right(DateStg, 2)
Month = Mid(DateStg, 3, 2)
Year = Left(DateStg, 2)
NewDateStg = Day & "/" & Month & "/" & Year
NumToDate = CDate(NewDateStg)
End Function

Phil
"Prakash Wadhwani" <si****@omantel.net.om> wrote in message
news:60**************************@posting.google.c om...

I'm importing & displaying data from a legacy DbaseIII+ system.

There's a Numeric field (6 characters) which displays the date in the
following manner: yymmdd (stored as a number in the table).

When I'm displaying this in a text box in my form I'd like it to
display as:
dd/mm/yy (including the slashes).

Can someone please tell me how to go about this ?

Thx & Best Rgds,
Prakash

[Prakash Wadhwani]

Thx Phil !!

It worked a treat !!

Best Rgds,
Prakash.


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!