Newest functions Upload a function Leave a tip My account

There are 2,577 functions in this library.

fechaDesdeTexto ( texto )

returns a date as text from a text entered

  Average rating: 4.2 (31 votes) Log in to vote

Emilio Luengo Emilio Luengo http://www.briandunning.com

  Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

Let ([ textoFiltrado = Right (Filter ( texto ; "0123456789" );8) //8 caracteres ; longitudTexto = Length ( texto ) ] ; Case ( longitudTexto=1 //solo un año, supone siglo 21 ; "01/01/200" & textoFiltrado ; longitudTexto=2 //dos cifras, selecciona cambio de siglo ; If( textoFiltrado>30 ; "01/01/19" & textoFiltrado ; "01/01/20" & textoFiltrado ) ; longitudTexto=3 //puede dar inconsistencias ; "01/01/1" & textoFiltrado ; longitudTexto=4 //supone año correcto ; "01/01/" & textoFiltrado ; longitudTexto=5 //supone mes y año ; "01/0" & Left(textoFiltrado;1) & "/" & Right(textofiltrado;4) ; longitudTexto=6 //evalua el mes ; If(Left(textoFiltrado;2)>12 ; fechaDesdeTexto("0" & Left(textoFiltrado;1) & "0" & Right(textoFiltrado;5)) //recursion ; "01/" & Left(textofiltrado;2) & "/" & Right(textofiltrado;4) ) ; longitudTexto=7 //hay un digito de dia a valorar, reevalua el mes ; If(Middle(textoFiltrado;2;2)>12 ; fechaDesdeTexto(Left(textoFiltrado;2) & "0" & Right(textoFiltrado;5)) //recursion ; "0" & Left(textoFiltrado;1) & "/" & Middle(textofiltrado;2;2) & "/" & Right(textofiltrado;4) ) ; longitudTexto=8 //plantea el calculo del dia para el mes y el año ; If(Middle(textoFiltrado;3;2)>12 //algo pasa que el mes es mayor de 12 ; fechaDeTexto(Left(textoFiltrado;2) & "0" & Right(textoFiltrado;5)) //recursion ; Case ( Left(textoFiltrado;2)>31 //meses de 31 dias and (GetAsNumber(Middle(textoFiltrado;3;2))=1 or GetAsNumber(Middle(textoFiltrado;3;2))=3 or GetAsNumber(Middle(textoFiltrado;3;2))=5 or GetAsNumber(Middle(textoFiltrado;3;2))=7 or GetAsNumber(Middle(textoFiltrado;3;2))=8 or GetAsNumber(Middle(textoFiltrado;3;2))=10 or GetAsNumber(Middle(textoFiltrado;3;2))=12) ; "0" & Middle(textoFiltrado;2;1) & "/" & Middle(textoFiltrado;3;2) & "/" & Right(textoFiltrado;4) ; Left(textoFiltrado;2)>30 //meses de 30 dias and (GetAsNumber(Middle(textoFiltrado;3;2))=4 or GetAsNumber(Middle(textoFiltrado;3;2))=6 or GetAsNumber(Middle(textoFiltrado;3;2))=9 or GetAsNumber(Middle(textoFiltrado;3;2))=11) ; "0" & Middle(textoFiltrado;2;1) & "/" & Middle(textoFiltrado;3;2) & "/" & Right(textoFiltrado;4) ; Left(textoFiltrado;2)>29 and GetAsNumber(Middle(textoFiltrado;3;2))=2 and Mod(GetAsNumber(Right(textoFiltrado;4));4)=0 //febrero en bisiestos ; "0" & Middle(textoFiltrado;2;1) & "/" & Middle(textoFiltrado;3;2) & "/" & Right(textoFiltrado;4) ; Left(textoFiltrado;2)>28 and Middle(textoFiltrado;3;2)=2 and Mod(GetAsNumber(Right(textoFiltrado;4));4)≠0 //febrero en no bisiestos ; "0" & Middle(textoFiltrado;2;1) & "/" & Middle(textoFiltrado;3;2) & "/" & Right(textoFiltrado;4) ; Left(textoFiltrado;2) & "/" & Middle(textoFiltrado;3;2) & "/" & Right(textoFiltrado;4) //por defecto, SI ES QUE TODO HA IDO BIEN ) ) ; "error"//fin por defecto )//endCase )//endLet Click to copy

/*
sorry... in spanish&partly english !!!
Funcion personalizada / Custom function: [fechaDesdeTexto(texto)]
Autor / Author:
Emilio Luengo
Llamada / Call:
fechaDesdeTexto( texto )
Parametros / Parameters:
texto - literal o campo de texto / literal or text field
[acepta formatos A, AA, AAA, AAAA, MAAAA, MMAAAA, DMMAAAA, DDMMAAAA]
Dato de retorno / Data returned:
texto / text
[devuelve DD/MM/AAAA, ajustando inteligentemente, si puede, los rangos de fechas]

Descripcion / Description:
toma un dato de texto, lo libera de otros caracteres no numericos, y trata de encontrar la fecha mas apropiada a los datos insertos, devolviendola como DD/MM/AA
en el caso del sigle considera cambio de definicion de siglo desde 31->2031, 30->1930

diciembre 2011
*/

 

Comments

Log in to post comments.

 

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

Support this website.

This library has been a free commmunity resource for FileMaker users and developers for 21 years. It receives no funding and has no advertisements. If it has helped you out, I'd really appreciate it if you could contribute whatever you think it's worth: