777567_es-ES

liliconcom

Cambiar formato de fecha

Hay un error porque no puedo ejecutar esto, ¿alguien puede ayudarme?

// Función para reformatear fechas a dd/mm/aaaa
colName = Diálogo de columna ("Seleccionar columna de fecha");
reformatDateColumn = Función({dt, colName},
dt = Tabla de datos actual(); If( Columna( dt, colName ) == Vacío(),
Throw( "La columna seleccionada no existe en la tabla de datos actual." );
);

// Función para identificar y reformatear la fecha
formatoFecha = Función({fecha},
// Busca diferentes formatos de fecha y convierte a dd/mm/aaaa
Si (contiene (fecha, "/")),
// Comprobar si la fecha está en formato dd/mm/aaaa o mm/dd/aaaa
If( Substr( fecha, 3, 1 ) == "/",
//Asumir formato dd/mm/aaaa
fecha,
// Asume el formato mm/dd/aaaa y convierte a dd/mm/aaaa
Concat( Palabra( 2, fecha, "/" ), "/", Palabra( 1, fecha, "/" ), "/", Palabra( 3, fecha, "/" ) )
),
// Maneja el formato mmddyyyy, ddmmyyyy, yyyymmdd o yyyyddmm
Si( Longitud( fecha ) == 8,
// Comprobar si los primeros dos dígitos forman un mes o día válido
Si( Num( Substr( fecha, 1, 2 ) ) > 12,
//Asumir formato ddmmaaaa
Concat( Substr( fecha, 1, 2 ), "/", Substr( fecha, 3, 2 ), "/", Substr( fecha, 5, 4 ) ),
// Asume el formato mmddyaaa y convierte a dd/mm/aaaa
Concat( Substr( fecha, 3, 2 ), "/", Substr( fecha, 1, 2 ), "/", Substr( fecha, 5, 4 ) )
),
Si( Longitud( fecha ) == 8,
If( Num( Substr( date, 1, 4 ) ) > 999, // Comprueba si los primeros 4 dígitos forman un año válido
//Comprueba si los siguientes dos dígitos forman un mes o día válido
Si( Num( Substr( fecha, 5, 2 ) ) > 12,
//Asumir formato aaaaddmm
Concat( Substr( fecha, 7, 2 ), "/", Substr( fecha, 5, 2 ), "/", Substr( fecha, 1, 4 ) ),
// Asume el formato aaaammdd y convierte a dd/mm/aaaa
Concat( Substr( fecha, 7, 2 ), "/", Substr( fecha, 5, 2 ), "/", Substr( fecha, 1, 4 ) )
),
// Si no es un año o formato válido, devuelve la fecha original
fecha
),
// Si la longitud de la fecha no es 8, devuelve la fecha original (formato no válido)
fecha
)
)
)
);

//Crea la interfaz de usuario con botones para activar las funciones
Nueva ventana( "Herramientas de procesamiento de datos",
V Cuadro de lista(
// Botón para reformatear la columna de fecha
Cuadro de botón( "Reformatear columna de fecha",
//Abre un cuadro de diálogo para seleccionar la columna de fecha
colName = Diálogo de columna ("Seleccionar columna de fecha");

// Llama a la función para reformatear la columna de fecha seleccionada
reformatDateColumn(Tabla de datos actual(), colName);
)
)
);

Automatización y secuencias de comandosExploración y visualización de datosRe: Cambiar formato de fecha

¿Podría explicar lo que está intentando en lugar de solo el código (el código parece creado por LLM)?

Re: Cambiar formato de fecha

Supongo que tiene una tabla de datos con una columna de caracteres que parece fechas. ¿Y puede tener formatos mixtos de fechas? ¿Y desea tener una interfaz de usuario para convertirlos a formato numérico? El patrón de formato de JMP podría hacer esto, pero sería útil tener un ejemplo de los datos.

Aquí está el guión original en un formato un poco más fácil de leer (espero no haber realizado ningún cambio aparte del formato del guión)

Ver más...

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