777567_it-IT

liliconcom

Cambia il formato della data

C'è un errore perché non posso eseguirlo, qualcuno può aiutarmi?

// Funzione per riformattare le date in gg/mm/aaaa
colName = Finestra di dialogo Colonna("Seleziona colonna data");
reformatDateColumn = Funzione({dt, colName},
dt = DataTable corrente();If( Colonna( dt, colName ) == Vuoto(),
Throw("La colonna selezionata non esiste nella tabella dati corrente.");
);

// Funzione per identificare e riformattare la data
formatoData = Funzione({data},
// Controlla i diversi formati di data e convertili in gg/mm/aaaa
Se( Contiene( data, "/" ),
// Controlla se la data è nel formato gg/mm/aaaa o mm/gg/aaaa
If( Substr( data, 3, 1 ) == "/",
// Assumere il formato gg/mm/aaaa
data,
// Assume il formato mm/gg/aaaa e converte in gg/mm/aaaa
Concat( Parola( 2, data, "/" ), "/", Parola( 1, data, "/" ), "/", Parola( 3, data, "/" ) )
),
// Gestisce il formato mmddyyyy, ggmmaaaa, aaaammgg o aaaaggmm
Se (lunghezza (data) == 8,
// Controlla se le prime due cifre formano un mese o un giorno valido
Se( Num( Sottostr( data, 1, 2 ) ) > 12,
// Assume il formato ggmmaaaa
Concat( Substr( data, 1, 2 ), "/", Substr( data, 3, 2 ), "/", Substr( data, 5, 4 ) ),
// Assume il formato mmddyyyy e converte in gg/mm/aaaa
Concat( Substr( data, 3, 2 ), "/", Substr( data, 1, 2 ), "/", Substr( data, 5, 4 ) )
),
Se (lunghezza (data) == 8,
If( Num( Substr( date, 1, 4 ) ) > 999, // Controlla se le prime 4 cifre formano un anno valido
// Controlla se le due cifre successive formano un mese o un giorno valido
Se( Num( Sottostr( data, 5, 2 ) ) > 12,
// Assume il formato aaaaggmm
Concat( Substr( data, 7, 2 ), "/", Substr( data, 5, 2 ), "/", Substr( data, 1, 4 ) ),
// Assume il formato aaaammgg e converte in gg/mm/aaaa
Concat( Substr( data, 7, 2 ), "/", Substr( data, 5, 2 ), "/", Substr( data, 1, 4 ) )
),
// Se non è un anno o un formato valido, restituisce la data originale
data
),
// Se la lunghezza della data non è 8, restituisce la data originale (formato non valido)
data
)
)
)
);

//Crea l'interfaccia utente con i pulsanti per attivare le funzioni
Nuova finestra ("Strumenti di elaborazione dati",
Casella di riepilogo V(
// Pulsante per riformattare la colonna della data
Casella dei pulsanti ("Riformatta colonna data",
// Apre una finestra di dialogo per selezionare la colonna della data
colName = Finestra di dialogo Colonna("Seleziona colonna data");

// Chiama la funzione per riformattare la colonna della data selezionata
reformatDateColumn( Tabella dati correnti(), colName );
)
)
);

Automazione e scriptingEsplorazione e visualizzazione dei datiRe: Modificare il formato della data

Potresti spiegare cosa stai cercando invece del solo codice (il codice sembra creato da LLM)?

Re: Modificare il formato della data

Presumo che tu abbia una tabella dati con una colonna di caratteri che assomiglia a date. E può avere formati misti di date? E desideri avere un'interfaccia utente per convertirli in formato numerico? Il modello di formato di JMP potrebbe essere in grado di farlo, ma sarebbe utile avere un esempio dei dati.

Ecco lo script originale in un formato un po' più semplice da leggere (spero di non aver apportato modifiche oltre alla formattazione dello script)

Visualizza altro...

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);
		)
	)
);