dayOfWeek_AN_ML ( theDayOrDate ; language ; abbrev ; dayNum ; style )

Get a day name or abbreviation in any language supported by the CF, and/or the day number, starting from a date or day number or starting from a day name or abbreviation provided in any supported language. Supported languages are: English, French, Spanish, Italian and Portuguese.

Average rating: 4.6 (23 votes) Log in to vote

François Goulet
Lizzy Logik Inc.
Not applicable

Sample input:

day_AL_ML ( "2014-11-19" ; "" ; "" ; "" ; "" ) >
day_AL_ML ( "2014-11-19" ; "Es" ; "" ; "" ; "" ) >
day_AL_ML ( "2014-11-19" ; "En" ; "" ; "" ; "" ) >
day_AL_ML ( "2014-11-19" ; "En" ; "" ; 1 ; "" ) >
day_AL_ML ( "2014-11-19" ; "Fr" ; 1 ; 2 ; 2 ) >
day_AL_ML ( "Wednesday" ; "Fr" ; "" ; "" ; 1 ) >
day_AL_ML ( "Quarta-Feita" ; "En" ; "" ; "" ; 2 ) >
day_AL_ML ( "3. MAR" ; "En" ; "" ; "" ; 2 ) >

Sample output:

4
miércoles
Wednesday
4. Wednesday
04. MER
Mercredi
WEDNESDAY
TUESDAY

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

/*
dayOfWeek_AN_ML ( theDayOrDate ; language ; abbrev ; dayNum ; style ) v.1

Get a day name or abbreviation in any language supported by the CF, and/or the day number, starting from a date or day number or starting from a day name or abbreviation provided in any supported language. Supported languages are: English, French, Spanish, Italian and Portuguese.

OPTIONS:

1. theDayOrDate: a date or a day name or day name abbreviation with or without a day number (1 or 01 for Sunday ... 7 or 07 for Saturday). day names and abbreviations must strictly match names and abbreviations found in the LISTS OF DAY NAMES or ABBREVIATIONS found in the CF. Please note however that abbreviations ending with a period will not compromise the CF's performance;

2. language: "EN" ; "FR" ; "ES" ; "IT" ; "PT" . Please note that leaving the language option empty will cause the CF to return only the day number;

3. abbrev: empty ("") to return the day name or "1" to return the day abbreviation;

4. dayNum: empty ("") to omit the day number prefix; "1" to return the day name prefixed by the day number - ex. 1. ; "2"  to return the day number prefixed by a "0"  - ex. 01.

5. style: "" returns the result in lowercase in all languages except English which is always returned in titlecase; "1" for titlecase; "2" for uppercase

########################

EX:
day_AL_ML ( "2014-11-19" ; "" ; "" ; "" ; "" ) > 4
day_AL_ML ( "2014-11-19" ; "Es" ; "" ; "" ; "" ) > miércoles
day_AL_ML ( "2014-11-19" ; "En" ; "" ; "" ; "" ) > Wednesday
day_AL_ML ( "2014-11-19" ; "En" ; "" ; 1 ; "" ) > 4. Wednesday
day_AL_ML ( "2014-11-19" ; "Fr" ; 1 ; 2 ; 2 ) > 04. MER
day_AL_ML ( "Wednesday" ; "Fr" ; "" ; "" ; 1 ) > Mercredi
day_AL_ML ( "Quarta-Feita" ; "En" ; "" ; "" ; 2 ) > WEDNESDAY
day_AL_ML ( "3. MAR" ; "En" ; "" ; "" ; 2 ) > TUESDAY


*/
//##############################

Let(

[
//LIST OF DAY NAMES

dnL = List (  
"Sunday" ; "Monday" ; "Tuesday" ; "Wednesday" ; "Thursday" ;  "Friday" ; "Saturday" ; // EN
"dimanche" ; "lundi" ; "mardi" ; "mercredi" ; "jeudi" ; "vendredi" ;"samedi" ; // FR
"domingo" ; "lunes" ; "martes" ; "miércoles" ; "jueves" ; "viernes" ; "sábado" ; // ES
"domenica" ; "lunedi" ; "martedi" ; "mercoledi" ; "giovedi" ; "venerdi" ; "sabato" ; // IT
"domingo" ; "segunda-feira" ; "terça-feira" ; "quarta-feira" ;  "quinta-feira" ;  "sexta-feira"; "sábado"  // PT
) ;

//LIST OF DAY ABBREVIATIONS

daL = List (  
"Sun"  ; "Mon" ; "Tue" ; "Wed" ; "Thu" ; "Fri" ; "Sat" ; // EN
"dim" ; "lun" ; "mar" ; "mer" ; "jeu" ; "ven" ; "sam" ;  // FR
"dom" ; "lun" ; "mar" ; "mié" ; "jue" ; "vie" ; "Sáb" ;  // ES
"dom" ; "lun" ; "mar" ; "mer" ; "gio" ; "ven" ; "sab" ;  // IT
"dom" ;  " 2ª" ; " 3ª" ; " 4ª" ; " 5ª" ; " 6ª" ; "sab"   // PT
) ;

// GET THE DAY NUMBER FROM A DATE

PosD =  If ( IsValid ( Day (theDayOrDate ) ); DayOfWeek ( theDayOrDate ) ; "" ) ;

// GET THE day NUMBER WHEN THE day NAME (OR day NAME ABBREV.)  ALSO INDICATES THE day NUMBER

posNum = If (PosD = "" and GetAsNumber (theDayOrDate) > 0 and GetAsNumber (theDayOrDate)  ≤ 7 ; GetAsNumber (theDayOrDate) ; "") ;

DD = If ( PosD = ""; Substitute (theDayOrDate ; "." ; ""));

// DERIVE THE DAY NUMBER FROM THE DAY NAME (OR DAY NAME ABBREV.) WHERE NO DAY NUMBER IS INDICATED

posDN = 

Let ( adjustedText = "¶"  & dnL & "¶" ;

If (
Position ( adjustedText ; "¶" & DD & "¶" ; 1 ; 1 ) = 0 ; 0 ;
ValueCount ( Left ( dnL ; (Position ( adjustedText ; "¶" & DD & "¶" ; 1 ; 1 ) - 1) + Length ( DD ) ) )
)
) ;

posDAN = 

Let ( adjustedText = "¶"  & daL & "¶" ;

If (
Position ( adjustedText ; "¶" & DD & "¶" ; 1 ; 1 ) = 0 ; 0 ;
ValueCount ( Left ( daL ; (Position ( adjustedText ; "¶" & DD & "¶" ; 1 ; 1 ) - 1) + Length ( DD ) ) )
)
) ;

posR = Case ( posD  > 0 ; posD ; posNUM  > 0 ; posNum ; posDN  > 0 ; posDN ; posDAN  > 0 ; posDAN ; "?") ; 

posK = Case ( 

posR  > 0 and posR  ≤ 7 ; posR ;
posR > 7 and posR  ≤ 14 ; posR - 7 ;
posR > 14 and posR  ≤ 21 ; posR - 14 ;
posR > 21 and posR  ≤ 28 ; posR - 21 ;
posR > 28 and posR  ≤ 35 ; posR - 28 ;
""
) ;

DNum = Case (

posK ≠ "" and  dayNum = 1 and language ≠ "" ; posK & ". " ;
posK ≠ "" and dayNum = 2 and language ≠ ""  ; If  (Length ( posK ) = 1;  0 & posK & ". "; posK & ". " ) ;
(dayNum = 1 or dayNum = "") and language  =  "" ; posK;
dayNum = 2 and language  =  ""  ; If  (Length ( posK ) = 1;  0 & posK; posK );
""
) ;

// GET THE day NAME OR ABBREV. (AND day NUMBER) IN THE SELECTED LANGUAGE

Result = Case (

posK = "" ; "?";
language = "EN" and abbrev = "" ; GetValue ( dnL ; posK ) ;
language = "EN" and abbrev = "1" ; GetValue ( daL ; PosK ) ;
language = "FR" and abbrev = "" ; GetValue ( dnL ; PosK + 7 ) ;
language = "FR" and abbrev = "1" ; GetValue ( daL ; PosK + 7 ) ;
language = "ES" and abbrev = "" ; GetValue ( dnL ; PosK + 14 ) ;
language = "ES" and abbrev = "1" ; GetValue ( daL ; PosK + 14 ) ;
language = "IT" and abbrev = "" ; GetValue ( dnL ; PosK + 21) ;
language = "IT" and abbrev = "1" ; GetValue ( daL ; PosK + 21 );
language = "PT" and abbrev = "" ; GetValue ( dnL ; PosK + 28 ) ;
language = "PT" and abbrev = "1" ; GetValue ( daL ; PosK + 28 );
)

] ;



Case (
theDayOrDate = "" ; "" ;
PosR = "?" ; "?" ;
language = ""; DNum;
style = "" ; If ( dayNum  ≠ ""; DNum  & result ; result ) ;
style = 1 ; TextStyleAdd ( If ( dayNum  ≠ ""; DNum  & result ; result ) ; Titlecase ) ;
style = 2 ; TextStyleAdd ( If ( dayNum  ≠ ""; DNum  & result ; result ) ; Uppercase )

) // END CASE 

) //END LET

dayOfWeek_AN_ML ( theDayOrDate ; language ; abbrev ; dayNum ; style ) v.1

Get a day name or abbreviation in any language supported by the CF, and/or the day number, starting from a date or day number or starting from a day name or abbreviation provided in any supported language. Supported languages are: English, French, Spanish, Italian and Portuguese.

OPTIONS:

1. theDayOrDate: a date or a day name or day name abbreviation with or without a day number (1 or 01 for Sunday ... 7 or 07 for Saturday). day names and abbreviations must strictly match names and abbreviations found in the LISTS OF DAY NAMES or ABBREVIATIONS found in the CF. Please note however that abbreviations ending with a period will not compromise the CF's performance;

2. language: "EN" ; "FR" ; "ES" ; "IT" ; "PT" . Please note that leaving the language option empty will cause the CF to return only the day number;

3. abbrev: empty ("") to return the day name or "1" to return the day abbreviation;

4. dayNum: empty ("") to omit the day number prefix; "1" to return the day name prefixed by the day number - ex. 1. ; "2" to return the day number prefixed by a "0" - ex. 01.

5. style: "" returns the result in lowercase in all languages except English which is always returned in titlecase; "1" for titlecase; "2" for uppercase

########################

EX:
day_AL_ML ( "2014-11-19" ; "" ; "" ; "" ; "" ) > 4
day_AL_ML ( "2014-11-19" ; "Es" ; "" ; "" ; "" ) > miércoles
day_AL_ML ( "2014-11-19" ; "En" ; "" ; "" ; "" ) > Wednesday
day_AL_ML ( "2014-11-19" ; "En" ; "" ; 1 ; "" ) > 4. Wednesday
day_AL_ML ( "2014-11-19" ; "Fr" ; 1 ; 2 ; 2 ) > 04. MER
day_AL_ML ( "Wednesday" ; "Fr" ; "" ; "" ; 1 ) > Mercredi
day_AL_ML ( "Quarta-Feita" ; "En" ; "" ; "" ; 2 ) > WEDNESDAY
day_AL_ML ( "3. MAR" ; "En" ; "" ; "" ; 2 ) > TUESDAY

Comments

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

dayOfWeek_AN_ML ( theDayOrDate ; language ; abbrev ; dayNum ; style )

Comments

Support this website.

Support this website.