Remove time from Calendar Box view

[#1]

Hello,

I have a JSL code that asks the user to specify a time interval through a Calendar Box. My code works well I only wish to be able to suppress the display of the time which is not useful to me afterwards. Is it possible ?

dt1=Today(),
dt2=Today(),
HListBox(
 PanelBox( "From Time", scal = Calendar Box(SetFunction(Function({this}, date1=scal<< Get Date) ))),
 spacerbox(Size(20,20)),
 PanelBox( "To Time", ecal = Calendar Box(SetFunction(Function({this}, date2=ecal<< Get Date) )))
)

Thank you in advance for your answers !

[#2 · Accepted solution]

I was able to change the visibility on the not required objects with the script below

dt1 = Today();
dt2 = Today();
nw = New Window( "test",
	H List Box(
		Panel Box( "From Time",
			scal = Calendar Box( SetFunction( Function( {this}, date1 = scal << Get Date ) ) )
		),
		Spacer Box( Size( 20, 20 ) ),
		Panel Box( "To Time",
			ecal = Calendar Box( SetFunction( Function( {this}, date2 = ecal << Get Date ) ) )
		)
	)
);

nw[Text Box( 16 )] << visibility( collapse );
nw[Text Box( 8 )] << visibility( collapse );
nw[Number Edit Box( 4 )] << visibility( collapse );
nw[Number Edit Box( 2 )] << visibility( collapse );

See Craige Hales response below.

[#3]

It worked perfectly thank you very much!

[#4 · Accepted solution]

You might also like Select Date Range with Calendar Boxes  which links the two boxes together, forces the returned dates to midnight, and uses <<showTime(0) to remove the GUI elements.