Short Date () creating a locked character column

Matt_C

When I create a "date" column in the script below it creates a locked (so I can not change the format) column.  Short Date() in the formula looks to be the issue. 

The time column stays as numeric after the formula is applied.

How do I get the "Date" to stay numeric?

 

The date is later in a calender() to set the calender to show only days there is data present.

_____________________________________________________

//Open
dt_run = Open( "data.jmp");

dt_run << New Column( "Date", Numeric, Continuous, Format("m/d/y"), Input Format( "m/d/y h:m:s"));
Column( "Date") << Add Column Properties( Formula( Short Date( :Name( "Date & Time" ) ) ) );

dt_run << New Column( "Time", Numeric, Continuous, Format("h:m"), Input Format( "m/d/y h:m:s"));
Column( "Time") << Add Column Properties( Formula( Time Of Day( :Name( "Date & Time" ) ) ) );

Thanks

Matt

txnelson

The issues you are having are with the understanding of what the Short Date() function returns.  It does not return a JMP date value, which would be the number of seconds since 12:00am, January 1, 1904, but rather, it returns a literal string of the date part of a JMP date value.  To illustrate this, the following JSL displays what Short Date() returns:

show(short date(today()));	<BR />

 and it returns

Short Date(Today()) = "12/03/2019";

And since in your JSL it returned a literal string, it changed the Date column to a character column.  

Really, what you want is to use the DateMDY() function to create the date value.

Below is a reworked version of your code that does what I believe you need:

 

Names default to here(1);
dt_run = new table("data",add rows(1), new column("Date & Time",formula(today()),format("m/d/y h:m:s")));

dt_run << New Column( "Date", Numeric, Continuous, Format("m/d/y"));
Column( "Date") << set Formula( DateMDY(Month(:Name( "Date & Time" )),Day(:Name( "Date & Time" )),Year(:Name( "Date & Time" )) ) );

dt_run << New Column( "Time", Numeric, Continuous, Format("h:m"));
Column( "Time") << set Formula( Time Of Day( :Name( "Date & Time" ) ) );