SelectionFormula - How to pass a date

[Guest_imported]

Im am trying to pass a date in the selectin formula as below;

Dim DteStart As String
Dim DteEnd As String
DteStart = Format(DTPStart.Value, "yyyy,mm,dd&quot
DteEnd = Format(DTPEnd.Value, "yyyy,mm,dd&quot

CrystalReport1.SelectionFormula = &quot;{transactions.transaction_date} >= Date(&quot; & DteStart & &quot AND {transactions.transaction_date} <= Date(&quot; & DteEnd & &quot&quot;

But I get an error 20515
Error in file c:\working\Reports\Statementtest.rpt:
Error in Formula <Record_Selection>.
'
'
The remaining text does not appear to be part of the formula

Can someone please help me with this ?

 

[Ngolem]

this is an awkward string format to work with:

DteStart = Format(DTPStart.Value, &quot;yyyy,mm,dd&quot
DteEnd = Format(DTPEnd.Value, &quot;yyyy,mm,dd&quot

try this instead

DteStart = Format(DTPStart.Value, &quot;yyyymmdd&quot
DteEnd = Format(DTPEnd.Value, &quot;yyyymmdd&quot

Now for the selection formula you want the date conversion to look like this in Crystal syntax anyway...Sorry I don't use Basic syntax much

{transactions.transaction_date} >=
date(tonumber(left(DteStart,4)),
tonumber(mid(DteStart,5,2)),
tonumber(right(DteStart,2))) and

{transactions.transaction_date} <=
date(tonumber(left(DteEnd,4)),
tonumber(mid(DteEnd,5,2)),
tonumber(right(DteEnd,2)))

You can translate that into your VB code....hope this helps
Jim

 

[Guest_imported]

Thank you, this has helped!