need date

In my report formula I grab the date the user selects (tranPeriodEnd) in the application. I need to place this date in my report header. Any suggestions?

VB Code:

rpt.DataDefinition.RecordSelectionFormula = "{pcms_pcard_transaction_header.end_billing_date} =#" & tranPeriodEnd & "# and {pcms_pcard_transaction_header.card_work_unit}='" & userid_wu & "'"