Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Date Issue?? 1
- Thread starter mmck1964
- Start date
-
1
- #3
Please keep the questions and answers on the forum, so that other people can learn from the process. That's the whole basis of this thing.
Jeremy
==
Jeremy Wallace
AlphaBet City Dataworks
Access Databases for Non-Profit Organizations
Please post in the appropriate forum with a descriptive subject; code and SQL, if referenced; and expected results. See thread181-473997 for more pointers.
Jeremy
==
Jeremy Wallace
AlphaBet City Dataworks
Access Databases for Non-Profit Organizations
Please post in the appropriate forum with a descriptive subject; code and SQL, if referenced; and expected results. See thread181-473997 for more pointers.
Here is the function. I never write them till I knkow for sure someone really wants them.
Public Function ToMyD8(dd As String) As String
ToMyD8 = Day(dd) & MID(Year(dd), 3)
End Function
Public Function BacToD8(ss As String) As Date
Dim bb As Variant
bb = CDate(MID(ss, 1, 1) & "/1/" & Right(ss, 2))
BacToD8 = bb
End Function
Public Function ToMyD8(dd As String) As String
ToMyD8 = Day(dd) & MID(Year(dd), 3)
End Function
Public Function BacToD8(ss As String) As Date
Dim bb As Variant
bb = CDate(MID(ss, 1, 1) & "/1/" & Right(ss, 2))
BacToD8 = bb
End Function
- Status
Similar threads
