107706_zh-TW

liliconcom

需要將十進制日期時間轉換為ddMONYY

我正在使用日期時間提示來提取我的SQL查詢的開始日期和結束日期。  日期提示使用小數。  如何將小數轉換為ddMonyy格式。  我的代碼如下。  您將在我的選擇中看到我有t1.Login_Date，變量為startDT，t1.Login_Date為變量endDT。  這是我需要將小數轉換為日期的地方。  我已經嘗試過Cast和轉換，並且兩者都在一起，無法讓它工作。  任何幫助將不勝感激。

 

NamesDefaultToHere（1）;

//由Vince Faller撰寫

Re：需要將十進制日期時間轉換為ddMONYY我能夠將您的建議納入我的代碼中。謝謝您的幫助。Re：需要將十進制日期時間轉換為ddMONYY

這是一個簡單的例子來進行你想要的轉換

Names Default To Here( 1 );

theDate = Today();

charDate = Uppercase( Format( theDate, "ddmonyyyy" ) );
Show( charDate );

finalDate = Substr( charDate, 1, 5 ) || Substr( charDate, -2 );
Show( finalDate );

Re：需要將十進制日期時間轉換為ddMONYY

NamesDefaultToHere（1）;

//由Vince Faller撰寫
//使日曆出現在numeditbox上（默認為現在）
//注意，這僅適用於JMP 11或更高版本
dateBox =功能（
{timething =今天（）}，
{} newbox，
newbox = Eval（
替代（
名稱Expr（
號碼編輯框（
timething，// Eval（Sub（））因為JMP怪癖
10，//只需要這個，因為JMP沒有默認寬度
<<設定功能（
功能（{self}，
{}，
如果（缺失（自我）獲得，
self << Set（Eval（DUMMY））//將日期設置為timething參數
）
）
）
<<設置格式（格式（“m / d / yh：m：s”，23,0））; //使框的日期時間格式（給出日曆）
）
）
Expr（DUMMY），時間
）
）;
newbox;
）;

nw =
新窗口（“輸入日期範圍”，
LineUpBox（NCOL（2），
TextBox（“Start DateTime”），start = dateBox（Today（） - InDays（12）），
TextBox（“End DateTime”），end = dateBox（），
ButtonBox（“取消”，nw <<關閉窗口），ButtonBox（“獲取數據”，runScript）
））;



runScript = Expr（nw <<關閉窗口;