Remember Me?

#1
December 23rd 04, 12:13 PM
Access Module coded converted to Excel Function

Hi All,

I have a module which works in Access 97 so well that I want to see if I can
re-create this to work as a new function in Excel 97.

Please see the module code below:

Function ConvertDate(InputValue As Variant) As Variant
Dim lngDay As Long
Dim lngMonth As Long
Dim lngYear As Long

If IsNull(InputValue) = False Then
lngYear = InputValue \ 65536
lngMonth = (InputValue Mod 65536) \ 256
lngDay = InputValue - (lngYear * 65536) - (lngMonth * 256)
ConvertDate = DateSerial(lngYear, lngMonth, lngDay)
Else
ConvertDate = Null
End If

End Function

Can anyone help with translating this to work as an Excel Function?

--
-----------
Windows 98 + Office Pro 97

#2
December 23rd 04, 02:48 PM
 Frank Kabel Posts: n/a

Hi
this function should work in Excel as well

--
Regards
Frank Kabel
Frankfurt, Germany

Hi All,

I have a module which works in Access 97 so well that I want to see
if I can re-create this to work as a new function in Excel 97.

Please see the module code below:

Function ConvertDate(InputValue As Variant) As Variant
Dim lngDay As Long
Dim lngMonth As Long
Dim lngYear As Long

If IsNull(InputValue) = False Then
lngYear = InputValue \ 65536
lngMonth = (InputValue Mod 65536) \ 256
lngDay = InputValue - (lngYear * 65536) - (lngMonth * 256)
ConvertDate = DateSerial(lngYear, lngMonth, lngDay)
Else
ConvertDate = Null
End If

End Function

Can anyone help with translating this to work as an Excel Function?

 Posting Rules Smilies are On [IMG] code is On HTML code is OffTrackbacks are On Pingbacks are On Refbacks are On

 Similar Threads Thread Thread Starter Forum Replies Last Post Karen Middleton Excel Discussion (Misc queries) 1 December 13th 04 07:54 PM Hari Excel Discussion (Misc queries) 0 December 3rd 04 06:03 AM Hari Excel Discussion (Misc queries) 0 December 3rd 04 05:47 AM Hari Excel Discussion (Misc queries) 0 December 3rd 04 05:45 AM Hari Excel Discussion (Misc queries) 1 December 3rd 04 02:32 AM

All times are GMT +1. The time now is 08:20 AM.