777567_ja-JP

liliconcom

日付の形式を変更する

これを実行できないためエラーが発生します。誰か助けてくれませんか?

// 日付を dd/mm/yyyy に再フォーマットする関数
colName = 列ダイアログ( "日付列を選択" );
reformatDateColumn = Function({dt, colName},
dt = 現在のデータテーブル();If( 列( dt, colName ) == 空(),
Throw( "選択された列は現在のデータ テーブルに存在しません。" );
);

// 日付を識別して再フォーマットする関数
formatDate = Function({date},
// 異なる日付形式をチェックし、dd/mm/yyyy に変換します
If( Contains( 日付, "/" ),
// 日付が dd/mm/yyyy 形式か mm/dd/yyyy 形式かを確認します
If( Substr( 日付, 3, 1 ) == "/",
// dd/mm/yyyy 形式を想定
日付、
// mm/dd/yyyy 形式を想定し、dd/mm/yyyy に変換します
Concat( Word( 2, 日付, "/" ), "/", Word( 1, 日付, "/" ), "/", Word( 3, 日付, "/" ) )
）、
// mmddyyyy、ddmmyyy、yyyymmdd、またはyyyyddmm形式を処理します
長さ(日付) == 8の場合、
// 最初の2桁が有効な月または日であるかどうかを確認します
If(Num(Substr(日付, 1, 2)) > 12,
// ddmmyyyy 形式を想定
Concat( Substr( 日付, 1, 2 )、 "/"、 Substr( 日付, 3, 2 )、 "/"、 Substr( 日付, 5, 4 ) )、
// mmddyyyy 形式を想定し、dd/mm/yyyy に変換します
Concat( Substr( 日付, 3, 2 )、 "/"、 Substr( 日付, 1, 2 )、 "/"、 Substr( 日付, 5, 4 ) )
）、
長さ(日付) == 8の場合、
If( Num( Substr( date, 1, 4 ) ) > 999, // 最初の4桁が有効な年かどうかをチェックする
// 次の2桁が有効な月または日であるかどうかを確認します
If(Num(Substr(日付, 5, 2)) > 12,
// yyyyddmm 形式を想定
Concat( Substr( 日付, 7, 2 )、 "/"、 Substr( 日付, 5, 2 )、 "/"、 Substr( 日付, 1, 4 ) )、
// yyyymmdd 形式を想定し、dd/mm/yyyy に変換します
Concat( Substr( 日付, 7, 2 )、 "/"、 Substr( 日付, 5, 2 )、 "/"、 Substr( 日付, 1, 4 ) )
）、
// 有効な年または形式でない場合は、元の日付を返します
日付
）、
// 日付の長さが 8 でない場合は、元の日付を返します (無効な形式)
日付
）
）
）
);

// 関数をトリガーするボタンを含む UI を作成する
新しいウィンドウ(「データ処理ツール」、
V リストボックス(
// 日付列のフォーマットを変更するボタン
ボタンボックス(「日付列の書式変更」、
// 日付列を選択するためのダイアログを開く
colName = 列ダイアログ( "日付列を選択" );

// 選択した日付列のフォーマットを変更する関数を呼び出す
reformatDateColumn( 現在のデータテーブル()、colName );
）
）
);

自動化とスクリプトデータの探索と視覚化Re: 日付形式の変更

コードだけではなく、何をしようとしているのかを説明していただけますか (コードは LLM が作成したように見えます)?

Re: 日付形式の変更

日付のような文字列の列を含むデータ テーブルがあると仮定します。日付の形式が混在している可能性がありますか? また、それらを数値形式に変換する UI が必要ですか? JMP の書式パターンでこれができる可能性がありますが、データの例があると便利です。

読みやすい形式で元のスクリプトを以下に示します (スクリプトの書式設定以外に変更を加えていないことを願います)

もっと見る...

colName = Column Dialog("Select Date Column");

reformatDateColumn = Function({dt, colName},
	dt = Current Data Table();
	If(Column(dt, colName) == Empty(),
		Throw("The selected column does not exist in the current data table.")
	);
);

formatDate = Function({date},
	If(Contains(date, "/"),
		If(Substr(date, 3, 1) == "/",
			date, 
			// Assume mm/dd/yyyy format and convert to dd/mm/yyyy
			Concat(Word(2, date, "/"), "/", Word(1, date, "/"), "/", Word(3, date, "/"))
		)
	, 
		// Handle mmddyyyy, ddmmyyyy, yyyymmdd, or yyyyddmm format
		If(Length(date) == 8, 
			// Check if first two digits form a valid month or day
			If(Num(Substr(date, 1, 2)) > 12, 
				// Assume ddmmyyyy format
				Concat(Substr(date, 1, 2), "/", Substr(date, 3, 2), "/", Substr(date, 5, 4))
			, 
				// Assume mmddyyyy format and convert to dd/mm/yyyy
				Concat(Substr(date, 3, 2), "/", Substr(date, 1, 2), "/", Substr(date, 5, 4))
			)
		,
			If(Length(date) == 8,
				// Check if first 4 digits form a valid year
				If(Num(Substr(date, 1, 4)) > 999, 
					// Check if the next two digits form a valid month or day
					If(Num(Substr(date, 5, 2)) > 12, 
						// Assume yyyyddmm format
						Concat(Substr(date, 7, 2), "/", Substr(date, 5, 2), "/", Substr(date, 1, 4))
					, 
						// Assume yyyymmdd format and convert to dd/mm/yyyy
						Concat(Substr(date, 7, 2), "/", Substr(date, 5, 2), "/", Substr(date, 1, 4))
					)
				, 
					// If not a valid year or format, return the original date
					date
				)
			, 
				// If the date length is not 8, return the original date (invalid format)
				date
			)
		)
	)
);

New Window("Data Processing Tools",
	V List Box(
		Button Box("Reformat Date Column", 
			// Open a dialog to select the date column
			colName = Column Dialog("Select Date Column");
			reformatDateColumn(Current Data Table(), colName);
		)
	)
);