Date to Number

[Esoteric]

I have a need to convert the date to a number.

ie:
<PARAM NAME=&quot;CurrentDate&quot; VALUE=&quot;37291&quot;>
<PARAM NAME=&quot;MaxDate&quot; VALUE=&quot;2958465&quot;>
<PARAM NAME=&quot;MinDate&quot; VALUE=&quot;-109205&quot;>

I want to insert a given date into the &quot;CurrentDate&quot; how do I convert a date ie: 2/2/2002 into a number like above.

 

[dilettante]

We-ell, I'll assume we are talking about the date (integer number) part of a Variant &quot;date/time&quot; value.

You can use CLng({date value}) as in:

Option Explicit

Sub ShowMeDate(lngNum)
  Dim dtDate

  dtDate = CDate(lngNum)
  MsgBox dtDate & " = " & CStr(lngNum)
End Sub

Sub ShowMeNum(dtDate)
  Dim lngNum

  lngNum = CLng(dtDate)
  MsgBox CStr(lngNum) & " = " & dtDate
End Sub

ShowMeNum(Date())
ShowMeNUm(#3/11/1945#)

ShowMeDate(12345)
ShowMeDate(-109205)

Is this what you had in mind?