Program a
def var ld-date as date no-undo.
assign ld-date = <somedate>

run program-b (input ld-date)

Program b
def input parameter ip-date as date no-undo.
display ip-date.

I suspect that you are passing the date as a compile parameter rather
than a run-time parameter!