FMPro.JP カスタム関数 Library

IsValidTel ( 電話番号 ; オプション )

Mon, 17 Jan 2011 06:33:06 GMT

// 作者 : 社本修司
// 概要 : ＜電話番号＞が妥当な場合に真「1」を返します。妥当ではない場合、偽「0」を返します。
// カスタム関数    IsValidTel ( 電話番号 ; オプション )

/*==============================================================
カスタム関数 IsValidTel ( 電話番号 ; オプション )

＜電話番号＞が妥当な場合に真「1」を返します。妥当ではない場合、偽「0」を返します。
オプションに「1」を指定することで偽の場合にその理由を返し、真の場合はnull値を返します。
（オプション「0」の場合の結果は「1」か「0」）

==============================================================*/

Let (
    [
    OPTION = オプション ;
    TEL = Filter ( RomanHankaku ( 電話番号 ) ; "0123456789") ;
    LEN = Length ( TEL ) ;
    ONE = Left ( RomanHankaku ( 電話番号 ) ; 1 ) ;
    THR = Left ( TEL ; 3 ) ;
    FOU = Left ( TEL ; 4 ) ;
    RESULT =
        Case (
            IsEmpty ( TEL ) ;
                "電話番号が空です" ;
            ONE = "+" ;
                "" ;     // 海外の電話番号としてスルー
            ONE ≠ "0" ;
                "海外の電話番号の場合+ではじめてください" ;     // 国内プレフィックスの0がない場合海外番号とする

            FOU = "0570" and LEN ≠ 10 ;
                "統一番号(ナビダイヤル)は10桁です" ;
            FOU = "0990" and LEN ≠ 10 ;
                "情報料代理徴収用電話番号は10桁です" ;
            FOU = "0120" and LEN ≠ 10 ;
                "フリーダイヤル番号は10桁です" ;
            FOU = "0800" and LEN ≠ 10 ;
                "フリーダイヤル番号は10桁です" ;

            THR = "020" and LEN ≠ 11 ;
                "ポケベル番号は11桁です" ;
            THR = "050" and LEN ≠ 11 ;
                "IP電話番号は11桁です" ;
            THR = "060" and LEN ≠ 11 ;
                "FMC番号は11桁です" ;
            THR = "070" and LEN ≠ 11 ;
                "PHS番号は11桁です" ;
            THR = "080" and not (FOU = "0800") and LEN ≠ 11 ;
                "携帯番号は11桁です" ;
            THR = "090" and LEN ≠ 11 ;
                "携帯番号は11桁です" ;

            THR = "010" ;
                "010は現在使われておりません" ;
            THR = "030" ;
                "030は現在使われておりません" ;
            THR = "040" ;
                "040は現在使われておりません" ;

            not (
                THR = "020" or THR = "050" or THR = "060" or THR = "070" or THR = "080" or THR = "090"
            ) and
            LEN ≠ 10 ;
                "電話番号は10桁です"    // 神岡MA（2007年2月1日より）,小田原MA（2007年2月25日より）の一部の9桁番号も現在は10桁
        )
    ] ;
    Case (
        OPTION ;
            RESULT ;
            IsEmpty ( RESULT )
    )
)

TelnumberJ ( 電話番号 )

Mon, 17 Jan 2011 06:33:04 GMT

// 作者 : 社本修司
// 概要 : 日本の<電話番号>の-（ハイフン）の位置を揃えます。
// カスタム関数 TelnumberJ ( 電話番号 )

/*
TelnumberJ ( 電話番号 )
日本の電話番号の-（ハイフン）の位置を揃えます。
*/

Let(
[
TEL= Filter ( RomanHankaku (電話番号);"0123456789+");
TW=Left(TEL;2);
TH=Left(TEL;3);
FO=Left(TEL;4);
FI=Left(TEL;5);
LEN=Length(TEL);
H="-"
];
Case(
//着信課金用電話番号0120-DEF-GHJ
FO="0120" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;3)& H & Right(TEL;3);
//着信課金用電話番号0800-DEF-GHJK
FO="0800" and LEN=11;Left(TEL;4)& H & Middle(TEL;5;3)& H & Right(TEL;4);
//統一番号0570-DEF-GHJ
FO="0570" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;3)& H & Right(TEL;3);
//情報料代理徴収用電話番号0990-DEF-GHJ
FO="0990" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;3)& H & Right(TEL;3);
//発信者課金ポケベル電話番号020-CDE-FGHJK
TH="020" and LEN=11;Left(TEL;3)& H & Middle(TEL;4;4)& H & Right(TEL;4);
//IP電話の番号050-CDEF-GHJK
TH="050" and LEN=11;Left(TEL;3)& H & Middle(TEL;4;4)& H & Right(TEL;4);
//FMCの番号060-CDEF-GHJK
TH="060" and LEN=11;Left(TEL;3)& H & Middle(TEL;4;4)& H & Right(TEL;4);
//PHSの番号070-CDE-FGHJK
TH="070" and LEN=11;Left(TEL;3)& H & Middle(TEL;4;4)& H & Right(TEL;4);
//携帯電話の番号080-CDE-FGHJK
TH="080" and LEN=11;Left(TEL;3)& H & Middle(TEL;4;4)& H & Right(TEL;4);
//携帯電話の番号090-CDE-FGHJK
TH="090" and LEN=11;Left(TEL;3)& H & Middle(TEL;4;4)& H & Right(TEL;4);

FI="01267" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01372" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01374" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01377" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01392" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01397" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01398" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01456" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01457" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01466" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01547" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01558" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01564" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01586" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01587" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01632" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01634" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01635" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01648" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01654" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01655" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01656" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="01658" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="04992" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="04994" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="04996" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="04998" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="05769" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="05979" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="07468" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="08387" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="08388" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="08396" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="08477" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="08512" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="08514" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="08636" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="09496" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="09802" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="09912" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="09913" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FI="09969" and LEN=10;Left(TEL;5)& H & Middle(TEL;6;1)& H & Right(TEL;4);
FO="0123" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0124" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0125" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0126" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0133" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0134" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0135" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0136" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0137" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0138" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0139" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0142" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0143" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0144" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0145" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0146" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0152" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0153" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0154" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0155" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0156" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0157" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0158" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0162" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0163" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0164" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0165" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0166" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0167" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0172" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0173" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0174" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0175" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0176" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0178" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0179" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0182" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0183" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0184" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0185" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0186" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0187" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0191" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0192" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0193" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0194" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0195" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0197" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0198" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0220" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0223" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0224" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0225" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0226" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0228" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0229" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0233" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0234" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0235" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0237" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0238" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0240" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0241" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0242" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0243" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0244" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0246" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0247" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0248" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0250" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0254" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0255" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0256" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0257" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0258" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0259" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0260" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0261" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0263" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0264" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0265" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0266" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0267" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0268" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0269" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0270" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0274" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0276" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0277" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0278" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0279" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0280" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0282" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0283" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0284" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0285" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0287" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0288" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0289" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0291" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0293" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0294" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0295" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0296" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0297" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0299" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0422" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0428" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0436" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0438" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0439" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0460" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0463" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0465" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0466" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0467" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0470" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0475" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0476" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0478" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0479" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0480" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0493" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0494" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0495" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0531" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0532" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0533" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0536" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0537" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0538" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0539" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0544" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0545" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0547" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0548" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0550" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0551" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0553" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0554" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0555" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0556" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0557" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0558" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0561" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0562" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0563" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0564" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0565" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0566" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0567" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0568" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0569" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0572" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0573" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0574" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0575" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0576" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0577" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0578" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0581" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0584" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0585" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0586" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0587" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0594" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0595" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0596" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0597" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0598" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0599" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0721" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0725" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0735" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0736" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0737" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0738" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0739" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0740" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0742" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0743" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0744" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0745" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0746" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0747" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0748" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0749" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0761" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0763" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0765" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0766" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0767" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0768" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0770" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0771" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0772" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0773" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0774" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0776" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0778" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0779" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0790" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0791" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0794" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0795" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0796" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0797" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0798" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0799" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0820" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0823" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0824" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0826" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0827" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0829" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0833" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0834" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0835" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0836" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0837" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0838" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0845" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0846" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0847" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0848" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0852" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0853" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0854" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0855" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0856" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0857" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0858" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0859" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0863" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0865" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0866" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0867" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0868" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0869" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0875" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0877" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0879" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0880" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0883" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0884" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0885" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0887" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0889" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0892" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0893" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0894" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0895" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0896" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0897" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0898" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0920" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0930" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0940" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0942" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0943" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0944" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0946" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0947" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0948" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0949" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0950" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0952" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0954" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0955" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0956" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0957" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0959" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0964" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0965" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0966" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0967" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0968" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0969" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0972" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0973" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0974" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0977" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0978" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0979" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0980" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0982" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0983" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0984" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0985" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0986" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0987" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0993" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0994" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0995" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0996" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
FO="0997" and LEN=10;Left(TEL;4)& H & Middle(TEL;5;2)& H & Right(TEL;4);
TH="011" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="015" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="017" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="018" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="019" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="022" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="023" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="024" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="025" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="026" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="027" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="028" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="029" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="042" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="043" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="044" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="045" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="046" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="047" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="048" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="049" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="052" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="053" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="054" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="055" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="058" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="059" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="072" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="073" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="075" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="076" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="077" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="078" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="079" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="082" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="083" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="084" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="086" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="087" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="088" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="089" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="092" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="093" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="095" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="096" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="097" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="098" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TH="099" and LEN=10;Left(TEL;3)& H & Middle(TEL;4;3)& H & Right(TEL;4);
TW="03" and LEN=10;Left(TEL;2)& H & Middle(TEL;3;4)& H & Right(TEL;4);
TW="04" and LEN=10;Left(TEL;2)& H & Middle(TEL;3;4)& H & Right(TEL;4);
TW="06" and LEN=10;Left(TEL;2)& H & Middle(TEL;3;4)& H & Right(TEL;4);
電話番号
)
)

GetKeyLine ( Data; Key; Cnt; Value )

Mon, 17 Jan 2011 06:33:04 GMT

// 作者 : 給前悟郎
// 概要 : 改行区切りテキストを使い、先頭にKeyで指定した文字が存在する行を取り出す
// カスタム関数    GetKeyLine  ( Data; Key; Cnt; Value )

/*
名　　称：GetKeyLine  ( Data; Key; Cnt; Value )
概　　要：改行区切りテキストを使い、先頭にKeyで指定した文字が存在する行を取り出す
引数：
　Data:改行区切りデータ
　Key:行頭キーワード文字
　Cnt:1または""。どちらでも動作する
　Data:""
計算式例：Text.GetKeyLine  ( "あああ+あ¶+いいいい¶うううう¶"; "+"; 1; "" )
戻り値例："+いいいい¶"
*/

Let (
    [
    Cnt = If ( Cnt="";1; Cnt );
    Data = If ( Right ( Data; 1 ) ≠ "¶"; Data & "¶" ; Data );
    Max = PatternCount ( Data ; "¶");
    Line = MiddleValues ( Data ; Cnt ; 1 )
    ];

If (
    Cnt > Max;
        Value;
        GetKeyLine ( Data; Key; Cnt + 1 ; Value & If ( Left ( Line; Length ( Key ) )= Key ; Line; "" ) )
    )
)

RemoveVS ( Text )

Mon, 17 Jan 2011 06:33:04 GMT

// 作者 : 給前悟郎
// 概要 : 文字列中の濁音、半濁音を削除する
// カスタム関数 RemoveVS ( Text )

/*
関数名：RemoveVS ( Text )
引　数：文字列
結　果：文字列
内　容：引数中の全角ひらがな、カタカナから濁音、半濁音を削除する。
作　者：給前　悟郎
連絡先：goro@qzen.net
*/

Substitute ( Text ;
["が" ; "か"];
["ぎ" ; "き"];
["ぐ" ; "く"];
["げ" ; "け"];
["ご" ; "こ"];
["ざ" ; "さ"];
["じ" ; "し"];
["ず" ; "す"];
["ぜ" ; "せ"];
["ぞ" ; "そ"];
["だ" ; "た"];
["ぢ" ; "ち"];
["づ" ; "つ"];
["で" ; "て"];
["ど" ; "と"];
["ば" ; "は"];
["び" ; "ひ"];
["ぶ" ; "ふ"];
["べ" ; "へ"];
["ぼ" ; "ほ"];
["ぱ" ; "は"];
["ぴ" ; "ひ"];
["ぷ" ; "ふ"];
["ベ" ; "へ"];
["ぽ" ; "ほ"];
["ガ" ; "カ"];
["ギ" ; "キ"];
["グ" ; "ク"];
["ゲ" ; "ケ"];
["ゴ" ; "コ"];
["ザ" ; "サ"];
["ジ" ; "シ"];
["ズ" ; "ス"];
["ゼ" ; "セ"];
["ゾ" ; "ソ"];
["ダ" ; "タ"];
["ヂ" ; "チ"];
["ヅ" ; "ツ"];
["デ" ; "テ"];
["ド" ; "ト"];
["バ" ; "ハ"];
["ビ" ; "ヒ"];
["ブ" ; "フ"];
["ペ" ; "ヘ"];
["ボ" ; "ホ"];
["パ" ; "ハ"];
["ピ" ; "ヒ"];
["プ" ; "フ"];
["ペ" ; "ヘ"];
["ポ" ; "ホ"];
["ゔ" ; "う"];
["ヴ"; "ウ"]
)

GetFieldValues ( Field ; Cnt )

Mon, 17 Jan 2011 06:33:04 GMT

// 作者 : 給前悟郎
// 概要 : List()関数同様の機能をカレントテーブルで実現する
// カスタム関数 GetFieldValues ( Field ; Cnt )

/*
名　　称：GetFieldValues ( Field ; Cnt )
概　　要：現在の対象レコードのフィールドをList関数のように改行区切りで取得する。この関数を利用するように
引　　数：
　Field: 改行区切りで取得したいフィールド
　Cnt: 1
　＊Cnt は 1 必ず 1 とする事
計算式例：GetFieldValues ( Current::Field; 1; "" )
*/

If (
Cnt < Get ( 対象レコード数 );
GetNthRecord ( Field ; Cnt ) &"¶" & GetFieldValues ( Field ; Cnt + 1 );
GetNthRecord ( Field ; Cnt )
)

PyramidText ( Letter )

Mon, 17 Jan 2011 06:33:03 GMT

// 作者 : 尾崎達哉
// 概要 : 引数で与えたテキストをピラミッド状に右から一文字ずつ削り、改行しながら並べる
// カスタム関数    PyramidText ( Letter )

/*
PyramidText ( Letter )
ピラミッド状に右から一文字ずつ削った文章を、改行しながら並べる関数です。
この関数をそのまま使った計算フィールドは、リレーションのキーにはなりませんので、注意してください。
*/

Let (
    [ Letterlength = Length ( Letter ) ] ;

    Case(
        Letterlength > 0 ;
            Letter &"¶" &
            PyramidText ( Left ( Letter ; Letterlength - 1 ) )
    )
)

ModList ( Lists; Keyword; Add; Mode; Cnt )

Mon, 17 Jan 2011 06:33:03 GMT

// 作者 : 給前悟郎
// 概要 : 改行区切りのテキストの中の値に対して接頭／接尾辞の追加、値自体の置換を行う。
// カスタム関数    ModList ( Lists; Keyword; Add; Mode; Cnt )

/*
名　　称：ModList ( Lists; Keyword; Add; Mode; Cnt )
概　　要：
　改行区切りのテキストの中の値に対して接頭／接尾辞の追加、値自体の置換を行う関数。
　第一引数Lists：改行区切りの文字列。最後の文字も改行で終わっている事。
　第二引数Keywords：キーワード。キーワード中に改行は含まない事。
　第三引数Add：キーワードに対し追加または置換
　第四引数Mode：動作モード
　　　　　　　1=キーワードに接頭辞として第四引数を追加
　　　　　　　2=キーワードに接尾辞として第四引数を追加
　　　　　　　3=キーワードを第四引数に置換
　第五引数Cnt：カウンタ。呼び出し時には1をセットする事
使用例　：
　ModList ( "あ¶い¶う¶え¶お¶"; "う"; "追加テキスト!"; 1; 1 )
結果例　：
　あ
　い
　追加テキスト!う
　え
　お
　最終更新日：2008/11/07
*/

Let ( [
    Lists = If ( Right ( Lists; 1 ) ≠ "¶"; Lists & "¶"; Lists );
    Line = MiddleValues ( Lists ; Cnt ; 1 );
    NextData = MiddleValues ( Lists ; Cnt ; PatternCount ( Lists ; "¶" ) )
];

Case (
Mode=1;
If (
    Cnt ≤ PatternCount ( Lists ; "¶" );
    Case (
        PatternCount ( Line ; "¶" & Keyword & "¶" ) > 0;
            Substitute ( Line ; Keyword ; Add & Keyword ) & ModList ( Lists; Keyword; Add; 1; Cnt + 1 );
        Position ( Line ; Keyword & "¶" ; 1 ; 1 ) = 1;
            Substitute ( Line ; Keyword ; Add & Keyword ) & ModList ( Lists; Keyword; Add; 1; Cnt + 1 );
            Line & ModList ( Lists; Keyword; Add; 1; Cnt + 1 )
    );
    Line
);
Mode=2;
If (
    Cnt ≤ PatternCount ( Lists ; "¶" );
    Case (
        PatternCount ( Line ; "¶" & Keyword & "¶" ) > 0;
            Substitute ( Line ; Keyword ;  Keyword & Add ) & ModList ( Lists; Keyword; Add; 2; Cnt + 1 );
        Position ( Line ; Keyword & "¶" ; 1 ; 1 ) = 1;
            Substitute ( Line ; Keyword ; Keyword & Add ) & ModList ( Lists; Keyword; Add; 2; Cnt + 1 );
            Line & ModList ( Lists; Keyword; Add; 2; Cnt + 1 )
    );
    Line
);
Mode=3;
Case (
        Position ( Line ; Keyword & "¶" ; 1 ; 1 ) = 1;
            Substitute ( Line ; Keyword & "¶" ; Add&"¶" );
        Position ( Line ; Keyword & "¶" ; 1 ; 1 ) > 1;
            Substitute ( Line ; "¶" & Keyword & "¶" ; Add&"¶" );
);
"Error!"
)
)

SimpleList ( Field; Cnt; Data )

Mon, 17 Jan 2011 06:33:03 GMT

// 作者 : 給前悟郎
// 概要 : FileMaker Pro 8.5以降のList関数のように、関連レコードの指定したフィールドを改行区切りで取得する。FileMaker Pro 8でも利用できる。
// カスタム関数    SimpleList  ( Field; Cnt; Data )

/*
名　　称：SimpleList  ( Field; Cnt; Data )
概　　要：FileMaker Pro 8.5 以降の List 関数のように、関連レコードの指定したフィールドを改行区切りで
　　　　　取得する。FileMaker Pro 8 でも利用できる。
引数：
　Field: 改行区切りで取得したい関連フィールド名
　Cnt: 1
　Data: ""
　＊Cnt は 1 必ず 1 を。Data は必ず "" とする事
計算式例：SimpleList ( TO::FieldName; 1; "" )
戻り値例："ああああ¶いいいい¶うううう¶"
*/

Let (
    [
    CntMax = Count ( Field );
    Data = Data & GetNthRecord ( Field ; Cnt ) & "¶";
    Cnt = Cnt + 1
    ];

    If (
        Cnt > CntMax;
            DelOverlap ( Data ; "" );
            SimpleList ( Field; Cnt; Data )
    )
)

DelOverlap ( Data1; Data2 )

Mon, 17 Jan 2011 06:33:03 GMT

// 作者 : 給前悟郎
// 概要 : 任意の改行区切りの文字列から、重複行を削除する
// カスタム関数    DelOverlap ( Data1; Data2 )

/*
名　　称：DelOverlap ( Data1; Data2 )
概　　要：任意の改行区切りの文字列から、重複行を削除する
計算式例：DelOverlap ( "ああああ¶いいいい¶うううう¶ああああ¶うううう"; "" )
戻り値例："ああああ¶いいいい¶うううう¶"
*/
If (
    Length ( Data1 ) < 2;
        Data2 ;
        If (
            PatternCount ( Data2; MiddleValues ( Data1 ; 1 ; 1 )  ) = 0 ;

                DelOverlap ( MiddleValues ( Data1 ; 2 ; PatternCount ( Data1 ; "¶" ) ) ; Data2 & MiddleValues ( Data1 ; 1 ; 1 ));
                DelOverlap ( MiddleValues ( Data1 ; 2 ; PatternCount ( Data1 ; "¶" ) ) ; Data2 )
        )
)

BusinessDaysAfter ( 開始日 ; 営業日数 )

Mon, 17 Jan 2011 06:32:46 GMT

// 作者 : 社本修司
// 概要 : 開始日から営業日数後の日付を返します。
// カスタム関数    BusinessDaysAfter ( 開始日 ; 営業日数 )

/*==============================================================

カスタム関数    BusinessDaysAfter ( 開始日 ; 営業日数 )
開始日から営業日数後の日付を返します。

例えば、日曜日祝日のみを休みとした場合の2009年5月1日（金）の5営業日後は、
2009年5月11日（月）となります。
5月2日（土）……1営業日後
5月3日（憲法記念日）……休み
5月4日（みどりの日）……休み
5月5日（こどもの日）……休み
5月6日（振替休日）……休み
5月7日（木）……2営業日後
5月8日（金）……3営業日後
5月9日（土）……4営業日後
5月10日（日）……休み
5月11日（月）……5営業日後

このカスタム関数を引用するに当たっては、必ずコメントも一緒に引用してください。
=============================================================*/

Let (
    [
    theDATE = 開始日 ;
    DAYS = 営業日数 ;
    //----------------------------------------------------------------------
    // 上で定義した theDate を休日判定する
    // 休みの基準を変える場合は以下の式を変更すること
    // 祝日の判定に HolidayJ 関数（カスタム関数）を使用
    // HappyMonday 関数（カスタム関数）を利用すると第2第4土曜日は休みとかいう条件も
    // シンプルな式で計算できる
    //  HolidayJ 関数・HappyMonday 関数はを参照のこと
    //----------------------------------------------------------------------
    //----------------------------------------------------------------------
    // 1.日曜日・祝日の場合を休みとする場合
    //----------------------------------------------------------------------

    BD =
    not (
    ( not IsEmpty ( HolidayJ ( theDate ) ) )         // 祝日
    or ( DayOfWeek ( theDate ) = 1 )             // 日曜日
    )

    //----------------------------------------------------------------------
    // 2.日曜日・祝日に加え、第2第4土曜日も休みの場合のサンプル計算式
    //----------------------------------------------------------------------
    /*
    Y = Year ( theDate ) ;
    M = Month ( theDate ) ;
    BD =
    not (
    ( not IsEmpty ( HolidayJ ( theDate ) ) )         // 祝日
    or ( DayOfWeek ( theDate ) = 1 )             // 日曜日
    or ( theDate = HappyMonday ( 2 ; "土" ; M ; Y ) )     // 第2土曜日
    or ( theDate = HappyMonday ( 4 ; "土" ; M ; Y ) )     // 第4土曜日
    )
    */

    //----------------------------------------------------------------------
    // 3. 銀行休日の場合のサンプル計算式（土日祝と年末・年始の12/31〜1/3）
    //----------------------------------------------------------------------
    /*
    Y = Year ( theDate ) ;
    BD =
    not (
    ( not IsEmpty ( HolidayJ ( theDate ) ) )     // 祝日
    or ( DayOfWeek ( theDate ) = 1 )             // 日曜日
    or ( DayOfWeek ( theDate ) = 7 )             // 土曜日
    or ( theDate = Date ( 12 ; 31 ; Y ) )        // 年末
    or ( theDate = Date ( 1 ; 2 ; Y ) )         // 年始 1月1日はHolidayJで判定済み
    or ( theDate = Date ( 1 ; 3 ; Y ) )         //
    )
    */

    ] ;

    Case (
        DAYS ≥ 1 ;
            BusinessDaysAfter ( theDATE + 1 ; DAYS - BD ) ;
            Case (
                BD ;
                    theDATE ;
                    BusinessDaysAfter ( theDATE + 1 ; DAYS - BD )
            )
    )

)

TimeInscription ( TheTime )

Mon, 17 Jan 2011 06:33:07 GMT

// 作者 : 尾崎達哉
// 概要 : 時間フィールドの内容を「○時間○分」という書式で表示させる。
// カスタム関数    TimeInscription ( TheTime )

/*
TimeInscription ( TheTime )
時間フィールドの内容を「○時間○分」という書式で表示させる。
0分、0時間の場合はそれぞれを省略する。
*/

Case (
    TheTime < Time ( 1 ; 0 ; 0 ) ; Minute ( TheTime ) & "分" ;
    Minute ( TheTime ) = 0 ; Hour ( TheTime ) & "時間" ;
    Hour ( TheTime ) & "時間" & Minute ( TheTime ) & "分"
)

InformationOfBirthday ( Birthday ; Mode )

Mon, 17 Jan 2011 06:33:07 GMT

// 作者 : 尾崎達哉
// 概要 : 誕生日から、干支、星座、誕生石を返す。
// カスタム関数    InformationOfBirthday ( Birthday ; Mode )

/*
InformationOfBirthday ( Birthday ; Mode )
誕生日から、干支、星座、誕生石を返す。

---引数解説----
Birthday ：日付
Mode ：返す値の指定
  1：干支
  2：星座
  3：誕生石※複数有る場合は、改行で区切っています。

計算フィールド(繰り返し数3)
Constellation ( Extend ( 日付フィールド ) ; Get ( 計算式繰り返し位置番号 ) )
を制作し、一つのフィールドで全てを表示することを想定しています。

制作環境 Winsows2000 FilemakerPro8.5Advanced

*/

Case (

Mode = 1
;
Choose ( Mod ( Year ( Birthday ) ; 12 ) ;
"さる年" ; "とり年" ; "いぬ年" ; "いのしし年" ; "ねずみ年" ; "うし年" ; "とら年" ; "うさぎ年" ; "たつ年" ; "へび年" ; "うま年" ; "ひつじ年" ) ;

Mode = 2
;
Let ( [$計算日 = Date ( Month ( Birthday ) ; Day ( Birthday ) ; 2000 ) ];

Case (
$計算日  <  Date (  1 ; 21 ; 2000 ) ; "やぎ座" ;
$計算日  <  Date (  2 ; 21 ; 2000 ) ; "みずがめ座" ;
$計算日  <  Date (  3 ; 21 ; 2000 ) ; "うお座" ;
$計算日  <  Date (  4 ; 21 ; 2000 ) ; "おひつじ座" ;
$計算日  <  Date (  5 ; 21 ; 2000 ) ; "おうし座" ;
$計算日  <  Date (  6 ; 21 ; 2000 ) ; "ふたご座" ;
$計算日  <  Date (  7 ; 21 ; 2000 ) ; "かに座" ;
$計算日  <  Date (  8 ; 21 ; 2000 ) ; "しし座" ;
$計算日  <  Date (  9 ; 21 ; 2000 ) ; "おとめ座" ;
$計算日  <  Date ( 10 ; 21 ; 2000 ) ; "てんびん座" ;
$計算日  <  Date ( 11 ; 21 ; 2000 ) ; "さそり座" ;
$計算日  <  Date ( 12 ; 21 ; 2000 ) ; "いて座" ;
                                                    "やぎ座"
)
)
;

Mode = 3 ;
Case (
Month ( Birthday ) = 1 ; "ガーネット" ;
Month ( Birthday ) = 2 ; "アメジスト" ;
Month ( Birthday ) = 3 ; "アクアマリン¶コーラル¶ブラッドストーン" ;
Month ( Birthday ) = 4 ; "ダイヤモンド¶クォーツ" ;
Month ( Birthday ) = 5 ; "エメラルド¶ジェイド" ;
Month ( Birthday ) = 6 ; "パール¶ムーンストーン¶アレキサンドライト" ;
Month ( Birthday ) = 7 ; "ルビー¶カーネリアン" ;
Month ( Birthday ) = 8 ; "ペリドット¶サードニックス" ;
Month ( Birthday ) = 9 ; "サファイア" ;
Month ( Birthday ) = 10 ; "オパール¶トルマリン" ;
Month ( Birthday ) = 11 ; "イエロートパーズ¶シトリン" ;
Month ( Birthday ) = 12 ; "ターコイズ¶ラピスラズリ¶ブルートパーズ¶ジルコニア¶タンザナイト" ;
"" )

; "" )

OldYearNameJ ( TheDay ; Mode )

Mon, 17 Jan 2011 06:33:06 GMT

// 作者 : 尾崎達哉
// 概要 : 明治より前に対応させた、西暦→和暦変換です。
// カスタム関数 OldYearNameJ ( TheDay ; Mode )

/*
OldYearNameJ ( TheDay ; Mode )
明治より前に対応させた、西暦→和暦変換です。
改元した年は全て元年としていますので、その歴の最後の年（例：昭和64年）
は表示出来ません。

- - - 引数開設 - - - -
TheDay ：日付
Mode ：南北朝時代の表記
1：北朝の元号
2：南朝の元号
3：北朝の元号 ( 南朝の元号 )

*/

Let (
[
$通常 = Case (
Year ( TheDay ) < 645 ; "※元号制定前西暦" & Year ( TheDay ) & "年";
Year ( TheDay ) < 650 ; "大化" & Year ( TheDay ) + 1 - 645 & "年" ;
Year ( TheDay ) < 655 ; "白雉" & Year ( TheDay ) + 1 - 650 & "年" ;
Year ( TheDay ) < 686 ; "※元号廃止期間西暦" & Year ( TheDay ) & "年" ;
Year ( TheDay ) < 587 ; "朱鳥" & Year ( TheDay ) + 1 - 686 & "年" ;
Year ( TheDay ) < 701 ; "※元号廃止期間西暦" & Year ( TheDay ) & "年" ;
Year ( TheDay ) < 704 ; "大宝" & Year ( TheDay ) + 1 - 701 & "年" ;
Year ( TheDay ) < 708 ; "慶雲" & Year ( TheDay ) + 1 - 704 & "年" ;
Year ( TheDay ) < 715 ; "和銅" & Year ( TheDay ) + 1 - 708 & "年" ;
Year ( TheDay ) < 717 ; "霊亀" & Year ( TheDay ) + 1 - 715 & "年" ;
Year ( TheDay ) < 724 ; "養老" & Year ( TheDay ) + 1 - 717 & "年" ;
Year ( TheDay ) < 729 ; "神亀" & Year ( TheDay ) + 1 - 724 & "年" ;
Year ( TheDay ) < 749 ; "天平" & Year ( TheDay ) + 1 - 729 & "年" ;
Year ( TheDay ) < 757; "天平感宝/天平勝宝" & Year ( TheDay ) + 1 - 749 & "年" ;
Year ( TheDay ) < 765 ; "天平宝字" & Year ( TheDay ) + 1 - 757 & "年" ;
Year ( TheDay ) < 767 ; "天平神護" & Year ( TheDay ) + 1 - 765 & "年" ;
Year ( TheDay ) < 770 ; "神護景雲" & Year ( TheDay ) + 1 - 767 & "年" ;
Year ( TheDay ) < 781 ; "宝亀" & Year ( TheDay ) + 1 - 770 & "年" ;
Year ( TheDay ) < 782 ; "天応" & Year ( TheDay ) + 1 - 781 & "年" ;
Year ( TheDay ) < 806 ; "延暦" & Year ( TheDay ) + 1 - 782 & "年" ;
Year ( TheDay ) < 810 ; "大同" & Year ( TheDay ) + 1 - 806 & "年" ;
Year ( TheDay ) < 824 ; "弘仁" & Year ( TheDay ) + 1 - 810 & "年" ;
Year ( TheDay ) < 834 ; "天長" & Year ( TheDay ) + 1 - 824 & "年" ;
Year ( TheDay ) < 848; "承和" & Year ( TheDay ) + 1 - 834 & "年" ;
Year ( TheDay ) < 851 ; "嘉祥" & Year ( TheDay ) + 1 - 848 & "年" ;
Year ( TheDay ) < 854 ; "仁寿" & Year ( TheDay ) + 1 - 851 & "年" ;
Year ( TheDay ) < 857 ; "斉衡" & Year ( TheDay ) + 1 - 854 & "年" ;
Year ( TheDay ) < 859 ; "天安" & Year ( TheDay ) + 1 - 857 & "年" ;
Year ( TheDay ) < 877 ; "貞観" & Year ( TheDay ) + 1 - 859 & "年" ;
Year ( TheDay ) < 885 ; "元慶" & Year ( TheDay ) + 1 - 877 & "年" ;
Year ( TheDay ) < 889 ; "仁和" & Year ( TheDay ) + 1 - 885 & "年" ;
Year ( TheDay ) < 898 ; "寛平" & Year ( TheDay ) + 1 - 889 & "年" ;
Year ( TheDay ) < 901 ; "昌泰" & Year ( TheDay ) + 1 - 898 & "年" ;
Year ( TheDay ) < 923; "延喜" & Year ( TheDay ) + 1 - 901 & "年" ;
Year ( TheDay ) < 931 ; "延長" & Year ( TheDay ) + 1 - 923 & "年" ;
Year ( TheDay ) < 938 ; "承平" & Year ( TheDay ) + 1 - 931 & "年" ;
Year ( TheDay ) < 947 ; "天慶" & Year ( TheDay ) + 1 - 938 & "年" ;
Year ( TheDay ) < 957 ; "天暦" & Year ( TheDay ) + 1 - 947 & "年" ;
Year ( TheDay ) < 961 ; "天徳" & Year ( TheDay ) + 1 - 957 & "年" ;
Year ( TheDay ) < 964 ; "応和" & Year ( TheDay ) + 1 - 961 & "年" ;
Year ( TheDay ) < 968 ; "康保" & Year ( TheDay ) + 1 - 964 & "年" ;
Year ( TheDay ) < 970 ; "安和" & Year ( TheDay ) + 1 - 968 & "年" ;
Year ( TheDay ) < 973 ; "天緑" & Year ( TheDay ) + 1 - 970 & "年" ;
Year ( TheDay ) < 976 ; "天延" & Year ( TheDay ) + 1 - 973 & "年" ;
Year ( TheDay ) < 978 ; "貞元" & Year ( TheDay ) + 1 - 976 & "年" ;
Year ( TheDay ) < 983 ; "天元" & Year ( TheDay ) + 1 - 978 & "年" ;
Year ( TheDay ) < 985 ; "永観" & Year ( TheDay ) + 1 - 983 & "年" ;
Year ( TheDay ) < 987 ; "寛和" & Year ( TheDay ) + 1 - 985 & "年" ;
Year ( TheDay ) < 989 ; "永延" & Year ( TheDay ) + 1 - 987 & "年" ;
Year ( TheDay ) < 990 ; "永祚" & Year ( TheDay ) + 1 - 989 & "年" ;
Year ( TheDay ) < 995 ; "正歴" & Year ( TheDay ) + 1 - 990 & "年" ;
Year ( TheDay ) < 999 ; "長徳" & Year ( TheDay ) + 1 - 995 & "年" ;
Year ( TheDay ) < 1004 ; "長保" & Year ( TheDay ) + 1 - 999 & "年" ;
Year ( TheDay ) < 1012 ; "寛弘" & Year ( TheDay ) + 1 - 1004 & "年" ;
Year ( TheDay ) < 1017 ; "長和" & Year ( TheDay ) + 1 - 1012 & "年" ;
Year ( TheDay ) < 1021 ; "寛仁" & Year ( TheDay ) + 1 - 1017 & "年" ;
Year ( TheDay ) < 1024 ; "治安" & Year ( TheDay ) + 1 - 1021 & "年" ;
Year ( TheDay ) < 1028 ; "万寿" & Year ( TheDay ) + 1 - 1024 & "年" ;
Year ( TheDay ) < 1037 ; "長元" & Year ( TheDay ) + 1 - 1028 & "年" ;
Year ( TheDay ) < 1040 ; "長暦" & Year ( TheDay ) + 1 - 1037 & "年" ;
Year ( TheDay ) < 1044 ; "長久" & Year ( TheDay ) + 1 - 1040 & "年" ;
Year ( TheDay ) < 1046 ; "寛徳" & Year ( TheDay ) + 1 - 1044 & "年" ;
Year ( TheDay ) < 1053 ; "永承" & Year ( TheDay ) + 1 - 1046 & "年" ;
Year ( TheDay ) < 1058 ; "天喜" & Year ( TheDay ) + 1 - 1053 & "年" ;
Year ( TheDay ) < 1065 ; "康平" & Year ( TheDay ) + 1 - 1058 & "年" ;
Year ( TheDay ) < 1069 ; "治暦" & Year ( TheDay ) + 1 - 1065 & "年" ;
Year ( TheDay ) < 1074 ; "延久" & Year ( TheDay ) + 1 - 1069 & "年" ;
Year ( TheDay ) < 1077 ; "承保" & Year ( TheDay ) + 1 - 1074 & "年" ;
Year ( TheDay ) < 1081 ; "承暦" & Year ( TheDay ) + 1 - 1077 & "年" ;
Year ( TheDay ) < 1084 ; "永保" & Year ( TheDay ) + 1 - 1081 & "年" ;
Year ( TheDay ) < 1087 ; "応徳" & Year ( TheDay ) + 1 - 1084 & "年" ;
Year ( TheDay ) < 1094 ; "寛治" & Year ( TheDay ) + 1 - 1087 & "年" ;
Year ( TheDay ) < 1096 ; "嘉保" & Year ( TheDay ) + 1 - 1094 & "年" ;
Year ( TheDay ) < 1097 ; "永長" & Year ( TheDay ) + 1 - 1096 & "年" ;
Year ( TheDay ) < 1099 ; "承徳" & Year ( TheDay ) + 1 - 1097 & "年" ;
Year ( TheDay ) < 1104 ; "康和" & Year ( TheDay ) + 1 - 1099 & "年" ;
Year ( TheDay ) < 1106 ; "長治" & Year ( TheDay ) + 1 - 1104 & "年" ;
Year ( TheDay ) < 1108 ; "嘉承" & Year ( TheDay ) + 1 - 1106 & "年" ;
Year ( TheDay ) < 1110 ; "天仁" & Year ( TheDay ) + 1 - 1108 & "年" ;
Year ( TheDay ) < 1113 ; "天永" & Year ( TheDay ) + 1 - 1110 & "年" ;
Year ( TheDay ) < 1118 ; "永久" & Year ( TheDay ) + 1 - 1113 & "年" ;
Year ( TheDay ) < 1120 ; "元永" & Year ( TheDay ) + 1 - 1118 & "年" ;
Year ( TheDay ) < 1124 ; "保安" & Year ( TheDay ) + 1 - 1120 & "年" ;
Year ( TheDay ) < 1126 ; "天治" & Year ( TheDay ) + 1 - 1124 & "年" ;
Year ( TheDay ) < 1131 ; "大治" & Year ( TheDay ) + 1 - 1126 & "年" ;
Year ( TheDay ) < 1132 ; "天承" & Year ( TheDay ) + 1 - 1131 & "年" ;
Year ( TheDay ) < 1135 ; "長承" & Year ( TheDay ) + 1 - 1132 & "年" ;
Year ( TheDay ) < 1141 ; "保延" & Year ( TheDay ) + 1 - 1135 & "年" ;
Year ( TheDay ) < 1142 ; "永治" & Year ( TheDay ) + 1 - 1141 & "年" ;
Year ( TheDay ) < 1144 ; "康治" & Year ( TheDay ) + 1 - 1142 & "年" ;
Year ( TheDay ) < 1145 ; "天養" & Year ( TheDay ) + 1 - 1144 & "年" ;
Year ( TheDay ) < 1151 ; "久安" & Year ( TheDay ) + 1 - 1145 & "年" ;
Year ( TheDay ) < 1154 ; "仁平" & Year ( TheDay ) + 1 - 1151 & "年" ;
Year ( TheDay ) < 1156 ; "久寿" & Year ( TheDay ) + 1 - 1154 & "年" ;
Year ( TheDay ) < 1159 ; "保元" & Year ( TheDay ) + 1 - 1156 & "年" ;
Year ( TheDay ) < 1160 ; "平治" & Year ( TheDay ) + 1 - 1159 & "年" ;
Year ( TheDay ) < 1161 ; "永暦" & Year ( TheDay ) + 1 - 1160 & "年" ;
Year ( TheDay ) < 1163 ; "応保" & Year ( TheDay ) + 1 - 1161 & "年" ;
Year ( TheDay ) < 1165 ; "長寛" & Year ( TheDay ) + 1 - 1163 & "年" ;
Year ( TheDay ) < 1166 ; "永万" & Year ( TheDay ) + 1 - 1165 & "年" ;
Year ( TheDay ) < 1169 ; "仁安" & Year ( TheDay ) + 1 - 1166 & "年" ;
Year ( TheDay ) < 1171 ; "嘉応" & Year ( TheDay ) + 1 - 1169 & "年" ;
Year ( TheDay ) < 1175 ; "承安" & Year ( TheDay ) + 1 - 1171 & "年" ;
Year ( TheDay ) < 1177 ; "安元" & Year ( TheDay ) + 1 - 1175 & "年" ;
Year ( TheDay ) < 1181 ; "治承" & Year ( TheDay ) + 1 - 1177 & "年" ;
Year ( TheDay ) < 1182 ; "養和" & Year ( TheDay ) + 1 - 1181 & "年" ;
Year ( TheDay ) < 1185 ; "寿永" & Year ( TheDay ) + 1 - 1182 & "年" ;
Year ( TheDay ) < 1190 ; "文治" & Year ( TheDay ) + 1 - 1185 & "年" ;
Year ( TheDay ) < 1199 ; "建久" & Year ( TheDay ) + 1 - 1190 & "年" ;
Year ( TheDay ) < 1201 ; "正治" & Year ( TheDay ) + 1 - 1199 & "年" ;
Year ( TheDay ) < 1204 ; "建仁" & Year ( TheDay ) + 1 - 1201 & "年" ;
Year ( TheDay ) < 1206 ; "元久" & Year ( TheDay ) + 1 - 1204 & "年" ;
Year ( TheDay ) < 1207 ; "建永" & Year ( TheDay ) + 1 - 1206 & "年" ;
Year ( TheDay ) < 1211 ; "承元" & Year ( TheDay ) + 1 - 1207 & "年" ;
Year ( TheDay ) < 1213 ; "建暦" & Year ( TheDay ) + 1 - 1211 & "年" ;
Year ( TheDay ) < 1219 ; "建保" & Year ( TheDay ) + 1 - 1213 & "年" ;
Year ( TheDay ) < 1222 ; "承久" & Year ( TheDay ) + 1 - 1219 & "年" ;
Year ( TheDay ) < 1224 ; "貞応" & Year ( TheDay ) + 1 - 1222 & "年" ;
Year ( TheDay ) < 1225 ; "元仁" & Year ( TheDay ) + 1 - 1224 & "年" ;
Year ( TheDay ) < 1227 ; "嘉禄" & Year ( TheDay ) + 1 - 1225 & "年" ;
Year ( TheDay ) < 1229 ; "安貞" & Year ( TheDay ) + 1 - 1227 & "年" ;
Year ( TheDay ) < 1232 ; "寛喜" & Year ( TheDay ) + 1 - 1229 & "年" ;
Year ( TheDay ) < 1233 ; "貞永" & Year ( TheDay ) + 1 - 1232 & "年" ;
Year ( TheDay ) < 1234 ; "天福" & Year ( TheDay ) + 1 - 1233 & "年" ;
Year ( TheDay ) < 1235 ; "文暦" & Year ( TheDay ) + 1 - 1234 & "年" ;
Year ( TheDay ) < 1238 ; "嘉禎" & Year ( TheDay ) + 1 - 1235 & "年" ;
Year ( TheDay ) < 1239 ; "暦仁" & Year ( TheDay ) + 1 - 1238 & "年" ;
Year ( TheDay ) < 1240 ; "延応" & Year ( TheDay ) + 1 - 1239 & "年" ;
Year ( TheDay ) < 1243 ; "仁治" & Year ( TheDay ) + 1 - 1240 & "年" ;
Year ( TheDay ) < 1247 ; "寛元" & Year ( TheDay ) + 1 - 1243 & "年" ;
Year ( TheDay ) < 1249 ; "宝治" & Year ( TheDay ) + 1 - 1247 & "年" ;
Year ( TheDay ) < 1256 ; "建長" & Year ( TheDay ) + 1 - 1249 & "年" ;
Year ( TheDay ) < 1257 ; "康元" & Year ( TheDay ) + 1 - 1256 & "年" ;
Year ( TheDay ) < 1259 ; "正嘉" & Year ( TheDay ) + 1 - 1257 & "年" ;
Year ( TheDay ) < 1260 ; "正元" & Year ( TheDay ) + 1 - 1259 & "年" ;
Year ( TheDay ) < 1261 ; "文応" & Year ( TheDay ) + 1 - 1260 & "年" ;
Year ( TheDay ) < 1264 ; "弘長" & Year ( TheDay ) + 1 - 1261 & "年" ;
Year ( TheDay ) < 1275 ; "文永" & Year ( TheDay ) + 1 - 1264 & "年" ;
Year ( TheDay ) < 1278 ; "建治" & Year ( TheDay ) + 1 - 1275 & "年" ;
Year ( TheDay ) < 1288 ; "弘安" & Year ( TheDay ) + 1 - 1278 & "年" ;
Year ( TheDay ) < 1293 ; "正応" & Year ( TheDay ) + 1 - 1288 & "年" ;
Year ( TheDay ) < 1299 ; "永仁" & Year ( TheDay ) + 1 - 1293 & "年" ;
Year ( TheDay ) < 1302 ; "正安" & Year ( TheDay ) + 1 - 1299 & "年" ;
Year ( TheDay ) < 1303 ; "乾元" & Year ( TheDay ) + 1 - 1302 & "年" ;
Year ( TheDay ) < 1306 ; "嘉元" & Year ( TheDay ) + 1 - 1303 & "年" ;
Year ( TheDay ) < 1308 ; "徳治" & Year ( TheDay ) + 1 - 1306 & "年" ;
Year ( TheDay ) < 1311 ; "延慶" & Year ( TheDay ) + 1 - 1308 & "年" ;
Year ( TheDay ) < 1312 ; "応長" & Year ( TheDay ) + 1 - 1311 & "年" ;
Year ( TheDay ) < 1317 ; "正和" & Year ( TheDay ) + 1 - 1312 & "年" ;
Year ( TheDay ) < 1319 ; "文保" & Year ( TheDay ) + 1 - 1317 & "年" ;
Year ( TheDay ) < 1321 ; "元応" & Year ( TheDay ) + 1 - 1319 & "年" ;
Year ( TheDay ) < 1324 ; "元亨" & Year ( TheDay ) + 1 - 1321 & "年" ;
Year ( TheDay ) < 1326 ; "正中" & Year ( TheDay ) + 1 - 1324 & "年" ;
Year ( TheDay ) < 1329 ; "嘉暦" & Year ( TheDay ) + 1 - 1326 & "年" ;
Year ( TheDay ) < 1332 ; "元徳" & Year ( TheDay ) + 1 - 1329 & "年" ;
Year ( TheDay ) < 1334 ; "正慶" & Year ( TheDay ) + 1 - 1332 & "年" ;
Year ( TheDay ) < 1338 ; "建武" & Year ( TheDay ) + 1 - 1334 & "年" ;
Year ( TheDay ) < 1342 ; "暦応" & Year ( TheDay ) + 1 - 1338 & "年" ;
Year ( TheDay ) < 1345 ; "康永" & Year ( TheDay ) + 1 - 1342 & "年" ;
Year ( TheDay ) < 1350 ; "貞和" & Year ( TheDay ) + 1 - 1345 & "年" ;
Year ( TheDay ) < 1352 ; "観応" & Year ( TheDay ) + 1 - 1350 & "年" ;
Year ( TheDay ) < 1356 ; "文和" & Year ( TheDay ) + 1 - 1352 & "年" ;
Year ( TheDay ) < 1361 ; "延文" & Year ( TheDay ) + 1 - 1356 & "年" ;
Year ( TheDay ) < 1362 ; "康安" & Year ( TheDay ) + 1 - 1361 & "年" ;
Year ( TheDay ) < 1368 ; "貞治" & Year ( TheDay ) + 1 - 1362 & "年" ;
Year ( TheDay ) < 1375 ; "応安" & Year ( TheDay ) + 1 - 1368 & "年" ;
Year ( TheDay ) < 1379 ; "永和" & Year ( TheDay ) + 1 - 1375 & "年" ;
Year ( TheDay ) < 1381 ; "康暦" & Year ( TheDay ) + 1 - 1379 & "年" ;
Year ( TheDay ) < 1384 ; "永徳" & Year ( TheDay ) + 1 - 1381 & "年" ;
Year ( TheDay ) < 1387 ; "至徳" & Year ( TheDay ) + 1 - 1384 & "年" ;
Year ( TheDay ) < 1389 ; "嘉慶" & Year ( TheDay ) + 1 - 1387 & "年" ;
Year ( TheDay ) < 1390 ; "康応" & Year ( TheDay ) + 1 - 1389 & "年" ;
Year ( TheDay ) < 1394 ; "明徳" & Year ( TheDay ) + 1 - 1390 & "年" ;
Year ( TheDay ) < 1428 ; "応永" & Year ( TheDay ) + 1 - 1394 & "年" ;
Year ( TheDay ) < 1429 ; "正長" & Year ( TheDay ) + 1 - 1428 & "年" ;
Year ( TheDay ) < 1441 ; "長享" & Year ( TheDay ) + 1 - 1429 & "年" ;
Year ( TheDay ) < 1444 ; "嘉吉" & Year ( TheDay ) + 1 - 1441 & "年" ;
Year ( TheDay ) < 1449 ; "文安" & Year ( TheDay ) + 1 - 1444 & "年" ;
Year ( TheDay ) < 1452 ; "宝徳" & Year ( TheDay ) + 1 - 1449 & "年" ;
Year ( TheDay ) < 1455 ; "享徳" & Year ( TheDay ) + 1 - 1452 & "年" ;
Year ( TheDay ) < 1457 ; "康正" & Year ( TheDay ) + 1 - 1455 & "年" ;
Year ( TheDay ) < 1460 ; "長禄" & Year ( TheDay ) + 1 - 1457 & "年" ;
Year ( TheDay ) < 1466 ; "寛正" & Year ( TheDay ) + 1 - 1460 & "年" ;
Year ( TheDay ) < 1467 ; "文正" & Year ( TheDay ) + 1 - 1466 & "年" ;
Year ( TheDay ) < 1469 ; "応仁" & Year ( TheDay ) + 1 - 1467 & "年" ;
Year ( TheDay ) < 1487 ; "文明" & Year ( TheDay ) + 1 - 1469 & "年" ;
Year ( TheDay ) < 1489 ; "長享" & Year ( TheDay ) + 1 - 1487 & "年" ;
Year ( TheDay ) < 1492 ; "延徳" & Year ( TheDay ) + 1 - 1489 & "年" ;
Year ( TheDay ) < 1501 ; "明応" & Year ( TheDay ) + 1 - 1492 & "年" ;
Year ( TheDay ) < 1504 ; "文亀" & Year ( TheDay ) + 1 - 1501 & "年" ;
Year ( TheDay ) < 1521 ; "永正" & Year ( TheDay ) + 1 - 1504 & "年" ;
Year ( TheDay ) < 1528 ; "大永" & Year ( TheDay ) + 1 - 1521 & "年" ;
Year ( TheDay ) < 1532 ; "享禄" & Year ( TheDay ) + 1 - 1528 & "年" ;
Year ( TheDay ) < 1555 ; "天文" & Year ( TheDay ) + 1 - 1532 & "年" ;
Year ( TheDay ) < 1558 ; "弘治" & Year ( TheDay ) + 1 - 1555 & "年" ;
Year ( TheDay ) < 1570 ; "永禄" & Year ( TheDay ) + 1 - 1558 & "年" ;
Year ( TheDay ) < 1573 ; "元亀" & Year ( TheDay ) + 1 - 1570 & "年" ;
Year ( TheDay ) < 1592 ; "天正" & Year ( TheDay ) + 1 - 1573 & "年" ;
Year ( TheDay ) < 1596 ; "文禄" & Year ( TheDay ) + 1 - 1592 & "年" ;
Year ( TheDay ) < 1615 ; "慶長" & Year ( TheDay ) + 1 - 1596 & "年" ;
Year ( TheDay ) < 1624 ; "元和" & Year ( TheDay ) + 1 - 1615 & "年" ;
Year ( TheDay ) < 1644 ; "寛永" & Year ( TheDay ) + 1 - 1624 & "年" ;
Year ( TheDay ) < 1648 ; "正保" & Year ( TheDay ) + 1 - 1644 & "年" ;
Year ( TheDay ) < 1652 ; "慶安" & Year ( TheDay ) + 1 - 1648 & "年" ;
Year ( TheDay ) < 1655 ; "承応" & Year ( TheDay ) + 1 - 1652 & "年" ;
Year ( TheDay ) < 1658 ; "明暦" & Year ( TheDay ) + 1 - 1655 & "年" ;
Year ( TheDay ) < 1661 ; "万治" & Year ( TheDay ) + 1 - 1658 & "年" ;
Year ( TheDay ) < 1673 ; "寛文" & Year ( TheDay ) + 1 - 1661 & "年" ;
Year ( TheDay ) < 1681 ; "延宝" & Year ( TheDay ) + 1 - 1673 & "年" ;
Year ( TheDay ) < 1684 ; "天和" & Year ( TheDay ) + 1 - 1681 & "年" ;
Year ( TheDay ) < 1688 ; "貞享" & Year ( TheDay ) + 1 - 1684 & "年" ;
Year ( TheDay ) < 1704 ; "元禄" & Year ( TheDay ) + 1 - 1688 & "年" ;
Year ( TheDay ) < 1711 ; "宝永" & Year ( TheDay ) + 1 - 1704 & "年" ;
Year ( TheDay ) < 1716 ; "正徳" & Year ( TheDay ) + 1 - 1711 & "年" ;
Year ( TheDay ) < 1736 ; "享保" & Year ( TheDay ) + 1 - 1716 & "年" ;
Year ( TheDay ) < 1741 ; "元文" & Year ( TheDay ) + 1 - 1736 & "年" ;
Year ( TheDay ) < 1744 ; "寛保" & Year ( TheDay ) + 1 - 1741 & "年" ;
Year ( TheDay ) < 1748 ; "延享" & Year ( TheDay ) + 1 - 1744 & "年" ;
Year ( TheDay ) < 1751 ; "寛延" & Year ( TheDay ) + 1 - 1748 & "年" ;
Year ( TheDay ) < 1764 ; "宝暦" & Year ( TheDay ) + 1 - 1751 & "年" ;
Year ( TheDay ) < 1772 ; "明和" & Year ( TheDay ) + 1 - 1764 & "年" ;
Year ( TheDay ) < 1781 ; "安永" & Year ( TheDay ) + 1 - 1772 & "年" ;
Year ( TheDay ) < 1789 ; "天明" & Year ( TheDay ) + 1 - 1781 & "年" ;
Year ( TheDay ) < 1801 ; "寛政" & Year ( TheDay ) + 1 - 1789 & "年" ;
Year ( TheDay ) < 1804 ; "享和" & Year ( TheDay ) + 1 - 1801 & "年" ;
Year ( TheDay ) < 1818 ; "文化" & Year ( TheDay ) + 1 - 1804 & "年" ;
Year ( TheDay ) < 1830 ; "文政" & Year ( TheDay ) + 1 - 1818 & "年" ;
Year ( TheDay ) < 1844 ; "天保" & Year ( TheDay ) + 1 - 1830 & "年" ;
Year ( TheDay ) < 1848 ; "弘化" & Year ( TheDay ) + 1 - 1844 & "年" ;
Year ( TheDay ) < 1854 ; "嘉永" & Year ( TheDay ) + 1 - 1848 & "年" ;
Year ( TheDay ) < 1860 ; "安政" & Year ( TheDay ) + 1 - 1854 & "年" ;
Year ( TheDay ) < 1861 ; "万延" & Year ( TheDay ) + 1 - 1860 & "年" ;
Year ( TheDay ) < 1864 ; "文久" & Year ( TheDay ) + 1 - 1861 & "年" ;
Year ( TheDay ) < 1865 ; "元治" & Year ( TheDay ) + 1 - 1864 & "年" ;
Year ( TheDay ) < 1869 ; "慶応" & Year ( TheDay ) + 1 - 1865 & "年" ;
Year ( TheDay ) < 1912 ; "明治" & Year ( TheDay ) + 1 - 1869 & "年" ;
Year ( TheDay ) < 1926 ; "大正" & Year ( TheDay ) + 1 - 1912 & "年" ;
Year ( TheDay ) < 1989 ; "昭和" & Year ( TheDay ) + 1 - 1926 & "年" ;
Year ( TheDay ) < 10000 ; "平成" & Year ( TheDay ) + 1 - 1989 & "年" ;"" ) ;

$南朝 = Case (
Year ( TheDay ) < 1334 ; "元弘" & Year ( TheDay ) + 1 - 1331 & "年" ;
Year ( TheDay ) < 1336 ; "建武" & Year ( TheDay ) + 1 - 1334 & "年" ;
Year ( TheDay ) < 1340 ; "延元" & Year ( TheDay ) + 1 - 1336 & "年" ;
Year ( TheDay ) < 1346 ; "興国" & Year ( TheDay ) + 1 - 1340 & "年" ;
Year ( TheDay ) < 1370 ; "正平" & Year ( TheDay ) + 1 - 1346 & "年" ;
Year ( TheDay ) < 1372 ; "建徳" & Year ( TheDay ) + 1 - 1370 & "年" ;
Year ( TheDay ) < 1375 ; "文中" & Year ( TheDay ) + 1 - 1372 & "年" ;
Year ( TheDay ) < 1381 ; "天授" & Year ( TheDay ) + 1 - 1375 & "年" ;
Year ( TheDay ) < 1384 ; "弘和" & Year ( TheDay ) + 1 - 1381 & "年" ;
Year ( TheDay ) < 1394 ; "元中" & Year ( TheDay ) + 1 - 1384 & "年" ;"" ) ;

$南北朝チェック = Case ( Year ( TheDay ) > 1330 and Year ( TheDay ) < 1394 ; 1 ; 0 ) ;
$表示通常 = Case ( Filter ( $通常 ; "1234567890" ) = "1" ; Substitute ( $通常 ; "1" ; "元" ) ; $通常 ) ;
$表示南朝 = Case ( Filter ( $南朝 ; "1234567890" ) = "1" ; Substitute ( $南朝 ; "1" ; "元" ) ; $南朝 )
]
;
Case ( $南北朝チェック = 1 ; Case ( Mode = 1 ; $表示通常 ; Mode = 2; $表示南朝 ; $表示通常 & " ( " & $表示南朝 & " ) " ) ; $表示通常 ) )

TextSep ( Text ; LC ; Value )

Mon, 17 Jan 2011 06:33:06 GMT

// 作者 : 高岡　幸生
// 概要 : テキストを第一引数で与えた文字列をひと文字ずつ減らしながら分割していきます。
// カスタム関数    TextSep ( Text ; LC ; Value )

Let (
    [
        LN = Length ( Text ) ;
        Value = Value & If ( not IsEmpty ( Value ) ; "¶" ) & Middle ( Text ;1 ; LN - LC ) ;
        LC = LC + 1
    ] ;
    Case (
    LC < LN ; TextSep ( Text ; LC ; Value ) ;
    LC = LN ; TextSep ( Middle ( Text ; 2 ; LN ) ; 0 ; Value ) ;
    Value
    )
)

GetArg ( 文字列; 区切り文字; 位置 )

Mon, 17 Jan 2011 06:33:03 GMT

// 作者 : 給前悟郎
// 概要 : 任意の文字で区切りられた文字列から、指定した位置の値を取り出します。
// カスタム関数    GetArg ( 文字列; 区切り文字; 位置 )

/*
名　　称：GetArg ( 文字列; 区切り文字; 位置 )
概　　要：区切り文字で区切られた文字列のうち、指定位置にある文字列を返す
計算式例：GetArg ( "ああああ;いいいい;うううう"; 2 )
戻り値例："いいいい"
*/

Let(
[
Max=PatternCount ( 文字列 ; 区切り文字 )+1;

Begin = Position ( 文字列 ; 区切り文字 ; 1 ; 位置 -1 )+1;
Next = Position ( 文字列 ; 区切り文字 ; 1 ; 位置  );
Cnt = Position ( 文字列 ; 区切り文字 ; Next ; 1 ) - Begin;
No = GetAsNumber ( 位置 )
];

Case(
    No < 1;
    "";
    No = Max;
    Middle ( 文字列 ; Begin ; Length( 文字列 ) );
    No < Max;
    Middle ( 文字列 ; Begin ; Cnt )
)
)

JTextToNum ( 漢数字 )

Mon, 17 Jan 2011 06:33:02 GMT

// 作者 : 社本修司
// 概要 : 零から極（10^48）までの<漢数字>を<数値>に変換します
// カスタム関数    JTextToNum ( 漢数字 )

/*
JTextToNum ( 漢数字 )
零から極（10^48）までの<漢数字>を<数値>に変換します。
分・厘・毛といった小数は変換できません。
サブ関数の JTextToNumToThou 関数が必要です。
*/

Let (
    [
    KANJINUM =
        Substitute (
            RomanHankaku ( 漢数字 ) ;
            [ "数" ; "極" ] ;
            [ "潤" ; "澗" ] ;
            [ "穣" ; "穰" ] ;
            [ "し" ; "秭" ] ; [ "]]>𥝱            // NumToJText 関数では"し"となるのでここでもひらがなを考慮する
            // "]]>𥝱            [ "萬" ; "万" ]
        ) ;

    GOKU =         // 単位の文字迄をテキストとして抽出
        Case (
            PatternCount ( KANJINUM ; "極" ) ;
                Left ( KANJINUM ; Position ( KANJINUM ; "極" ; 1 ; 1 ) ) ;
        ) ;
    KANJINUM_12 =     // 次の単位で使うために単位の文字以下の文字列を抽出
        Right ( KANJINUM ; Length ( KANJINUM ) - Position ( KANJINUM ; "極" ; 1 ; 1 ) ) ;

    SAI =
        Case (
            PatternCount ( KANJINUM_12 ; "載" ) ;
                Left ( KANJINUM_12 ; Position ( KANJINUM_12 ; "載" ; 1 ; 1 ) ) ;
        ) ;
    KANJINUM_11 =
        Right ( KANJINUM_12 ; Length ( KANJINUM_12 ) - Position ( KANJINUM_12 ; "載" ; 1 ; 1 ) ) ;

    SEI =
        Case (
            PatternCount ( KANJINUM_11 ; "正" ) ;
                Left ( KANJINUM_11 ; Position ( KANJINUM_11 ; "正" ; 1 ; 1 ) ) ;
        ) ;
    KANJINUM_10 =
        Right ( KANJINUM_11 ; Length ( KANJINUM_11 ) - Position ( KANJINUM_11 ; "正" ; 1 ; 1 ) ) ;

    KAN =
        Case (
            PatternCount ( KANJINUM_10 ; "澗" ) ;
                Left ( KANJINUM_10 ; Position ( KANJINUM_10 ; "澗" ; 1 ; 1 ) ) ;
        ) ;
    KANJINUM_9 =
        Right ( KANJINUM_10 ; Length ( KANJINUM_10 ) - Position ( KANJINUM_10 ; "澗" ; 1 ; 1 ) ) ;

    KOU =
        Case (
            PatternCount ( KANJINUM_9 ; "溝" ) ;
                Left ( KANJINUM_9 ; Position ( KANJINUM_9 ; "溝" ; 1 ; 1 ) ) ;
        ) ;
    KANJINUM_8 =
        Right ( KANJINUM_9 ; Length ( KANJINUM_9 ) - Position ( KANJINUM_9 ; "溝" ; 1 ; 1 ) ) ;

    JYOU =
        Case (
            PatternCount ( KANJINUM_8 ; "穰" ) ;
                Left ( KANJINUM_8 ; Position ( KANJINUM_8 ; "穰" ; 1 ; 1 ) ) ;
        ) ;
    KANJINUM_7 =
        Right ( KANJINUM_8 ; Length ( KANJINUM_8 ) - Position ( KANJINUM_8 ; "穰" ; 1 ; 1 ) ) ;

    SHI =
        Case (
            PatternCount ( KANJINUM_7 ; "秭" ) ;
                Left ( KANJINUM_7 ; Position ( KANJINUM_7 ; "秭" ; 1 ; 1 ) ) ;
        ) ;
    KANJINUM_6 =
        Right ( KANJINUM_7 ; Length ( KANJINUM_7 ) - Position ( KANJINUM_7 ; "秭" ; 1 ; 1 ) ) ;

    GAI =
        Case (
            PatternCount ( KANJINUM_6 ; "垓" ) ;
                Left ( KANJINUM_6 ; Position ( KANJINUM_6 ; "垓" ; 1 ; 1 ) ) ;
        ) ;
    KANJINUM_5 =
        Right ( KANJINUM_6 ; Length ( KANJINUM_6 ) - Position ( KANJINUM_6 ; "垓" ; 1 ; 1 ) ) ;

    KEI =
        Case (
            PatternCount ( KANJINUM_5 ; "京" ) ;
                Left ( KANJINUM_5 ; Position ( KANJINUM_5 ; "京" ; 1 ; 1 ) ) ;
        ) ;
    KANJINUM_4 =
        Right ( KANJINUM_5 ; Length ( KANJINUM_5 ) - Position ( KANJINUM_5 ; "京" ; 1 ; 1 ) ) ;

    CHOU =
        Case (
            PatternCount ( KANJINUM_4 ; "兆" ) ;
                Left ( KANJINUM_4 ; Position ( KANJINUM_4 ; "兆" ; 1 ; 1 ) ) ;
        ) ;

    KANJINUM_3 =
        Right ( KANJINUM_4 ; Length ( KANJINUM_4 ) - Position ( KANJINUM_4 ; "兆" ; 1 ; 1 ) ) ;

    OKU =
        Case (
            PatternCount ( KANJINUM_3 ; "億" ) ;
                Left ( KANJINUM_3 ; Position ( KANJINUM_3 ; "億" ; 1 ; 1 ) ) ;
        ) ;

    KANJINUM_2 =
        Right ( KANJINUM_3 ; Length ( KANJINUM_3 ) - Position ( KANJINUM_3 ; "億" ; 1 ; 1 ) ) ;

    MAN =
        Case (
            PatternCount ( KANJINUM_2 ; "万" ) ;
                Left ( KANJINUM_2 ; Position ( KANJINUM_2 ; "万" ; 1 ; 1 ) ) ;
        ) ;

    KANJINUM_1 =
        Right ( KANJINUM_2 ; Length ( KANJINUM_2 ) - Position ( KANJINUM_2 ; "万" ; 1 ; 1 ) ) ;

    ICHI = KANJINUM_1

    ] ;

    // それぞれの単位毎に JTextToNumToThou 関数で数値化し、その値を足して結果をだす
    // 想定した文字以外が入っている場合は結果を返さない
    Case (
        not IsEmpty ( KANJINUM ) and
        Exact (
            KANJINUM ;
            Filter ( KANJINUM ; "数極載正潤澗溝穣穰し]]>𥝱        ) ;
            Case ( GOKU = "極" ; 1 ; GetAsNumber ( JTextToNumToThou ( GOKU ) ) ) * 10^48 +
            Case ( SAI = "載" ; 1 ; GetAsNumber ( JTextToNumToThou ( SAI ) ) ) * 10^44 +
            Case ( SEI = "正" ; 1 ; GetAsNumber ( JTextToNumToThou ( SEI ) ) ) * 10^40 +
            Case ( KAN = "澗" ; 1 ; GetAsNumber ( JTextToNumToThou ( KAN ) ) ) * 10^36 +
            Case ( KOU = "溝" ; 1 ; GetAsNumber ( JTextToNumToThou ( KOU ) ) ) * 10^32 +
            Case ( JYOU = "穣" ; 1 ; GetAsNumber ( JTextToNumToThou ( JYOU ) ) ) * 10^28 +
            Case ( SHI = "秭" ; 1 ; GetAsNumber ( JTextToNumToThou ( SHI ) ) ) * 10^24 +
            Case ( GAI = "垓" ; 1 ; GetAsNumber ( JTextToNumToThou ( GAI ) ) ) * 10^20 +
            Case ( KEI = "京" ; 1 ; GetAsNumber ( JTextToNumToThou ( KEI ) ) ) * 10^16 +
            Case ( CHOU = "兆" ; 1 ; GetAsNumber ( JTextToNumToThou ( CHOU ) ) ) * 10^12 +
            Case ( OKU = "億" ; 1 ; GetAsNumber ( JTextToNumToThou ( OKU ) ) ) * 10^8 +
            Case ( MAN = "万" ; 1 ; GetAsNumber ( JTextToNumToThou ( MAN ) ) ) * 10^4 +
            JTextToNumToThou ( ICHI ) * 1
    )
)

JTextToNumToThou ( 漢数字 )

Mon, 17 Jan 2011 06:33:02 GMT

// 作者 : 社本修司
// 概要 : 千の位までの<漢数字>を<数値>に変換します
// カスタム関数    JTextToNumToThou ( 漢数字 )

/*
JTextToNumToThou ( 漢数字 )
JTextToNum 関数のサブ関数です。
千の位までの<漢数字>を<数値>に変換します。
*/

Let (
    [
    KANJINUM =
        Substitute (
            RomanHankaku ( 漢数字 ) ;
            [ "仟" ; "千" ] ; [ "阡" ; "千" ] ;
            [ "皕" ; "二百" ] ;
            [ "佰" ; "百" ] ; [ "陌" ; "百" ] ;
            [ "卅" ; "三十" ] ; [ "丗" ; "三十" ] ;
            [ "廿" ; "二十" ] ;
            [ "拾" ; "十" ] ;
            [ "玖" ; "九" ] ; [ "九" ; "9" ] ;
            [ "捌" ; "八" ] ; [ "八" ; "8" ] ;
            [ "柒" ; "七" ] ; [ "漆" ; "七" ] ; [ "七" ; "7" ] ;
            [ "陸" ; "六" ] ; [ "六" ; "6" ] ;
            [ "伍" ; "五" ] ; [ "五" ; "5" ] ;
            [ "亖" ; "四" ] ; [ "肆" ; "四" ] ; [ "四" ; "4" ] ;
            [ "参" ; "三" ] ; [ "參" ; "三" ] ; [ "三" ; "3" ] ;
            [ "弐" ; "二" ] ; [ "貳" ; "二" ] ; [ "二" ; "2" ] ;
            [ "壱" ; "一" ] ; [ "弌" ; "一" ] ; [ "壹" ; "一" ] ; [ "一" ; "1" ] ;
            [ "零" ; "〇" ] ; [ "〇" ; "0" ] ;
            [ "点" ; "." ] ; [ "．" ; "." ] ;     // 小数点の点
            [ "、" ; "" ] ; [ "，" ; "" ] ; [ "," ; "" ]     // 位取りのコンマ
        ) ;

    SEN =         // 位の文字迄をテキストとして抽出
        Case (
            PatternCount ( KANJINUM ; "千" ) ;
                Left ( KANJINUM ; Position ( KANJINUM ; "千" ; 1 ; 1 ) ) ;
        ) ;
    KANJINUM_3 =     // 次の位で使うために位の文字以下の文字列を抽出
        Right ( KANJINUM ; Length ( KANJINUM ) - Position ( KANJINUM ; "千" ; 1 ; 1 ) ) ;

    HYAKU =
        Case (
            PatternCount ( KANJINUM_3 ; "百" ) ;
                Left ( KANJINUM_3 ; Position ( KANJINUM_3 ; "百" ; 1 ; 1 ) ) ;
        ) ;

    KANJINUM_2 =
        Right ( KANJINUM_3 ; Length ( KANJINUM_3 ) - Position ( KANJINUM_3 ; "百" ; 1 ; 1 ) ) ;

    JUU =
        Case (
            PatternCount ( KANJINUM_2 ; "十" ) ;
                Left ( KANJINUM_2 ; Position ( KANJINUM_2 ; "十" ; 1 ; 1 ) ) ;
        ) ;

    KANJINUM_1 =
        Right ( KANJINUM_2 ; Length ( KANJINUM_2 ) - Position ( KANJINUM_2 ; "十" ; 1 ; 1 ) ) ;

    // 二〇〇八という表記に場合は位の記号がないため一の位として扱う
    ICHI = KANJINUM_1
    ] ;

    // それぞれの位毎に数値化し、その値を足して結果をだす
    // JTextToNum 関数で使われる文字も含め想定した文字以外が入っている場合は結果を返さない
    Case (
        not IsEmpty ( KANJINUM ) and
        Exact (
            KANJINUM ;
            Filter ( KANJINUM ; "数極載正潤澗溝穣穰し]]>𥝱        ) ;
            Case ( SEN = "千" ; 1 ; GetAsNumber ( SEN ) ) * 10^3 +
            Case ( HYAKU = "百" ; 1 ; GetAsNumber ( HYAKU ) ) * 10^2 +
            Case ( JUU = "十" ; 1 ; GetAsNumber ( JUU ) ) * 10^1 +
            GetAsNumber ( ICHI ) * 1
    )
)

Kanshi ( xDate ; type )

Mon, 17 Jan 2011 06:33:02 GMT

// 作者 : 尾崎達哉
// 概要 : 入力した年の干支（十干十二支）を表示します。
// カスタム関数    Kanshi ( xDate ; type )

/*
日付フィールドの年を干支(十干十二支)で表示させるカスタム関数

引数「xDate」：日付

引数「type」：テキスト
  1：漢字
  2：音読み（カタカナ）
  3：訓読み（ひらかな）
*/
Case (
type = 1 ;
Choose ( Mod ( Year ( xDate ) ; 10 ) ;
"庚" ; "辛" ; "壬" ; "癸" ; "甲" ; "乙" ; "丙" ; "丁" ; "戊" ; "己"  ) &
Choose ( Mod ( Year ( xDate ) ; 12 ) ;
"申" ; "酉" ; "戌" ; "亥" ; "子" ; "丑" ; "寅" ; "卯" ; "辰" ; "巳" ; "午" ; "未" ) ;

type = 2 ;
Choose ( Mod( Year ( xDate ) ; 10 ) ;
"コウ" ; "シン" ; "ジン" ; "キ" ; Case ( Mod ( Year ( xDate ) ; 12 ) = 4 ;  "カッ" ; "コウ" ) ; Case ( Mod ( Year ( xDate ) ; 12 ) = 5 or Mod ( Year ( xDate ) ; 12 ) = 9 ;  "イッ" ; "イツ" ) ; "ヘイ" ; "テイ" ; "ボ" ; "キ"  ) &
Choose ( Mod ( Year ( xDate ) ; 12 ) ;
"シン" ; "ユウ" ; "ジュツ" ; "ガイ" ; "シ" ; "チュウ" ; "イン" ; "ボウ" ; "シン" ; "シ" ; "ゴ" ; "ビ" ) ;

type = 3 ;
Choose ( Mod ( Year ( xDate ) ; 10 ) ;
"かのえ" ; "かのと" ; "みずのえ" ; "みずのと" ; "きのえ" ; "きのと" ; "ひのえ" ; "ひのと" ; "つちのえ" ; "つちのと"  ) &
Choose ( Mod ( Year ( xDate ) ; 12 ) ;
"さる" ; "とり" ; "いぬ" ; "い" ; "ね" ; "うし" ; "とら" ; "う" ; "たつ" ; "み" ; "うま" ; "ひつじ" )
)

Color ( 色名 )

Mon, 17 Jan 2011 06:32:57 GMT

// 作者 : 社本修司
// 概要 : <色名>から RGB 関数の返り値を返します。
// カスタム関数    Color ( 色名 )

/*
Color ( 色名 )
<色名>から RGB 関数の返り値を返します。
<色名>には、X11 color names と呼ばれる Web で利用できる英語の色名、JIS慣用色名を指定できます。
また、"#ff0000" のような 16進数で表した RGB 値を指定することもできます。
TextColor ( "テキスト" ; Color ( "色名" ) ) とすることで、RGBを意識することなく計算式中で色を扱うことができます。

Geoff Coffey氏の Color 関数にJIS慣用色名を追加
JIS慣用色名（269色）の RGB値は「WEB色見本原色大辞典」を参照
*/
Let (
    [
    C = Substitute ( Lower ( TrimAll ( 色名 ; 3 ; 3 ) ) ; [ "色" ; "" ] ; [ "いろ" ; "" ] )
    ] ;
    Case (
        Left ( C ; 1 ) = "#" ;

        // 16進数RGBの場合
        Let (
            [
            CHAR = Right ( C ; 1 ) ;
            LEN = Length ( C )
            ] ;

            ( Position ( "0123456789abcdef" ; CHAR ; 1 ; 1 ) - 1 ) +
            If (
                LEN > 2 ;
                16 * Color ( Left ( C ; LEN - 1 ) )
            )
        ) ;

        // 色名の場合
        Case (

        // X11 color names を基にしたWeb表示色（140色）
            C = "aliceblue" ; "15792383" ;     // AliceBlue , #F0F8FF , RGB ( 240 ; 248 ; 255 )
            C = "antiquewhite" ; "16444375" ;     // AntiqueWhite , #FAEBD7 , RGB ( 250 ; 235 ; 215 )
            C = "aqua" ; "65535" ;     // Aqua , #00FFFF , RGB ( 0 ; 255 ; 255 )
            C = "aquamarine" ; "8388564" ;     // Aquamarine , #7FFFD4 , RGB ( 127 ; 255 ; 212 )
            C = "azure" ; "15794175" ;     // Azure , #F0FFFF , RGB ( 240 ; 255 ; 255 )
            C = "beige" ; "16119260" ;     // Beige , #F5F5DC , RGB ( 245 ; 245 ; 220 )
            C = "bisque" ; "16770244" ;     // Bisque , #FFE4C4 , RGB ( 255 ; 228 ; 196 )
            C = "black" ; "0" ;     // Black , #000000 , RGB ( 0 ; 0 ; 0 )
            C = "blanchedalmond" ; "16772045" ;     // BlanchedAlmond , #FFEBCD , RGB ( 255 ; 235 ; 205 )
            C = "blue" ; "255" ;     // Blue , #0000FF , RGB ( 0 ; 0 ; 255 )
            C = "blueviolet" ; "9055202" ;     // BlueViolet , #8A2BE2 , RGB ( 138 ; 43 ; 226 )
            C = "brown" ; "10824234" ;     // Brown , #A52A2A , RGB ( 165 ; 42 ; 42 )
            C = "burlywood" ; "14596231" ;     // BurlyWood , #DEB887 , RGB ( 222 ; 184 ; 135 )
            C = "cadetblue" ; "6266528" ;     // CadetBlue , #5F9EA0 , RGB ( 95 ; 158 ; 160 )
            C = "chartreuse" ; "8388352" ;     // Chartreuse , #7FFF00 , RGB ( 127 ; 255 ; 0 )
            C = "chocolate" ; "13789470" ;     // Chocolate , #D2691E , RGB ( 210 ; 105 ; 30 )
            C = "coral" ; "16744272" ;     // Coral , #FF7F50 , RGB ( 255 ; 127 ; 80 )
            C = "cornflowerblue" ; "6591981" ;     // CornflowerBlue , #6495ED , RGB ( 100 ; 149 ; 237 )
            C = "cornsilk" ; "16775388" ;     // Cornsilk , #FFF8DC , RGB ( 255 ; 248 ; 220 )
            C = "crimson" ; "14423100" ;     // Crimson , #DC143C , RGB ( 220 ; 20 ; 60 )
            C = "cyan" ; "65535" ;     // Cyan , #00FFFF , RGB ( 0 ; 255 ; 255 )
            C = "darkblue" ; "139" ;     // DarkBlue , #00008B , RGB ( 0 ; 0 ; 139 )
            C = "darkcyan" ; "35723" ;     // DarkCyan , #008B8B , RGB ( 0 ; 139 ; 139 )
            C = "darkgoldenrod" ; "12092939" ;     // DarkGoldenrod , #B8860B , RGB ( 184 ; 134 ; 11 )
            C = "darkgray" ; "11119017" ;     // DarkGray , #A9A9A9 , RGB ( 169 ; 169 ; 169 )
            C = "darkgreen" ; "25600" ;     // DarkGreen , #006400 , RGB ( 0 ; 100 ; 0 )
            C = "darkkhaki" ; "12433259" ;     // DarkKhaki , #BDB76B , RGB ( 189 ; 183 ; 107 )
            C = "darkmagenta" ; "9109643" ;     // DarkMagenta , #8B008B , RGB ( 139 ; 0 ; 139 )
            C = "darkolivegreen" ; "5597999" ;     // DarkOliveGreen , #556B2F , RGB ( 85 ; 107 ; 47 )
            C = "darkorange" ; "16747520" ;     // DarkOrange , #FF8C00 , RGB ( 255 ; 140 ; 0 )
            C = "darkorchid" ; "10040012" ;     // DarkOrchid , #9932CC , RGB ( 153 ; 50 ; 204 )
            C = "darkred" ; "9109504" ;     // DarkRed , #8B0000 , RGB ( 139 ; 0 ; 0 )
            C = "darksalmon" ; "15308410" ;     // DarkSalmon , #E9967A , RGB ( 233 ; 150 ; 122 )
            C = "darkseagreen" ; "9419919" ;     // DarkSeaGreen , #8FBC8F , RGB ( 143 ; 188 ; 143 )
            C = "darkslateblue" ; "4734347" ;     // DarkSlateBlue , #483D8B , RGB ( 72 ; 61 ; 139 )
            C = "darkslategray" ; "3100495" ;     // DarkSlateGray , #2F4F4F , RGB ( 47 ; 79 ; 79 )
            C = "darkturquoise" ; "52945" ;     // DarkTurquoise , #00CED1 , RGB ( 0 ; 206 ; 209 )
            C = "darkviolet" ; "9699539" ;     // DarkViolet , #9400D3 , RGB ( 148 ; 0 ; 211 )
            C = "deeppink" ; "16716947" ;     // DeepPink , #FF1493 , RGB ( 255 ; 20 ; 147 )
            C = "deepskyblue" ; "49151" ;     // DeepSkyBlue , #00BFFF , RGB ( 0 ; 191 ; 255 )
            C = "dimgray" ; "6908265" ;     // DimGray , #696969 , RGB ( 105 ; 105 ; 105 )
            C = "dodgerblue" ; "2003199" ;     // DodgerBlue , #1E90FF , RGB ( 30 ; 144 ; 255 )
            C = "firebrick" ; "11674146" ;     // FireBrick , #B22222 , RGB ( 178 ; 34 ; 34 )
            C = "floralwhite" ; "16775920" ;     // FloralWhite , #FFFAF0 , RGB ( 255 ; 250 ; 240 )
            C = "forestgreen" ; "2263842" ;     // ForestGreen , #228B22 , RGB ( 34 ; 139 ; 34 )
            C = "fuchsia" ; "16711935" ;     // Fuchsia , #FF00FF , RGB ( 255 ; 0 ; 255 )
            C = "gainsboro" ; "14474460" ;     // Gainsboro , #DCDCDC , RGB ( 220 ; 220 ; 220 )
            C = "ghostwhite" ; "16316671" ;     // GhostWhite , #F8F8FF , RGB ( 248 ; 248 ; 255 )
            C = "gold" ; "16766720" ;     // Gold , #FFD700 , RGB ( 255 ; 215 ; 0 )
            C = "goldenrod" ; "14329120" ;     // Goldenrod , #DAA520 , RGB ( 218 ; 165 ; 32 )
            C = "gray" ; "8421504" ;     // Gray , #808080 , RGB ( 128 ; 128 ; 128 )
            C = "green" ; "32768" ;     // Green , #008000 , RGB ( 0 ; 128 ; 0 )
            C = "greenyellow" ; "11403055" ;     // GreenYellow , #ADFF2F , RGB ( 173 ; 255 ; 47 )
            C = "honeydew" ; "15794160" ;     // Honeydew , #F0FFF0 , RGB ( 240 ; 255 ; 240 )
            C = "hotpink" ; "16738740" ;     // HotPink , #FF69B4 , RGB ( 255 ; 105 ; 180 )
            C = "indianred" ; "13458524" ;     // IndianRed , #CD5C5C , RGB ( 205 ; 92 ; 92 )
            C = "indigo" ; "4915330" ;     // Indigo , #4B0082 , RGB ( 75 ; 0 ; 130 )
            C = "ivory" ; "16777200" ;     // Ivory , #FFFFF0 , RGB ( 255 ; 255 ; 240 )
            C = "khaki" ; "15787660" ;     // Khaki , #F0E68C , RGB ( 240 ; 230 ; 140 )
            C = "lavender" ; "15132410" ;     // Lavender , #E6E6FA , RGB ( 230 ; 230 ; 250 )
            C = "lavenderblush" ; "16773365" ;     // LavenderBlush , #FFF0F5 , RGB ( 255 ; 240 ; 245 )
            C = "lawngreen" ; "8190976" ;     // LawnGreen , #7CFC00 , RGB ( 124 ; 252 ; 0 )
            C = "lemonchiffon" ; "16775885" ;     // LemonChiffon , #FFFACD , RGB ( 255 ; 250 ; 205 )
            C = "lightblue" ; "11393254" ;     // LightBlue , #ADD8E6 , RGB ( 173 ; 216 ; 230 )
            C = "lightcoral" ; "15761536" ;     // LightCoral , #F08080 , RGB ( 240 ; 128 ; 128 )
            C = "lightcyan" ; "14745599" ;     // LightCyan , #E0FFFF , RGB ( 224 ; 255 ; 255 )
            C = "lightgoldenrodyellow" ; "16448210" ;     // LightGoldenrodYellow , #FAFAD2 , RGB ( 250 ; 250 ; 210 )
            C = "lightgreen" ; "9498256" ;     // LightGreen , #90EE90 , RGB ( 144 ; 238 ; 144 )
            C = "lightgrey" ; "13882323" ;     // LightGrey , #D3D3D3 , RGB ( 211 ; 211 ; 211 )
            C = "lightpink" ; "16758465" ;     // LightPink , #FFB6C1 , RGB ( 255 ; 182 ; 193 )
            C = "lightsalmon" ; "16752762" ;     // LightSalmon , #FFA07A , RGB ( 255 ; 160 ; 122 )
            C = "lightseagreen" ; "2142890" ;     // LightSeaGreen , #20B2AA , RGB ( 32 ; 178 ; 170 )
            C = "lightskyblue" ; "8900346" ;     // LightSkyBlue , #87CEFA , RGB ( 135 ; 206 ; 250 )
            C = "lightslategray" ; "7833753" ;     // LightSlateGray , #778899 , RGB ( 119 ; 136 ; 153 )
            C = "lightsteelblue" ; "11584734" ;     // LightSteelBlue , #B0C4DE , RGB ( 176 ; 196 ; 222 )
            C = "lightyellow" ; "16777184" ;     // LightYellow , #FFFFE0 , RGB ( 255 ; 255 ; 224 )
            C = "lime" ; "65280" ;     // Lime , #00FF00 , RGB ( 0 ; 255 ; 0 )
            C = "limegreen" ; "3329330" ;     // LimeGreen , #32CD32 , RGB ( 50 ; 205 ; 50 )
            C = "linen" ; "16445670" ;     // Linen , #FAF0E6 , RGB ( 250 ; 240 ; 230 )
            C = "magenta" ; "16711935" ;     // Magenta , #FF00FF , RGB ( 255 ; 0 ; 255 )
            C = "maroon" ; "8388608" ;     // Maroon , #800000 , RGB ( 128 ; 0 ; 0 )
            C = "mediumaquamarine" ; "6737322" ;     // MediumAquamarine , #66CDAA , RGB ( 102 ; 205 ; 170 )
            C = "mediumblue" ; "205" ;     // MediumBlue , #0000CD , RGB ( 0 ; 0 ; 205 )
            C = "mediumorchid" ; "12211667" ;     // MediumOrchid , #BA55D3 , RGB ( 186 ; 85 ; 211 )
            C = "mediumpurple" ; "9662683" ;     // MediumPurple , #9370DB , RGB ( 147 ; 112 ; 219 )
            C = "mediumseagreen" ; "3978097" ;     // MediumSeaGreen , #3CB371 , RGB ( 60 ; 179 ; 113 )
            C = "mediumslateblue" ; "8087790" ;     // MediumSlateBlue , #7B68EE , RGB ( 123 ; 104 ; 238 )
            C = "mediumspringgreen" ; "64154" ;     // MediumSpringGreen , #00FA9A , RGB ( 0 ; 250 ; 154 )
            C = "mediumturquoise" ; "4772300" ;     // MediumTurquoise , #48D1CC , RGB ( 72 ; 209 ; 204 )
            C = "mediumvioletred" ; "13047173" ;     // MediumVioletRed , #C71585 , RGB ( 199 ; 21 ; 133 )
            C = "midnightblue" ; "1644912" ;     // MidnightBlue , #191970 , RGB ( 25 ; 25 ; 112 )
            C = "mintcream" ; "16121850" ;     // MintCream , #F5FFFA , RGB ( 245 ; 255 ; 250 )
            C = "mistyrose" ; "16770273" ;     // MistyRose , #FFE4E1 , RGB ( 255 ; 228 ; 225 )
            C = "moccasin" ; "16770229" ;     // Moccasin , #FFE4B5 , RGB ( 255 ; 228 ; 181 )
            C = "navajowhite" ; "16768685" ;     // NavajoWhite , #FFDEAD , RGB ( 255 ; 222 ; 173 )
            C = "navy" ; "128" ;     // Navy , #000080 , RGB ( 0 ; 0 ; 128 )
            C = "oldlace" ; "16643558" ;     // OldLace , #FDF5E6 , RGB ( 253 ; 245 ; 230 )
            C = "olive" ; "8421376" ;     // Olive , #808000 , RGB ( 128 ; 128 ; 0 )
            C = "olivedrab" ; "7048739" ;     // OliveDrab , #6B8E23 , RGB ( 107 ; 142 ; 35 )
            C = "orange" ; "16753920" ;     // Orange , #FFA500 , RGB ( 255 ; 165 ; 0 )
            C = "orangered" ; "16729344" ;     // OrangeRed , #FF4500 , RGB ( 255 ; 69 ; 0 )
            C = "orchid" ; "14315734" ;     // Orchid , #DA70D6 , RGB ( 218 ; 112 ; 214 )
            C = "palegoldenrod" ; "15657130" ;     // PaleGoldenrod , #EEE8AA , RGB ( 238 ; 232 ; 170 )
            C = "palegreen" ; "10025880" ;     // PaleGreen , #98FB98 , RGB ( 152 ; 251 ; 152 )
            C = "paleturquoise" ; "11529966" ;     // PaleTurquoise , #AFEEEE , RGB ( 175 ; 238 ; 238 )
            C = "palevioletred" ; "14381203" ;     // PaleVioletRed , #DB7093 , RGB ( 219 ; 112 ; 147 )
            C = "papayawhip" ; "16773077" ;     // PapayaWhip , #FFEFD5 , RGB ( 255 ; 239 ; 213 )
            C = "peachpuff" ; "16767673" ;     // PeachPuff , #FFDAB9 , RGB ( 255 ; 218 ; 185 )
            C = "peru" ; "13468991" ;     // Peru , #CD853F , RGB ( 205 ; 133 ; 63 )
            C = "pink" ; "16761035" ;     // Pink , #FFC0CB , RGB ( 255 ; 192 ; 203 )
            C = "plum" ; "14524637" ;     // Plum , #DDA0DD , RGB ( 221 ; 160 ; 221 )
            C = "powderblue" ; "11591910" ;     // PowderBlue , #B0E0E6 , RGB ( 176 ; 224 ; 230 )
            C = "purple" ; "8388736" ;     // Purple , #800080 , RGB ( 128 ; 0 ; 128 )
            C = "red" ; "16711680" ;     // Red , #FF0000 , RGB ( 255 ; 0 ; 0 )
            C = "rosybrown" ; "12357519" ;     // RosyBrown , #BC8F8F , RGB ( 188 ; 143 ; 143 )
            C = "royalblue" ; "4286945" ;     // RoyalBlue , #4169E1 , RGB ( 65 ; 105 ; 225 )
            C = "saddlebrown" ; "9127187" ;     // SaddleBrown , #8B4513 , RGB ( 139 ; 69 ; 19 )
            C = "salmon" ; "16416882" ;     // Salmon , #FA8072 , RGB ( 250 ; 128 ; 114 )
            C = "sandybrown" ; "16032864" ;     // SandyBrown , #F4A460 , RGB ( 244 ; 164 ; 96 )
            C = "seagreen" ; "3050327" ;     // SeaGreen , #2E8B57 , RGB ( 46 ; 139 ; 87 )
            C = "seashell" ; "16774638" ;     // Seashell , #FFF5EE , RGB ( 255 ; 245 ; 238 )
            C = "sienna" ; "10506797" ;     // Sienna , #A0522D , RGB ( 160 ; 82 ; 45 )
            C = "silver" ; "12632256" ;     // Silver , #C0C0C0 , RGB ( 192 ; 192 ; 192 )
            C = "skyblue" ; "8900331" ;     // SkyBlue , #87CEEB , RGB ( 135 ; 206 ; 235 )
            C = "slateblue" ; "6970061" ;     // SlateBlue , #6A5ACD , RGB ( 106 ; 90 ; 205 )
            C = "slategray" ; "7372944" ;     // SlateGray , #708090 , RGB ( 112 ; 128 ; 144 )
            C = "snow" ; "16775930" ;     // Snow , #FFFAFA , RGB ( 255 ; 250 ; 250 )
            C = "springgreen" ; "65407" ;     // SpringGreen , #00FF7F , RGB ( 0 ; 255 ; 127 )
            C = "steelblue" ; "4620980" ;     // SteelBlue , #4682B4 , RGB ( 70 ; 130 ; 180 )
            C = "tan" ; "13808780" ;     // Tan , #D2B48C , RGB ( 210 ; 180 ; 140 )
            C = "teal" ; "32896" ;     // Teal , #008080 , RGB ( 0 ; 128 ; 128 )
            C = "thistle" ; "14204888" ;     // Thistle , #D8BFD8 , RGB ( 216 ; 191 ; 216 )
            C = "tomato" ; "16737095" ;     // Tomato , #FF6347 , RGB ( 255 ; 99 ; 71 )
            C = "turquoise" ; "4251856" ;     // Turquoise , #40E0D0 , RGB ( 64 ; 224 ; 208 )
            C = "violet" ; "15631086" ;     // Violet , #EE82EE , RGB ( 238 ; 130 ; 238 )
            C = "wheat" ; "16113331" ;     // Wheat , #F5DEB3 , RGB ( 245 ; 222 ; 179 )
            C = "white" ; "16777215" ;     // White , #FFFFFF , RGB ( 255 ; 255 ; 255 )
            C = "whitesmoke" ; "16119285" ;     // WhiteSmoke , #F5F5F5 , RGB ( 245 ; 245 ; 245 )
            C = "yellow" ; "16776960" ;     // Yellow , #FFFF00 , RGB ( 255 ; 255 ; 0 )
            C = "yellowgreen" ; "10145074" ;     // YellowGreen , #9ACD32 , RGB ( 154 ; 205 ; 50 )

        // JIS慣用色名（269色）
            C = "鴇" or C = "とき" ; "16036802" ;    // 鴇色（ときいろ） , #F4B3C2
            C = "躑躅" or C = "つつじ" ; "15291029" ;    // 躑躅色（つつじいろ） , #E95295
            C = "桜" or C = "さくら" ; "16708852" ;    // 桜色（さくらいろ） , #FEF4F4
            C = "薔薇" or C = "ばら" ; "15291499" ;    // 薔薇色（ばらいろ） , #E9546B
            C = "韓紅" or C = "からくれない" ; "15291492" ;    // 韓紅（からくれない） , #E95464
            C = "珊瑚" or C = "さんご" ; "16101802" ;    // 珊瑚色（さんごいろ） , #F5B1AA
            C = "紅梅" or C = "こうばい" ; "15900833" ;    // 紅梅色（こうばいいろ） , #F2A0A1
            C = "桃" or C = "もも" ; "15765913" ;    // 桃色（ももいろ） , #F09199
            C = "紅" or C = "べに" ; "14090298" ;    // 紅色（べにいろ） , #D7003A
            C = "紅赤" or C = "べにあか" ; "14234431" ;    // 紅赤（べにあか） , #D9333F
            C = "臙脂" or C = "えんじ" ; "12140615" ;    // 臙脂（えんじ） , #B94047
            C = "蘇芳" or C = "すおう" ; "10370367" ;    // 蘇芳（すおう） , #9E3D3F
            C = "茜" or C = "あかね" ; "12003374" ;    // 茜色（あかねいろ） , #B7282E
            C = "赤" or C = "あか" ; "15073331" ;    // 赤（あか） , #E60033
            C = "朱" or C = "しゅ" ; "15425793" ;    // 朱色（しゅいろ） , #EB6101
            C = "紅樺" or C = "べにかば" ; "12277064" ;    // 紅樺色（べにかばいろ） , #BB5548
            C = "紅緋" or C = "べにひ" ; "15218985" ;    // 紅緋（べにひ） , #E83929
            C = "鉛丹" or C = "えんたん" ; "15494481" ;    // 鉛丹色（えんたんいろ） , #EC6D51
            C = "紅海老茶" or C = "べにえびちゃ" ; "10958902" ;    // 紅海老茶（べにえびちゃ） , #A73836
            C = "鳶" or C = "とび" ; "9783359" ;    // 鳶色（とびいろ） , #95483F
            C = "小豆" or C = "あずき" ; "9851213" ;    // 小豆色（あずきいろ） , #96514D
            C = "弁柄" or C = "べんがら" ; "9383444" ;    // 弁柄色（べんがらいろ） , #8F2E14
            C = "海老茶" or C = "えびちゃ" ; "7814192" ;    // 海老茶（えびちゃ） , #773C30
            C = "金赤" or C = "きんあか" ; "15357190" ;    // 金赤（きんあか） , #EA5506
            C = "赤茶" or C = "あかちゃ" ; "12277045" ;    // 赤茶（あかちゃ） , #BB5535
            C = "赤錆" or C = "あかさび" ; "9057049" ;    // 赤錆色（あかさびいろ） , #8A3319
            C = "黄丹" or C = "おうに" ; "15628616" ;    // 黄丹（おうに） , #EE7948
            C = "赤橙" or C = "あかだいだい" ; "15357190" ;    // 赤橙（あかだいだい） , #EA5506
            C = "柿" or C = "かき" ; "15559997" ;    // 柿色（かきいろ） , #ED6D3D
            C = "肉桂" or C = "にっけい" ; "14514774" ;    // 肉桂色（にっけいいろ） , #DD7A56
            C = "樺" or C = "かば" ; "13459004" ;    // 樺色（かばいろ） , #CD5E3C
            C = "煉瓦" or C = "れんが" ; "11883059" ;    // 煉瓦色（れんがいろ） , #B55233
            C = "錆" or C = "さび" ; "7091492" ;    // 錆色（さびいろ） , #6C3524
            C = "檜皮" or C = "ひわだ" ; "9850934" ;    // 檜皮色（ひわだいろ） , #965036
            C = "栗" or C = "くり" ; "7745287" ;    // 栗色（くりいろ） , #762F07
            C = "黄赤" or C = "きあか" ; "15493120" ;    // 黄赤（きあか） , #EC6800
            C = "代赭" or C = "たいしゃ" ; "12277024" ;    // 代赭（たいしゃ） , #BB5520
            C = "駱駝" or C = "らくだ" ; "12548430" ;    // 駱駝色（らくだいろ） , #BF794E
            C = "黄茶" or C = "きちゃ" ; "14777140" ;    // 黄茶（きちゃ） , #E17B34
            C = "肌" or C = "はだ" ; "16573124" ;    // 肌色（はだいろ） , #FCE2C4
            C = "橙" or C = "だいだい" ; "15628288" ;    // 橙色（だいだいいろ） , #EE7800
            C = "灰茶" or C = "はいちゃ" ; "9986620" ;    // 灰茶（はいちゃ） , #98623C
            C = "茶" or C = "ちゃ" ; "9850946" ;    // 茶色（ちゃいろ） , #965042
            C = "焦茶" or C = "こげちゃ" ; "7293758" ;    // 焦茶（こげちゃ） , #6F4B3E
            C = "柑子" or C = "こうじ" ; "16166217" ;    // 柑子色（こうじいろ） , #F6AD49
            C = "杏" or C = "あんず" ; "16234871" ;    // 杏色（あんずいろ） , #F7B977
            C = "蜜柑" or C = "みかん" ; "15762176" ;    // 蜜柑色（みかんいろ） , #F08300
            C = "褐" or C = "かっしょく" ; "9059072" ;    // 褐色（かっしょく） , #8A3B00
            C = "土" or C = "つち" ; "12351036" ;    // 土色（つちいろ） , #BC763C
            C = "小麦" or C = "こむぎ" ; "14982753" ;    // 小麦色（こむぎいろ） , #E49E61
            C = "琥珀" or C = "こはく" ; "12548154" ;    // 琥珀色（こはくいろ） , #BF783A
            C = "金茶" or C = "きんちゃ" ; "15964160" ;    // 金茶（きんちゃ） , #F39800
            C = "卵" or C = "たまご" ; "16569717" ;    // 卵色（たまごいろ） , #FCD575
            C = "山吹" or C = "やまぶき" ; "16299264" ;    // 山吹色（やまぶきいろ） , #F8B500
            C = "黄土" or C = "おうど" ; "12816707" ;    // 黄土色（おうどいろ） , #C39143
            C = "朽葉" or C = "くちば" ; "9532231" ;    // 朽葉色（くちばいろ） , #917347
            C = "向日葵" or C = "ひまわり" ; "16566272" ;    // 向日葵色（ひまわりいろ） , #FCC800
            C = "鬱金" or C = "うこん" ; "16432916" ;    // 鬱金色（うこんいろ） , #FABF14
            C = "砂" or C = "すな" ; "14472114" ;    // 砂色（すないろ） , #DCD3B2
            C = "芥子" or C = "からし" ; "13676364" ;    // 芥子色（からしいろ） , #D0AF4C
            C = "黄" or C = "き" ; "16767232" ;    // 黄色（きいろ） , #FFD900
            C = "蒲公英" or C = "たんぽぽ" ; "16767232" ;    // 蒲公英色（たんぽぽいろ） , #FFD900
            C = "鶯茶" or C = "うぐいすちゃ" ; "7429151" ;    // 鶯茶（うぐいすちゃ） , #715C1F
            C = "中黄" or C = "ちゅうき" ; "16771584" ;    // 中黄（ちゅうき） , #FFEA00
            C = "刈安" or C = "かりやす" ; "16115051" ;    // 刈安色（かりやすいろ） , #F5E56B
            C = "黄檗" or C = "きはだ" ; "16708195" ;    // 黄檗色（きはだいろ） , #FEF263
            C = "海松" or C = "みる" ; "7499072" ;    // 海松色（みるいろ） , #726D40
            C = "鶸" or C = "ひわ" ; "14143290" ;    // 鶸色（ひわいろ） , #D7CF3A
            C = "鶯" or C = "うぐいす" ; "9604150" ;    // 鶯色（うぐいすいろ） , #928C36
            C = "抹茶" or C = "まっちゃ" ; "12961130" ;    // 抹茶色（まっちゃいろ） , #C5C56A
            C = "黄緑" or C = "きみどり" ; "12112384" ;    // 黄緑（きみどり） , #B8D200
            C = "苔" or C = "こけ" ; "6914587" ;    // 苔色（こけいろ） , #69821B
            C = "若草" or C = "わかくさ" ; "12834853" ;    // 若草色（わかくさいろ） , #C3D825
            C = "萌黄" or C = "もえぎ" ; "11194195" ;    // 萌黄（もえぎ） , #AACF53
            C = "草" or C = "くさ" ; "8097090" ;    // 草色（くさいろ） , #7B8D42
            C = "若葉" or C = "わかば" ; "12177547" ;    // 若葉色（わかばいろ） , #B9D08B
            C = "松葉" or C = "まつば" ; "8624988" ;    // 松葉色（まつばいろ） , #839B5C
            C = "白緑" or C = "びゃくろく" ; "14084554" ;    // 白緑（びゃくろく） , #D6E9CA
            C = "緑" or C = "みどり" ; "4109168" ;    // 緑（みどり） , #3EB370
            C = "常磐" or C = "ときわ" ; "31555" ;    // 常磐色（ときわいろ） , #007B43
            C = "緑青" or C = "ろくしょう" ; "4687966" ;    // 緑青色（ろくしょういろ） , #47885E
            C = "千歳緑" or C = "ちとせみどり" ; "3237701" ;    // 千歳緑（ちとせみどり） , #316745
            C = "深緑" or C = "ふかみどり" ; "21806" ;    // 深緑（ふかみどり） , #00552E
            C = "萌葱" or C = "もえぎ" ; "28244" ;    // 萌葱色（もえぎいろ） , #006E54
            C = "若竹" or C = "わかたけ" ; "6864525" ;    // 若竹色（わかたけいろ） , #68BE8D
            C = "青磁" or C = "せいじ" ; "8306341" ;    // 青磁色（せいじいろ） , #7EBEA5
            C = "青竹" or C = "あおたけ" ; "8306347" ;    // 青竹色（あおたけいろ） , #7EBEAB
            C = "鉄" or C = "てつ" ; "21059" ;    // 鉄色（てついろ） , #005243
            C = "青緑" or C = "あおみどり" ; "42135" ;    // 青緑（あおみどり） , #00A497
            C = "錆浅葱" or C = "さびあさぎ" ; "6066833" ;    // 錆浅葱（さびあさぎ） , #5C9291
            C = "水浅葱" or C = "みずあさぎ" ; "8432553" ;    // 水浅葱（みずあさぎ） , #80ABA9
            C = "新橋" or C = "しんばし" ; "5880262" ;    // 新橋色（しんばしいろ） , #59B9C6
            C = "浅葱" or C = "あさぎ" ; "41903" ;    // 浅葱色（あさぎいろ） , #00A3AF
            C = "白群" or C = "びゃくぐん" ; "8637650" ;    // 白群（びゃくぐん） , #83CCD2
            C = "納戸" or C = "なんど" ; "34969" ;    // 納戸色（なんどいろ） , #008899
            C = "瓶覗" or C = "かめのぞき" ; "10672093" ;    // 瓶覗（かめのぞき） , #A2D7DD
            C = "水" or C = "みず" ; "12378856" ;    // 水色（みずいろ） , #BCE2E8
            C = "藍鼠" or C = "あいねず" ; "7111821" ;    // 藍鼠（あいねず） , #6C848D
            C = "空" or C = "そら" ; "10541295" ;    // 空色（そらいろ） , #A0D8EF
            C = "青" or C = "あお" ; "38361" ;    // 青（あお） , #0095D9
            C = "藍" or C = "あい" ; "1465987" ;    // 藍色（あいいろ） , #165E83
            C = "濃藍" or C = "こいあい" ; "992080" ;    // 濃藍（こいあい） , #0F2350
            C = "勿忘草" or C = "わすれなぐさ" ; "9028587" ;    // 勿忘草色（わすれなぐさいろ） , #89C3EB
            C = "露草" or C = "つゆくさ" ; "3711451" ;    // 露草色（つゆくさいろ） , #38A1DB
            C = "縹" or C = "はなだ" ; "2593475" ;    // 縹色（はなだいろ） , #2792C3
            C = "紺青" or C = "こんじょう" ; "1650528" ;    // 紺青（こんじょう） , #192F60
            C = "瑠璃" or C = "るり" ; "1986722" ;    // 瑠璃色（るりいろ） , #1E50A2
            C = "瑠璃紺" or C = "るりこん" ; "1655950" ;    // 瑠璃紺（るりこん） , #19448E
            C = "紺" or C = "こん" ; "2243184" ;    // 紺色（こんいろ） , #223A70
            C = "杜若" or C = "かきつばた" ; "4088493" ;    // 杜若色（かきつばたいろ） , #3E62AD
            C = "勝" or C = "かち" ; "5065825" ;    // 勝色（かちいろ） , #4D4C61
            C = "群青" or C = "ぐんじょう" ; "5008563" ;    // 群青色（ぐんじょういろ） , #4C6CB3
            C = "鉄紺" or C = "てつこん" ; "1513547" ;    // 鉄紺（てつこん） , #17184B
            C = "藤納戸" or C = "ふじなんど" ; "7367850" ;    // 藤納戸（ふじなんど） , #706CAA
            C = "桔梗" or C = "ききょう" ; "5657762" ;    // 桔梗色（ききょういろ） , #5654A2
            C = "紺藍" or C = "こんあい" ; "4868238" ;    // 紺藍（こんあい） , #4A488E
            C = "藤" or C = "ふじ" ; "12303582" ;    // 藤色（ふじいろ） , #BBBCDE
            C = "藤紫" or C = "ふじむらさき" ; "10853066" ;    // 藤紫（ふじむらさき） , #A59ACA
            C = "青紫" or C = "あおむらさき" ; "6768024" ;    // 青紫（あおむらさき） , #674598
            C = "菫" or C = "すみれ" ; "7362723" ;    // 菫色（すみれいろ） , #7058A3
            C = "鳩羽" or C = "はとば" ; "9799068" ;    // 鳩羽色（はとばいろ） , #95859C
            C = "菖蒲" or C = "しょうぶ" ; "6766998" ;    // 菖蒲色（しょうぶいろ） , #674196
            C = "江戸紫" or C = "えどむらさき" ; "7623577" ;    // 江戸紫（えどむらさき） , #745399
            C = "紫" or C = "むらさき" ; "8931480" ;    // 紫（むらさき） , #884898
            C = "古代紫" or C = "こだいむらさき" ; "9001866" ;    // 古代紫（こだいむらさき） , #895B8A
            C = "茄子紺" or C = "なすこん" ; "8538240" ;    // 茄子紺（なすこん） , #824880
            C = "紫紺" or C = "しこん" ; "4591172" ;    // 紫紺（しこん） , #460E44
            C = "菖蒲" or C = "あやめ" ; "13401777" ;    // 菖蒲色（あやめいろ） , #CC7EB1
            C = "牡丹" or C = "ぼたん" ; "15163550" ;    // 牡丹色（ぼたんいろ） , #E7609E
            C = "赤紫" or C = "あかむらさき" ; "15429285" ;    // 赤紫（あかむらさき） , #EB6EA5
            C = "白" or C = "しろ" ; "16777215" ;    // 白（しろ） , #FFFFFF
            C = "胡粉" or C = "ごふん" ; "16777212" ;    // 胡粉色（ごふんいろ） , #FFFFFC
            C = "生成り" or C = "きなり" ; "16513781" ;    // 生成り色（きなりいろ） , #FBFAF5
            C = "象牙" or C = "ぞうげ" ; "16315622" ;    // 象牙色（ぞうげいろ） , #F8F4E6
            C = "銀鼠" or C = "ぎんねず" ; "11513776" ;    // 銀鼠（ぎんねず） , #AFAFB0
            C = "茶鼠" or C = "ちゃねずみ" ; "11116179" ;    // 茶鼠（ちゃねずみ） , #A99E93
            C = "鼠" or C = "ねずみ" ; "9737365" ;    // 鼠色（ねずみいろ） , #949495
            C = "利休鼠" or C = "りきゅうねずみ" ; "8949374" ;    // 利休鼠（りきゅうねずみ） , #888E7E
            C = "鉛" or C = "なまり" ; "8092797" ;    // 鉛色（なまりいろ） , #7B7C7D
            C = "灰" or C = "はい" ; "8224125" ;    // 灰色（はいいろ） , #7D7D7D
            C = "煤竹" or C = "すすたけ" ; "7295308" ;    // 煤竹色（すすたけいろ） , #6F514C
            C = "黒茶" or C = "くろちゃ" ; "5781538" ;    // 黒茶（くろちゃ） , #583822
            C = "墨" or C = "すみ" ; "5855319" ;    // 墨（すみ） , #595857
            C = "黒" or C = "くろ" ; "2829099" ;    // 黒（くろ） , #2B2B2B
            C = "鉄黒" or C = "てつぐろ" ; "2628116" ;    // 鉄黒（てつぐろ） , #281A14
            C = "金" or C = "きん" ; "16766720" ;    // 金色（きんいろ）便宜的に X11Color の Gold を指定
            C = "銀" or C = "ぎん" ; "12632256" ;    // 銀色（ぎんいろ）便宜的に X11Color の Silver を指定
            C = "ローズレッド" or C = "rosered" ; "15360398" ;    // Rose Red , #EA618E
            C = "ローズピンク" or C = "rosepink" ; "15834279" ;    // Rose Pink , #F19CA7
            C = "コチニールレッド" or C = "cochinealred" ; "13118549" ;    // Cochineal Red , #C82C55
            C = "ルビーレッド" or C = "rubyred" ; "15152482" ;    // Ruby Red , #E73562
            C = "ワインレッド" or C = "winered" ; "11746908" ;    // Wine Red , #B33E5C
            C = "バーガンディー" or C = "burgundy" ; "7087925" ;    // Burgundy , #6C2735
            C = "オールドローズ" or C = "oldrose" ; "14848921" ;    // Old Rose , #E29399
            C = "ローズ" or C = "rose" ; "15291492" ;    // Rose , #E95464
            C = "ストロベリー" or C = "strawberry" ; "15152482" ;    // Strawberry , #E73562
            C = "コーラルレッド" or C = "coralred" ; "15697277" ;    // Coral Red , #EF857D
            C = "ピンク" ; "16102066" ;    // Pink , #F5B2B2
            C = "ボルドー" or C = "bordeaux" ; "7087917" ;    // Bordeaux , #6C272D
            C = "ベビーピンク" or C = "babypink" ; "16641508" ;    // Baby Pink , #FDEDE4
            C = "ポピーレッド" or C = "poppyred" ; "15357264" ;    // Poppy Red , #EA5550
            C = "シグナルレッド" or C = "signalred" ; "15218749" ;    // Signal Red , #E8383D
            C = "カーマイン" or C = "carmine" ; "14090293" ;    // Carmine , #D70035
            C = "レッド" ; "15357264" ;    // Red , #EA5550
            C = "トマトレッド" or C = "tomatored" ; "15357257" ;    // Tomato Red , #EA5549
            C = "マルーン" ; "6953239" ;    // Maroon , #6A1917
            C = "バーミリオン" or C = "vermilion" ; "15357242" ;    // Vermilion , #EA553A
            C = "スカーレット" or C = "scarlet" ; "15357234" ;    // Scarlet , #EA5532
            C = "テラコッタ" or C = "terracotta" ; "12413014" ;    // Terracotta , #BD6856
            C = "サーモンピンク" or C = "salmonpink" ; "15967884" ;    // Salmon Pink , #F3A68C
            C = "シェルピンク" or C = "shellpink" ; "16505544" ;    // Shell Pink , #FBDAC8
            C = "ネールピンク" or C = "nailpink" ; "16573654" ;    // Nail Pink , #FCE4D6
            C = "チャイニーズレッド" or C = "chinesered" ; "15560006" ;    // Chinese Red , #ED6D46
            C = "キャロットオレンジ" or C = "carrotorange" ; "15559989" ;    // Carrot Orange , #ED6D35
            C = "バーントシェンナ" or C = "burntsienna" ; "12277045" ;    // Burnt Sienna , #BB5535
            C = "チョコレート" ; "7091492" ;    // Chocolate , #6C3524
            C = "ココアブラウン" or C = "cocoabrown" ; "9986142" ;    // Cocoa Brown , #98605E
            C = "ピーチ" or C = "peach" ; "16505013" ;    // Peach , #FBD8B5
            C = "ローシェンナ" or C = "rawsienna" ; "14777140" ;    // Raw Sienna , #E17B34
            C = "オレンジ" ; "15628288" ;    // Orange , #EE7800
            C = "ブラウン" ; "9397586" ;    // Brown , #8F6552
            C = "アプリコット" or C = "apricot" ; "16234871" ;    // Apricot , #F7B977
            C = "タン" ; "12548158" ;    // Tan , #BF783E
            C = "マンダリンオレンジ" or C = "mandarinorange" ; "15964189" ;    // Mandarin Orange , #F3981D
            C = "コルク" or C = "cork" ; "12884586" ;    // Cork , #C49A6A
            C = "エクルベージュ" or C = "ecrubeige" ; "16180684" ;    // Ecru Beige , #F6E5CC
            C = "ゴールデンイエロー" or C = "goldenyellow" ; "16166484" ;    // Golden Yellow , #F6AE54
            C = "マリーゴールド" or C = "marigold" ; "15964160" ;    // Marigold , #F39800
            C = "バフ" or C = "buff" ; "13282417" ;    // Buff , #CAAC71
            C = "アンバー" or C = "amber" ; "12749131" ;    // Amber , #C2894B
            C = "ブロンズ" or C = "bronze" ; "11299621" ;    // Bronze , #AC6B25
            C = "ベージュ" ; "15654067" ;    // Beige , #EEDCB3
            C = "イエローオーカー" or C = "yellowocher" ; "12883759" ;    // Yellow Ocher , #C4972F
            C = "バーントアンバー" or C = "burntumber" ; "7296054" ;    // Burnt Umber , #6F5436
            C = "セピア" or C = "sepia" ; "6434072" ;    // Sepia , #622D18
            C = "カーキー" ; "12951642" ;    // Khaki , #C5A05A
            C = "ブロンド" or C = "blond" ; "15914378" ;    // Blond , #F2D58A
            C = "ネープルスイエロー" or C = "naplesyellow" ; "16634716" ;    // Naples Yellow , #FDD35C
            C = "レグホーン" or C = "leghorn" ; "16771497" ;    // Leghorn , #FFE9A9
            C = "ローアンバー" or C = "rawumber" ; "8807977" ;    // Raw Umber , #866629
            C = "クロムイエロー" or C = "chromeyellow" ; "16566272" ;    // Chrome Yellow , #FCC800
            C = "イエロー" ; "16768000" ;    // Yellow , #FFDC00
            C = "クリームイエロー" or C = "creamyellow" ; "16774072" ;    // Cream Yellow , #FFF3B8
            C = "ジョンブリアン" or C = "jaunebrillant" ; "16768000" ;    // Jaune Brillant , #FFDC00
            C = "カナリヤ" or C = "canaryyellow" ; "16774242" ;    // Canary Yellow , #FFF462
            C = "オリーブドラブ" ; "6707738" ;    // Olive Drab , #665A1A
            C = "オリーブ" ; "7496716" ;    // Olive , #72640C
            C = "レモンイエロー" or C = "lemonyellow" ; "16773970" ;    // Lemon Yellow , #FFF352
            C = "オリーブグリーン" or C = "olivegreen" ; "6251815" ;    // Olive Green , #5F6527
            C = "シャトルーズグリーン" or C = "chartreusegreen" ; "14279527" ;    // Chartreuse Green , #D9E367
            C = "リーフグリーン" or C = "leafgreen" ; "10469965" ;    // Leaf Green , #9FC24D
            C = "グラスグリーン" or C = "grassgreen" ; "8097090" ;    // Grass Green , #7B8D42
            C = "アイビーグリーン" or C = "ivygreen" ; "5737021" ;    // Ivy Green , #578A3D
            C = "アップルグリーン" or C = "applegreen" ; "10998413" ;    // Apple Green , #A7D28D
            C = "ミントグリーン" or C = "mintgreen" ; "9030039" ;    // Mint Green , #89C997
            C = "グリーン" ; "43360" ;    // Green , #00A960
            C = "コバルトグリーン" or C = "cobaltgreen" ; "3978106" ;    // Cobalt Green , #3CB37A
            C = "エメラルドグリーン" or C = "emeraldgreen" ; "43368" ;    // Emerald Green , #00A968
            C = "マラカイトグリーン" or C = "malachitegreen" ; "38996" ;    // Malachite Green , #009854
            C = "ボトルグリーン" or C = "bottlegreen" ; "19749" ;    // Bottle Green , #004D25
            C = "フォレストグリーン" ; "2657382" ;    // Forest Green , #288C66
            C = "ビリジアン" or C = "viridian" ; "34906" ;    // Viridian , #00885A
            C = "ビリヤードグリーン" or C = "billiardgreen" ; "23618" ;    // Billiard Green , #005C42
            C = "シーグリーン" ; "44183" ;    // Sea Green , #00AC97
            C = "ピーコックグリーン" or C = "peacockgreen" ; "42135" ;    // Peacock Green , #00A497
            C = "ナイルブルー" or C = "nileblue" ; "2929837" ;    // Nile Blue , #2CB4AD
            C = "ピーコックブルー" or C = "peacockblue" ; "40607" ;    // Peacock Blue , #009E9F
            C = "ターコイズブルー" or C = "turquoiseblue" ; "45004" ;    // Turquoise Blue , #00AFCC
            C = "マリンブルー" or C = "marineblue" ; "26760" ;    // Marine Blue , #006888
            C = "ホリゾンブルー" or C = "horizonblue" ; "10606822" ;    // Horizon Blue , #A1D8E6
            C = "シアン" ; "41449" ;    // Cyan , #00A1E9
            C = "スカイブルー" ; "10541295" ;    // Sky Blue , #A0D8EF
            C = "セルリアンブルー" or C = "ceruleanblue" ; "36279" ;    // Cerulean Blue , #008DB7
            C = "ベビーブルー" or C = "babyblue" ; "12313329" ;    // Baby Blue , #BBE2F1
            C = "サックスブルー" or C = "saxeblue" ; "4295561" ;    // Saxe Blue , #418B89
            C = "ブルー" ; "30146" ;    // Blue , #0075C2
            C = "コバルトブルー" or C = "cobaltblue" ; "26807" ;    // Cobalt Blue , #0068B7
            C = "アイアンブルー" or C = "ironblue" ; "1650528" ;    // Iron Blue , #192F60
            C = "プルシャンブルー" or C = "prussianblue" ; "1650528" ;    // Prussian Blue , #192F60
            C = "ミッドナイトブルー" ; "7747" ;    // Midnight Blue , #001E43
            C = "ヒヤシンス" or C = "hyacinth" ; "7117778" ;    // Hyacinth , #6C9BD2
            C = "ネービーブルー" or C = "navyblue" ; "2109269" ;    // Navy Blue , #202F55
            C = "ウルトラマリンブルー" or C = "ultramarineblue" ; "4674466" ;    // Ultramarine Blue , #4753A2
            C = "オリエンタルブルー" or C = "orientalblue" ; "2509213" ;    // Oriental Blue , #26499D
            C = "ウイスタリア" or C = "wistaria" ; "9278408" ;    // Wistaria , #8D93C8
            C = "パンジー" or C = "pansy" ; "5063576" ;    // Pansy , #4D4398
            C = "ヘリオトロープ" or C = "heliotrope" ; "9468342" ;    // Heliotrope , #9079B6
            C = "バイオレット" ; "5915800" ;    // Violet , #5A4498
            C = "ラベンダー" ; "13285593" ;    // Lavender , #CAB8D9
            C = "モーブ" or C = "mauve" ; "9526691" ;    // Mauve , #915DA3
            C = "ライラック" or C = "lilac" ; "13744858" ;    // Lilac , #D1BADA
            C = "オーキッド" ; "14265037" ;    // Orchid , #D9AACD
            C = "パープル" ; "10187440" ;    // Purple , #9B72B0
            C = "マゼンタ" ; "14942335" ;    // Magenta , #E4007F
            C = "チェリーピンク" or C = "cherrypink" ; "15429280" ;    // Cherry Pink , #EB6EA0
            C = "ホワイト" ; "16777215" ;    // White , #FFFFFF
            C = "スノーホワイト" or C = "snowwhite" ; "16449023" ;    // Snow White , #FAFDFF
            C = "アイボリー" ; "16315622" ;    // Ivory , #F8F4E6
            C = "スカイグレイ" or C = "skygrey" ; "13357267" ;    // Sky Grey , #CBD0D3
            C = "パールグレイ" or C = "pearlgrey" ; "13224388" ;    // Pearl Grey , #C9C9C4
            C = "シルバーグレイ" or C = "silvergrey" ; "11513776" ;    // Silver Grey , #AFAFB0
            C = "アッシュグレイ" or C = "ashgrey" ; "10461342" ;    // Ash Grey , #9FA09E
            C = "ローズグレイ" or C = "rosegrey" ; "10325639" ;    // Rose Grey , #9D8E87
            C = "グレイ" or C = "grey" ; "8224125" ;    // Grey , #7D7D7D
            C = "スチールグレイ" or C = "steelgrey" ; "7564657" ;    // Steel Grey , #736D71
            C = "スレートグレイ" or C = "slategrey" ; "6447203" ;    // Slate Grey , #626063
            C = "チャコールグレイ" or C = "charcoalgrey" ; "5129546" ;    // Charcoal Grey , #4E454A
            C = "ランプブラック" or C = "lampblack" ; "2364430" ;    // Lamp Black , #24140E
            C = "ブラック" ; "0" ;    // Black , #000000

        // 色名が該当しない場合
            0
        )
    )
)

MultiHilight ( テキスト ; 検索テキスト ; カウンター )

Mon, 17 Jan 2011 06:32:57 GMT

// 作者 : 社本修司
// 概要 : スペースで区切られた複数の<検索テキスト>を<テキスト>上で強調表示します。
// カスタム関数    MultiHilight ( テキスト ; 検索テキスト ; カウンター )

/*
MultiHilight ( テキスト ; 検索テキスト ; カウンター )
スペースで区切られた複数の<検索テキスト>を<テキスト>上で強調表示します。
*/
Let (
    [
    TEXT = テキスト ;
    SERCHLIST =
        Substitute (
            // FileMaker Pro 8 以降のみで利用する場合
//            TextStyleAdd ( TextFormatRemove ( 検索テキスト ) ; 太字 ) ;
            // FileMaker Pro 7 で利用する場合
            TextStyleAdd ( TextColor ( 検索テキスト ; RGB ( 0 ; 0 ; 0 ) ) ; 太字 ) ;
            [ " " ; "¶" ] ; [ "　" ; "¶" ] ; [ "¶¶¶" ; "¶" ] ; [ "¶¶" ; "¶" ]
        ) ;     // 検索テキストをリスト化
    COUNTER = カウンター ;
    // 置換用の色1〜10,検索語句が10以上の場合は1から繰り返す
    COLORLIST =
        RGB ( 255 ; 0 ; 0 ) & "¶" &     // Red
        RGB ( 0 ; 0 ; 255 ) & "¶" &     // Blue
        RGB ( 0 ; 128 ; 0 ) & "¶" &     // Green
        RGB ( 255 ; 0 ; 255 ) & "¶" &     // Magenta
        RGB ( 255 ; 165 ; 0 ) & "¶" &     // Orange
        RGB ( 50 ; 50 ; 205 ) & "¶" &     // Navy
        RGB ( 50 ; 205 ; 50 ) & "¶" &     // Limegreen
        RGB ( 255 ; 215 ; 0 ) & "¶" &     // Gold
        RGB ( 165 ; 42 ; 42 ) & "¶" &     // Brown
        RGB ( 92 ; 0 ; 182 ) ;     // Indigo
    // FileMaker Pro 8 以降のみで利用する場合
//    COLOR = GetValue ( COLORLIST ; Mod ( COUNTER ; 10 ) + 1 ) ;
    // FileMaker Pro 7 で利用する場合
    COLOR = Substitute ( MiddleValues ( COLORLIST ; Mod ( COUNTER ; 10 ) + 1 ; 1 ) ; "¶" ; "" ) ;
    NEXTLIST = MiddleValues ( SERCHLIST ; 2 ; ValueCount ( SERCHLIST ) - 1 ) ;
    // FileMaker Pro 8 以降のみで利用する場合
//    SEARCHWORD = GetValue ( SEARCHLIST ; 1 ) ;
    // FileMaker Pro 7 で利用する場合
    SEARCHWORD = Substitute ( LeftValues ( SERCHLIST ; 1 ) ; "¶" ; "" ) ;
    PROPERSEARCHWORD = Proper ( SEARCHWORD ) ;
    LOWERSEARCHWORD = Lower ( SEARCHWORD ) ;
    UPPERSEARCHWORD = Upper ( SEARCHWORD ) ;
    iSEARCHWORD = Left ( LOWERSEARCHWORD ; 1 ) & Proper ( Middle ( LOWERSEARCHWORD ; 2 ; Length ( LOWERSEARCHWORD ) - 1 ) ) ;
    ZENKAKUSEARCHWORD = KanaZenkaku ( SEARCHWORD ) ;
    HANKAKUSEARCHWORD = KanaHankaku ( SEARCHWORD )
    ] ;

    Case (
        not IsEmpty ( SEARCHWORD ) ;
            MultiHilight (
                Substitute (
                    TEXT ;
                    [ SEARCHWORD ; TextColor ( SEARCHWORD ; COLOR ) ] ;
                    [ PROPERSEARCHWORD ; TextColor ( PROPERSEARCHWORD ; COLOR ) ] ;
                    [ LOWERSEARCHWORD ; TextColor ( LOWERSEARCHWORD ; COLOR ) ] ;
                    [ UPPERSEARCHWORD ; TextColor ( UPPERSEARCHWORD ; COLOR ) ] ;
                    [ iSEARCHWORD ; TextColor ( iSEARCHWORD ; COLOR ) ] ;
                    [ ZENKAKUSEARCHWORD ; TextColor ( ZENKAKUSEARCHWORD ; COLOR ) ] ;
                    [ HANKAKUSEARCHWORD ; TextColor ( HANKAKUSEARCHWORD ; COLOR ) ]
                ) ;
                NEXTLIST ;
                COUNTER + 1
            ) ;     // SEARCHWORD に値がある場合は再帰呼び出し
            TEXT     // SEARCHWORD が空の時はTEXTのみ
    )
)

IsValidEmail ( メールアドレス ; オプション )

Mon, 17 Jan 2011 06:32:56 GMT

// 作者 : 社本修司
// 概要 : ＜メールアドレス＞が妥当な場合に真「1」を返します。妥当ではない場合、偽「0」を返します。
// カスタム関数    IsValidEmail ( メールアドレス ; オプション )

/*==============================================================
  カスタム関数 IsValidEmail ( メールアドレス ; オプション )

＜メールアドレス＞が妥当な場合に真「1」を返します。妥当ではない場合、偽「0」を返します。
オプションに「1」を指定することで偽の場合にその理由を返し、真の場合はnull値を返します。
（オプション「0」の場合の結果は「1」か「0」）

# トップレベルドメインは2006年4月現在申請中も含む参照
# ドメイン名のルールは JPNIC の「ドメイン名のしくみ」を参照
# ドメイン名のラベルは第6レベルまで判定
# ローカルパートで利用出来る文字列は RFC2822 3.2.4. Atom の atext による
# 日本語訳参照
# ()によるコメントや、""によるローカルパート表記、日本語ドメインを含む国際化ドメイン名は考慮していません

このカスタム関数を引用するに当たっては、必ずコメントも一緒に引用してください。
==============================================================*/

Let (
    [
    ADDR_SPEC = Lower ( メールアドレス ) ;
    OPTION = オプション ;

    TLD_LIST =
        "com¶net¶org¶edu¶gov¶mil¶int¶info¶biz¶name¶pro¶museum¶aero¶coop¶jobs¶travel¶mobi¶cat¶post¶tel¶xxx¶asia¶arpa¶ac¶ad¶ae¶af¶ag¶ai¶al¶am¶an¶ao¶aq¶ar¶as¶at¶au¶aw¶ax¶az¶ba¶bb¶bd¶be¶bf¶bg¶bh¶bi¶bj¶bm¶bn¶bo¶br¶bs¶bt¶bv¶bw¶by¶bz¶ca¶cc¶cd¶cf¶cg¶ch¶ci¶ck¶cl¶cm¶cn¶co¶cr¶cs¶cu¶cv¶cx¶cy¶cz¶de¶dj¶dk¶dm¶do¶dz¶ec¶ee¶eg¶eh¶er¶es¶et¶eu¶fi¶fj¶fk¶fm¶fo¶fr¶ga¶gb¶gd¶ge¶gf¶gg¶gh¶gi¶gl¶gm¶gn¶gp¶gq¶gr¶gs¶gt¶gu¶gw¶gy¶hk¶hm¶hn¶hr¶ht¶hu¶id¶ie¶il¶im¶in¶io¶iq¶ir¶is¶it¶je¶jm¶jo¶jp¶ke¶kg¶kh¶ki¶km¶kn¶kp¶kr¶kw¶ky¶kz¶la¶lb¶lc¶li¶lk¶lr¶ls¶lt¶lu¶lv¶ly¶ma¶mc¶md¶mg¶mh¶mk¶ml¶mm¶mn¶mo¶mp¶mq¶mr¶ms¶mt¶mu¶mv¶mw¶mx¶my¶mz¶na¶nc¶ne¶nf¶ng¶ni¶nl¶no¶np¶nr¶nu¶nz¶om¶pa¶pe¶pf¶pg¶ph¶pk¶pl¶pm¶pn¶pr¶ps¶pt¶pw¶py¶qa¶re¶ro¶ru¶rw¶sa¶sb¶sc¶sd¶se¶sg¶sh¶si¶sj¶sk¶sl¶sm¶sn¶so¶sr¶st¶sv¶sy¶sz¶tc¶td¶tf¶tg¶th¶tj¶tk¶tl¶tm¶tn¶to¶tp¶tr¶tt¶tv¶tw¶tz¶ua¶ug¶uk¶um¶us¶uy¶uz¶va¶vc¶ve¶vg¶vi¶vn¶vu¶wf¶ws¶ye¶yt¶yu¶za¶zm¶zw¶su¶" ;
        // トップレベルドメインのリスト参照
        // su 旧ソビエト連邦 wikipediaによると未だに使われているらしい
    JP_LIST = "ac¶co¶go¶or¶ad¶ne¶gr¶ed¶lg¶" ;     // 属性型（組織種別型）JPドメイン名の属性リスト

    P_SEPARATOR = Position ( ADDR_SPEC ; "@" ; 1 ; PatternCount ( ADDR_SPEC ; "@" ) ) ;     // @が2回以上書かれた場合を考慮して最後の@をドメインとの区切りとする
    LOCAL_PART = Left ( ADDR_SPEC ; P_SEPARATOR - 1 ) ;     // ローカルパート（アカウント名）
    DOMAIN = Right ( ADDR_SPEC ; Length ( ADDR_SPEC ) - P_SEPARATOR ) ;    // ドメイン名

    P_LAST_DOT = Position ( DOMAIN ; "." ; 1 ; PatternCount ( DOMAIN ; "." ) ) ;
    P_LAVEL2_DOT = Position ( DOMAIN ; "." ; 1 ; PatternCount ( DOMAIN ; "." ) - 1 ) ;
    P_LAVEL3_DOT = Position ( DOMAIN ; "." ; 1 ; PatternCount ( DOMAIN ; "." ) - 2 ) ;
    P_LAVEL4_DOT = Position ( DOMAIN ; "." ; 1 ; PatternCount ( DOMAIN ; "." ) - 3 ) ;
    P_LAVEL5_DOT = Position ( DOMAIN ; "." ; 1 ; PatternCount ( DOMAIN ; "." ) - 4 ) ;
    P_LAVEL6_DOT = Position ( DOMAIN ; "." ; 1 ; PatternCount ( DOMAIN ; "." ) - 5 ) ;

    TOP_LEVEL_DOMAIN = Middle ( DOMAIN ; P_LAST_DOT + 1 ; Length ( DOMAIN ) - P_LAST_DOT ) ;     // トップレベルドメイン
    LAVEL2 = Middle ( DOMAIN ; P_LAVEL2_DOT + 1 ; P_LAST_DOT - P_LAVEL2_DOT - 1 ) ;     // 第2レベルドメイン
    LAVEL3 = Middle ( DOMAIN ; P_LAVEL3_DOT + 1 ; P_LAVEL2_DOT - P_LAVEL3_DOT - 1 ) ;     // 第3レベルドメイン
    LAVEL4 = Middle ( DOMAIN ; P_LAVEL4_DOT + 1 ; P_LAVEL3_DOT - P_LAVEL4_DOT - 1 ) ;     // 第4レベルドメイン
    LAVEL5 = Middle ( DOMAIN ; P_LAVEL5_DOT + 1 ; P_LAVEL4_DOT - P_LAVEL5_DOT - 1 ) ;     // 第5レベルドメイン
    LAVEL6 = Middle ( DOMAIN ; P_LAVEL6_DOT + 1 ; P_LAVEL5_DOT - P_LAVEL6_DOT - 1 ) ;     // 第6レベルドメイン

    DOCOMO = Exact ( DOMAIN ; "docomo.ne.jp" ) or Exact ( DOMAIN ; "ezweb.ne.jp" ) or PatternCount ( DOMAIN ; ".ezweb.ne.jp" ) ;     // 携帯アドレス特別ルール判定用
    JP = Exact ( TOP_LEVEL_DOMAIN ; "jp" ) and Length ( LAVEL2 ) ≤ 2 ;     // 属性型（組織種別型）JPドメイン判定用
    JO = Exact ( TOP_LEVEL_DOMAIN ; "jo" ) and Length ( LAVEL2 ) ≤ 2 ;     // JP のtypo対策（ヨルダンドメインの属性は3文字）

    FILTERE_LOCAL_PART =
        Filter (
            LOCAL_PART ;
            "abcdefghijklmnopqrstuvwxyz" &
            "ABCDEFGHIJKLMNOPQRSTUVWXYZ" &
            "0123456789" &
            "!#$%&'*+-/=?^_`{|}~" &
            "."
        ) ;
    FILTERE_DOMAIN =
        Filter (
            DOMAIN ;
            "abcdefghijklmnopqrstuvwxyz" &
            "ABCDEFGHIJKLMNOPQRSTUVWXYZ" &
            "0123456789-."
        ) ;

    RESULT =
        Case (
            IsEmpty ( ADDR_SPEC ) ;
                "メールアドレスが空です" ;

            PatternCount ( ADDR_SPEC ; "@" ) = 0 or
            IsEmpty ( DOMAIN ) ;
                "ドメイン（@の右側）が空です" ;
            PatternCount ( DOMAIN ; "." ) = 0 ;
                "無効なドメイン（@の右側）です" ;
            Length ( DOMAIN ) > 255 ;
                "ドメイン（@の右側）が長すぎます" ;     // ドメイン名全体の長さは255文字以下
            Length ( LAVEL2 ) > 63 or
            Length ( LAVEL3 ) > 63 or
            Length ( LAVEL4 ) > 63 or
            Length ( LAVEL5 ) > 63 or
            Length ( LAVEL6 ) > 63 ;
                "無効なドメイン（@の右側）です" ; // 各ラベルの長さは63文字以下
            Left ( DOMAIN ; 1 ) = "-" ;
                "ドメインの最初を\"-\"（ハイフン）にすることは出来ません" ;
            Left ( LAVEL2 ; 1 ) = "-" or Right ( LAVEL2 ; 1 ) = "-" or
            Left ( LAVEL3 ; 1 ) = "-" or Right ( LAVEL3 ; 1 ) = "-" or
            Left ( LAVEL4 ; 1 ) = "-" or Right ( LAVEL4 ; 1 ) = "-" or
            Left ( LAVEL5 ; 1 ) = "-" or Right ( LAVEL5 ; 1 ) = "-" or
            Left ( LAVEL6 ; 1 ) = "-" or Right ( LAVEL6 ; 1 ) = "-" ;
                "無効なドメインです（\".\"（ドット）の直前または直後を\"-\"（ハイフン）にすることは出来ません）" ;     // ラベルの先頭と最後にハイフンは使用できない
            not Exact ( DOMAIN ; FILTERE_DOMAIN ) and PatternCount ( DOMAIN ; "¶" ) ;
                "ドメイン（@の右側）に無効な文字列（改行）が含まれています" ;
            not Exact ( DOMAIN ; FILTERE_DOMAIN ) and ( PatternCount ( DOMAIN ; " " ) or PatternCount ( DOMAIN ; "　" ) ) ;
                "ドメイン（@の右側）に無効な文字列（\" \"スペース）が含まれています" ;
            not Exact ( DOMAIN ; FILTERE_DOMAIN ) ;
                "ドメイン（@の右側）に無効な文字列が含まれています" ;
            Left ( DOMAIN ; 1 ) = "." ;
                "ドメイン（@の右側）の最初を\".\"（ドット）にすることは出来ません" ;
            Right ( DOMAIN ; 1 ) = "." ;
                "ドメイン（@の右側）の最後を\".\"（ドット）にすることは出来ません" ;
            PatternCount ( DOMAIN ; ".." ) ≥ 1 ;
                "ドメイン（@の右側）に\"..\"を含める（ドットを二つ続ける）ことは出来ません" ;
            IsEmpty ( FilterValues ( TOP_LEVEL_DOMAIN ; TLD_LIST ) ) ;
                "トップレベルドメイン（最後の\".jp\"など）が無効です" ;
            JP and IsEmpty ( FilterValues ( LAVEL2 ; JP_LIST ) ) ;
                "ドメインの属性（\".co\"や\".ne\"など）が無効です" ;     // 属性型（組織種別型）JPドメインの場合は属性もチェック
            JO and not IsEmpty ( FilterValues ( LAVEL2 ; JP_LIST ) ) ;
                "ヨルダン（Jordan）ドメインの属性は \".com, .org, .edu, .mil, .net, .gov\" のいずれかです" ;

            not Exact ( LOCAL_PART ; FILTERE_LOCAL_PART ) and ( PatternCount ( LOCAL_PART ; " " ) or PatternCount ( LOCAL_PART ; "　" ) ) ;
                "アカウント（@の左側）に無効な文字列（\" \"スペース）が含まれています" ;
            not Exact ( LOCAL_PART ; FILTERE_LOCAL_PART ) ;
                "アカウント（@の左側）に無効な文字列が含まれています" ;
            Left ( LOCAL_PART ; 1 ) = "." ;
                "アカウントの最初を\".\"（ドット）にすることは出来ません" ;

            not DOCOMO and Right ( LOCAL_PART ; 1 ) = "." ;
                "アカウント（@の左側）の最後を\".\"（ドット）にすることは出来ません" ;
            not DOCOMO and PatternCount ( LOCAL_PART ; ".." ) ≥ 1 ;
                "アカウント（@の左側）に\"..\"を含める（ドットを二つ続ける）ことは出来ません" ;
                // docomo.ne.jp ないしは ezweb.ne.jp の場合、.の扱いが RFC2822 で認められていない使い方ができるため
        )
    ] ;

    Case (
        OPTION ;
            RESULT ;
            IsEmpty ( RESULT )
    )

)
// ©2006,SHAMOTO Syuji

FilterEmail ( フィルタするメールアドレス )

Mon, 17 Jan 2011 06:32:56 GMT

// 作者 : 社本修司
// 概要 : ＜フィルタするメールアドレス＞からメールアドレスで使用できる文字のみを返します。
// カスタム関数    FilterEmail ( フィルタするメールアドレス )

/*
FilterEmail ( フィルタするメールアドレス )
＜フィルタするメールアドレス＞からメールアドレスで使用できる文字のみを返します。
*/

Filter (
    フィルタするメールアドレス ;
    "abcdefghijklmnopqrstuvwxyz" &
    "ABCDEFGHIJKLMNOPQRSTUVWXYZ" &
    "0123456789" &
    "!#$%&'*+-/=?^_`{|}~" &
    ".@"
)

ConcateList ( ListA ; ListB )

Mon, 17 Jan 2011 06:32:57 GMT

// 作者 : 給前悟郎
// 概要 : 改行区切りの二つのテキストを連結します。
// カスタム関数    ConcateList ( ListA ; ListB )

/* ConcateList ( ListA ; ListB ) */
Let (
[
    NextListA = MiddleValues ( ListA ; 2 ; PatternCount ( ListA ; "¶" ) ) ;
    NextListB = MiddleValues ( ListB ; 2 ; PatternCount ( ListB ; "¶" ) )
] ;

    Case (
        not ( IsEmpty ( ListA ) and IsEmpty ( ListB ) ) ;
            Substitute ( LeftValues ( ListA ; 1 ) ; "¶" ; "" ) & ";" &
            Substitute ( LeftValues ( ListB ; 1 ) ; "¶" ; "" ) & "¶" &
            ConcateList ( NextListA ; NextListB )
    )
)

TrimCarriageReturn ( テキスト )

Mon, 17 Jan 2011 06:32:56 GMT

// 作者 : 社本修司
// 概要 : <テキスト>の前後にあるすべての改行を削除したテキストを返します。
// カスタム関数    TrimCarriageReturn ( テキスト )

/*
TrimCarriageReturn ( テキスト )
<テキスト>の前後にあるすべての改行を削除したテキストを返します。
*/
Let (
    [
    TEXT = テキスト;
    FIRSTTEXT = Left ( TEXT ; 1 ) ;
    LASTTEXT = Right ( TEXT ; 1 )
    ] ;
    Case (
    FIRSTTEXT  = "¶" ;
        TrimCarriageReturn ( Right ( TEXT ; Length ( TEXT ) - 1 ) ) ;
    LASTTEXT  = "¶" ;
        TrimCarriageReturn ( Left ( TEXT ; Length ( TEXT ) - 1 ) ) ;
        TEXT
    )
)

ValuePosition ( 値 ; 検索テキスト )

Mon, 17 Jan 2011 06:32:54 GMT

// 作者 : 社本修司
// 概要 : <検索テキスト>が値（改行で区切られたテキスト）の中で何番目かを数字で返します。
// カスタム関数    ValuePosition ( 値 ; 検索テキスト )

/*
ValuePosition ( 値 ; 検索テキスト )
<検索テキスト>が値（改行で区切られたテキスト）の中で何番目かを数字で返します。
*/

Case (
    not IsEmpty ( 検索テキスト ) ;
        PatternCount (
            Left (
                "¶" & 値 & "¶" ;
                Position (
                    "¶" & 値 & "¶" ;
                    "¶" & 検索テキスト & "¶" ;
                    1 ;
                    1
                )
            ) ;
            "¶"
        )
)

/*
値一覧を当該ファイルに指定した値一覧にかぎるのであれば、
ValuePosition ( 値一覧名 ; 検索テキスト )
として、ValueListItemsを指定してしまう方法もとれます。
*/
/*
Case (
    not IsEmpty ( 検索テキスト ) ;
        PatternCount (
            Left (
                "¶" & ValueListItems ( Get (ファイル名) ; 値一覧名 ) & "¶" ;
                Position (
                    "¶" & ValueListItems ( Get (ファイル名) ; 値一覧名 ) & "¶" ;
                    "¶" & 検索テキスト & "¶" ;
                    1 ;
                    1
                )
            ) ;
            "¶"
        )
)
*/

City ( 住所 )

Mon, 17 Jan 2011 06:32:48 GMT

// 作者 : 社本修司
// 概要 : 住所から市区郡町村名を返します。
// カスタム関数    City ( 住所 )

/*==============================================================

カスタム関数    City ( 住所 )

  CopyRight©2004-2006,SHAMOTO Syuji


住所から市区郡町村名を返します。
町村の場合は、郡を含む町または村まで。政令指定都市の場合は区までを市区郡町村名とします。
2009.04.01 現在
=============================================================*/

Let (
    [
    PREF = Pref ( 住所 ) ;
    ADDRESS = Substitute ( 住所 ; PREF ; "" ) ;
    C = Position ( ADDRESS ; "市" ; 1 ; 1 ) ;
    T = Position ( ADDRESS ; "町" ; 1 ; 1 ) ;
    V = Position ( ADDRESS ; "村" ; 1 ; 1 ) ;
    K = Position ( ADDRESS ; "区" ; 1 ; 1 ) ;
    G = Position ( ADDRESS ; "郡" ; 1 ; 1 )
    ] ;

    Case (
    // 市名に「市」が含まれる
        (
            PatternCount ( 住所 ; "市川市" ) and
            (
                Middle ( 住所 ; Position ( 住所 ; "市川市" ; 1 ; 1 ) - 1 ; 1 ) = "県" or
                Position ( 住所 ; "市川市" ; 1 ; 1 ) = 1
            )
        ) or     // ○○市川市町という形で町名が川市ということもあるので場所も判断
        (
            PatternCount ( 住所 ; "市原市" ) and
            (
                Middle ( 住所 ; Position ( 住所 ; "市原市" ; 1 ; 1 ) - 1 ; 1 ) = "県" or
                Position ( 住所 ; "市原市" ; 1 ; 1 ) = 1
            )
        ) or     // ○○市原市町という形で町名が原市ということもあるので場所も判断
        PatternCount ( 住所 ; "今市市" ) or     // （現・日光市）
        PatternCount ( 住所 ; "八日市場市" ) or     // （現・匝瑳市）
        PatternCount ( 住所 ; "四日市市" ) or
        PatternCount ( 住所 ; "八日市市" ) or
        PatternCount ( 住所 ; "廿日市市" ) ;

            Left (
                ADDRESS ;
                Position ( ADDRESS ; "市" ; 1 ; 2 )
            ) ;

        // 町名に「市」が含まれる（旧住所の地名を含め他府県にも同じ町名が存在する場合は都道府県も考慮する）
        // 町名に「村」が含まれる
        PatternCount ( 住所 ; "余市郡余市町" ) or     // 北海道余市郡余市町
        PatternCount ( 住所 ; "北海道余市町" ) or
        (
            PatternCount ( 住所 ; "余市町" ) and
            Position ( 住所 ; "余市町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "九戸郡種市町" ) or     // 岩手県九戸郡種市町
        PatternCount ( 住所 ; "岩手県種市町" ) or
        (
            PatternCount ( 住所 ; "種市町" ) and
            Position ( 住所 ; "種市町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "芳賀郡市貝町" ) or     // 栃木県芳賀郡市貝町
        PatternCount ( 住所 ; "栃木県市貝町" ) or
        (
            PatternCount ( 住所 ; "市貝町" ) and
            Position ( 住所 ; "市貝町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "中新川郡上市町" ) or     // 富山県中新川郡上市町
        PatternCount ( 住所 ; "富山県上市町" ) or
        (
            PatternCount ( 住所 ; "上市町" ) and
            Position ( 住所 ; "上市町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "石川郡野々市町" ) or     // 石川県石川郡野々市町
        PatternCount ( 住所 ; "石川県野々市町" ) or
        (
            PatternCount ( 住所 ; "野々市町" ) and
            Position ( 住所 ; "野々市町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "西八代郡市川大門町" ) or     // 山梨県西八代郡市川大門町（現・市川三郷町）
        PatternCount ( 住所 ; "山梨県市川大門町" ) or
        (
            PatternCount ( 住所 ; "市川大門町" ) and
            Position ( 住所 ; "市川大門町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "西八代郡市川三郷町" ) or     // 山梨県西八代郡市川三郷町
        PatternCount ( 住所 ; "山梨県市川三郷町" ) or
        (
            PatternCount ( 住所 ; "市川三郷町" ) and
            Position ( 住所 ; "市川三郷町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "芦品郡新市町" ) or     // 広島県芦品郡新市町（現・福山市）
        PatternCount ( 住所 ; "広島県新市町" ) or
        (
            PatternCount ( 住所 ; "新市町" ) and
            Position ( 住所 ; "新市町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "香美郡野市町" ) or     // 高知県香美郡野市町
        PatternCount ( 住所 ; "高知県野市町" ) or
        (
            PatternCount ( 住所 ; "野市町" ) and
            Position ( 住所 ; "野市町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "日置郡東市来町" ) or     // 鹿児島県日置郡東市来町（現・日置市）
        PatternCount ( 住所 ; "鹿児島県東市来町" ) or
        (
            PatternCount ( 住所 ; "東市来町" ) and
            Position ( 住所 ; "東市来町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "日置郡市来町" ) or     // 鹿児島県日置郡市来町（現・いちき串木野市）
        PatternCount ( 住所 ; "鹿児島県市来町" ) or
        (
            PatternCount ( 住所 ; "市来町" ) and
            Position ( 住所 ; "市来町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "吉野郡下市町" ) or     // 奈良県吉野郡下市町
        PatternCount ( 住所 ; "奈良県下市町" ) or
        (
            PatternCount ( 住所 ; "下市町" ) and
            Position ( 住所 ; "下市町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "神崎郡市川町" ) or     // 兵庫県神崎郡市川町
        PatternCount ( 住所 ; "兵庫県市川町" ) or
        (
            PatternCount ( 住所 ; "市川町" ) and
            Position ( 住所 ; "市川町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "氷上郡市島町" ) or     // 兵庫県氷上郡市島町（現・丹波市）
        PatternCount ( 住所 ; "兵庫県市島町" ) or
        (
            PatternCount ( 住所 ; "上市町" ) and
            Position ( 住所 ; "上市町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "鹿足郡六日市町" ) or     // 島根県鹿足郡六日市町（現・吉賀町）
        PatternCount ( 住所 ; "島根県六日市町" ) or
        (
            PatternCount ( 住所 ; "六日市町" ) and
            Position ( 住所 ; "六日市町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "阿波郡市場町" ) or     // 徳島県阿波郡市場町（現・阿波市）
        PatternCount ( 住所 ; "徳島県市場町" ) or
        (
            PatternCount ( 住所 ; "市場町" ) and
            Position ( 住所 ; "市場町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "香美郡野市町" ) or     // 高知県香美郡野市町
        PatternCount ( 住所 ; "高知県野市町" ) or
        (
            PatternCount ( 住所 ; "野市町" ) and
            Position ( 住所 ; "野市町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "西多摩郡五日市町" ) or     // 東京都西多摩郡五日市町（現・あきる野市）
        PatternCount ( 住所 ; "東京都五日市町" ) or
        (
            PatternCount ( 住所 ; "五日市町" ) and
            Position ( 住所 ; "五日市町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "佐伯郡廿日市町" ) or     // 広島県佐伯郡廿日市町（現・廿日市市）
        PatternCount ( 住所 ; "広島県廿日市町" ) or
        (
            PatternCount ( 住所 ; "廿日市町" ) and
            Position ( 住所 ; "廿日市町" ; 1 ; 1 ) = 1
        ) or


        PatternCount ( 住所 ; "柴田郡村田町" ) or     // 宮城県柴田郡村田町
        PatternCount ( 住所 ; "宮城県村田町" ) or
        (
            PatternCount ( 住所 ; "村田町" ) and
            Position ( 住所 ; "村田町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "佐波郡玉村町" ) or     // 群馬県佐波郡玉村町
        PatternCount ( 住所 ; "群馬県玉村町" ) or
        (
            PatternCount ( 住所 ; "玉村町" ) and
            Position ( 住所 ; "玉村町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "中蒲原郡村松町" ) or     // 新潟県中蒲原郡村松町
        PatternCount ( 住所 ; "新潟県村松町" ) or
        (
            PatternCount ( 住所 ; "村松町" ) and
            Position ( 住所 ; "村松町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "恵那郡岩村町" ) or     // 岐阜県恵那郡岩村町（現・恵那市）
        PatternCount ( 住所 ; "岐阜県岩村町" ) or
        (
            PatternCount ( 住所 ; "岩村町" ) and
            Position ( 住所 ; "岩村町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "美方郡村岡町" ) or     // 兵庫県美方郡村岡町（現・美方郡香美町）
        PatternCount ( 住所 ; "兵庫県村岡町" ) or
        (
            PatternCount ( 住所 ; "村岡町" ) and
            Position ( 住所 ; "村岡町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "東宇和郡野村町" ) or     // 愛媛県東宇和郡野村町（現・西予市）
        PatternCount ( 住所 ; "愛媛県野村町" ) or
        (
            PatternCount ( 住所 ; "野村町" ) and
            Position ( 住所 ; "野村町" ; 1 ; 1 ) = 1
        ) or

        PatternCount ( 住所 ; "富良野町" ) ;     //

            Left ( ADDRESS ; T ) ;

        // 村名に「市」が含まれる
        PatternCount ( 住所 ; "北津軽郡市浦村" ) or     // 青森県北津軽郡市浦村（現・五所川原市）
        PatternCount ( 住所 ; "青森県市浦村" ) or
        (
            PatternCount ( 住所 ; "市浦村" ) and
            Position ( 住所 ; "市浦村" ; 1 ; 1 ) = 1
        ) ;

            Left ( ADDRESS ; V ) ;

        // 町名に「町」が含まれる
        PatternCount ( 住所 ; "杵島郡大町町" ) or     // 佐賀県杵島郡大町町
        PatternCount ( 住所 ; "佐賀県大町町" ) or
        (
            PatternCount ( 住所 ; "大町町" ) and
            Position ( 住所 ; "大町町" ; 1 ; 1 ) = 1
        ) or
        PatternCount ( 住所 ; "北松浦郡鹿町町" ) or     // 長崎県北松浦郡鹿町町
        PatternCount ( 住所 ; "長崎県鹿町町" ) or
        (
            PatternCount ( 住所 ; "鹿町町" ) and
            Position ( 住所 ; "鹿町町" ; 1 ; 1 ) = 1
        ) ;

            Left (
                ADDRESS ;
                Position ( ADDRESS ; "町" ; 1 ; 2 )
            ) ;

        // 郡名に「市」が含まれる町（北海道余市郡・奈良県高市郡）
        PatternCount ( 住所 ; "余市郡仁木町" ) or     // 北海道余市郡仁木町
        PatternCount ( 住所 ; "高市郡高取町" ) ;     // 奈良県高市郡高取町

            Left ( ADDRESS ; T ) ;

        // 郡名に「市」が含まれる村（北海道余市郡・奈良県高市郡）
        PatternCount ( 住所 ; "余市郡赤井川村" ) or     // 北海道余市郡赤井川村
        PatternCount ( 住所 ; "高市郡明日香村" ) ;     // 奈良県高市郡明日香村

            Left ( ADDRESS ; V ) ;

        // 郡名に「村」が含まれる村（福島県田村郡）
        PatternCount ( 住所 ; "田村郡都路村" ) ;

            Left (
                ADDRESS ;
                Position ( ADDRESS ; "村" ; 1 ; 2 )
            ) ;

        // 郡名に「村」が含まれる町（山形県東村山郡・山形県西村山郡・山形県北村山郡・福島県田村郡）
        PatternCount ( 住所 ; "東村山郡" ) or
        PatternCount ( 住所 ; "西村山郡" ) or
        PatternCount ( 住所 ; "北村山郡" ) or
        PatternCount ( 住所 ; "田村郡" ) ;

            Left ( ADDRESS ; T ) ;

        // 市を優先させるもの
        PatternCount ( 住所 ; "村山市" ) or     // 山形県
        PatternCount ( 住所 ; "原町市" ) or     // 福島県（現・南相馬市）
        PatternCount ( 住所 ; "田村市" ) or     // 福島県
        PatternCount ( 住所 ; "町田市" ) or     // 東京都
        PatternCount ( 住所 ; "東村山市" ) or     // 東京都
        PatternCount ( 住所 ; "武蔵村山市" ) or     // 東京都
        PatternCount ( 住所 ; "羽村市" ) or     // 東京都
        PatternCount ( 住所 ; "十日町市" ) or     // 新潟県
        PatternCount ( 住所 ; "村上市" ) or     // 新潟県
        PatternCount ( 住所 ; "大町市" ) or     // 長野県
        PatternCount ( 住所 ; "中村市" ) or     // 高知県（現・四万十市）
        PatternCount ( 住所 ; "大村市" ) or     // 長崎県
        PatternCount ( 住所 ; "郡山市" ) or     // 福島県
        PatternCount ( 住所 ; "郡上市" ) or     // 岐阜県
        PatternCount ( 住所 ; "蒲郡市" ) or     // 愛知県
        PatternCount ( 住所 ; "大和郡山市" ) or     // 奈良県
        PatternCount ( 住所 ; "小郡市" ) or     // 福岡県
        PatternCount ( 住所 ; "向日町市" ) ; // 京都府向日市の誤り

            Left ( ADDRESS ; C ) ;

        // 区を優先させるもの
        ( PatternCount ( 住所 ; "札幌市" ) and PatternCount ( 住所 ; "区" ) ) or
        ( PatternCount ( 住所 ; "仙台市" ) and PatternCount ( 住所 ; "区" ) ) or
        ( PatternCount ( 住所 ; "横浜市" ) and PatternCount ( 住所 ; "区" ) ) or
        ( PatternCount ( 住所 ; "川崎市" ) and PatternCount ( 住所 ; "区" ) ) or
        ( PatternCount ( 住所 ; "名古屋市" ) and PatternCount ( 住所 ; "区" ) ) or
        ( PatternCount ( 住所 ; "中村区" ) ) or     // 村・町のつく区
        ( PatternCount ( 住所 ; "京都市" ) and PatternCount ( 住所 ; "区" ) ) or
        ( PatternCount ( 住所 ; "大阪市" ) and PatternCount ( 住所 ; "区" ) ) or
        ( PatternCount ( 住所 ; "神戸市" ) and PatternCount ( 住所 ; "区" ) ) or
        ( PatternCount ( 住所 ; "広島市" ) and PatternCount ( 住所 ; "区" ) ) or
        ( PatternCount ( 住所 ; "北九州市" ) and PatternCount ( 住所 ; "区" ) ) or
        ( PatternCount ( 住所 ; "福岡市" ) and PatternCount ( 住所 ; "区" ) ) or
        ( PatternCount ( 住所 ; "千葉市" ) and PatternCount ( 住所 ; "区" ) ) or
        ( PatternCount ( 住所 ; "さいたま市" ) and PatternCount ( 住所 ; "区" ) ) or
        ( PatternCount ( 住所 ; "静岡市" ) and PatternCount ( 住所 ; "区" ) ) or
        ( PatternCount ( 住所 ; "堺市" ) and PatternCount ( 住所 ; "区" ) ) or      // 2006.04.01
        ( PatternCount ( 住所 ; "新潟市" ) and PatternCount ( 住所 ; "区" ) ) or       // 2007.04.01
        ( PatternCount ( 住所 ; "浜松市" ) and PatternCount ( 住所 ; "区" ) ) or       // 2007.04.01
        ( PatternCount ( 住所 ; "岡山市" ) and PatternCount ( 住所 ; "区" ) ) or       // 2009.04.01

        ( PREF = "東京都" and PatternCount ( 住所 ; "区" ) ) or
        Left ( 住所 ; 4 ) = "千代田区" or
        Left ( 住所 ; 3 ) = "中央区" or
        Left ( 住所 ; 2 ) = "港区" or
        Left ( 住所 ; 3 ) = "新宿区" or
        Left ( 住所 ; 3 ) = "文京区" or
        Left ( 住所 ; 3 ) = "台東区" or
        Left ( 住所 ; 3 ) = "墨田区" or
        Left ( 住所 ; 3 ) = "江東区" or
        Left ( 住所 ; 3 ) = "品川区" or
        Left ( 住所 ; 3 ) = "目黒区" or
        Left ( 住所 ; 3 ) = "大田区" or
        Left ( 住所 ; 4 ) = "世田谷区" or
        Left ( 住所 ; 3 ) = "渋谷区" or
        Left ( 住所 ; 3 ) = "中野区" or
        Left ( 住所 ; 3 ) = "杉並区" or
        Left ( 住所 ; 3 ) = "豊島区" or
        Left ( 住所 ; 2 ) = "北区" or
        Left ( 住所 ; 3 ) = "荒川区" or
        Left ( 住所 ; 3 ) = "板橋区" or
        Left ( 住所 ; 3 ) = "練馬区" or
        Left ( 住所 ; 3 ) = "足立区" or
        Left ( 住所 ; 3 ) = "葛飾区" or
        Left ( 住所 ; 4 ) = "江戸川区" ;

            Left ( ADDRESS ; K ) ;

        // 市の後に町がくる場合、市を優先
        PatternCount ( 住所 ; "市" ) and
        PatternCount ( 住所 ; "町" ) and
        C < T ;
            Left ( ADDRESS ; C ) ;

        // 町の後に市がくる場合、町を優先
        PatternCount ( 住所 ; "町" ) and
        PatternCount ( 住所 ; "市" ) and
        T < C ;
            Left ( ADDRESS ; T ) ;

        // 市の後に村がくる場合、市を優先
        PatternCount ( 住所 ; "市" ) and
        PatternCount ( 住所 ; "村" ) and
        C < V ;
            Left ( ADDRESS ; C ) ;

        // 村の後に市がくる場合、村を優先
        PatternCount ( 住所 ; "村" ) and
        PatternCount ( 住所 ; "市" ) and
        V < C ;
            Left ( ADDRESS ; V ) ;

        // 町の後に村がくる場合、町を優先
        PatternCount ( 住所 ; "町" ) and
        PatternCount ( 住所 ; "村" ) and
        T < V ;
            Left ( ADDRESS ; T ) ;

        // 村の後に町がくる場合、村を優先
        PatternCount ( 住所 ; "村" ) and
        PatternCount ( 住所 ; "町" ) and
        V < T ;
            Left ( ADDRESS ; V ) ;

        // 市がある場合
        PatternCount ( 住所 ; "市" ) ;
            Left ( ADDRESS ; C ) ;

        // 町がある場合
        PatternCount ( 住所 ; "町" ) ;
            Left ( ADDRESS ; T ) ;

        // 村がある場合
        PatternCount ( 住所 ; "村" ) ;
            Left (  ADDRESS ; V ) ;

        // 区がある場合
        PatternCount ( 住所 ; "区" ) ;
            Left (  ADDRESS ; K ) ;

        // "町"・"村"が抜けてしまい"郡"だけがある場合
        PatternCount ( 住所 ; "郡" ) ;
            Left (  ADDRESS ; G ) ;

    )
)

Pref ( 住所 )

Mon, 17 Jan 2011 06:32:48 GMT

// 作者 : 社本修司
// 概要 : 住所から都道府県名を返します。
// カスタム関数    Pref ( 住所 )

/*==============================================================

  カスタム関数    Pref ( 住所 )

  CopyRight©2004-2006,SHAMOTO Syuji


住所から都道府県名を返します。

このカスタム関数を引用するに当たっては、必ずコメントも一緒に引用してください。

=============================================================*/

Case (
    PatternCount ( "北海道青森県岩手県宮城県秋田県山形県福島県茨城県栃木県群馬県埼玉県千葉県東京都新潟県富山県石川県福井県山梨県長野県岐阜県静岡県愛知県 " & "三重県滋賀県京都府大阪府兵庫県奈良県鳥取県島根県岡山県広島県山口県徳島県香川県愛媛県高知県福岡県佐賀県長崎県熊本県大分県宮崎県沖縄県 " ; Left ( 住所 ; 3 ) ) = 1;
        Left ( 住所 ; 3 ) ;

    PatternCount ( "神奈川県和歌山県鹿児島県 " ; Left ( 住所 ; 4 ) ) = 1 ;
        Left ( 住所 ; 4 )
)

DECtoHEX ( num )

Mon, 17 Jan 2011 06:32:55 GMT

// 作者 : 平松　晋介
// 概要 : 10進数を１６進数へ変換します。
// カスタム関数 DECtoHEX ( num )

Case (
num < 16 ; "" ;
DECtoHEX ( Int ( num / 16 ) )
)
& Choose ( Mod ( num ; 16 ) ; "0"; "1" ; "2" ; "3" ; "4" ; "5" ; "6" ; "7" ; "8" ; "9" ; "a" ; "b" ; "c" ; "d" ; "e" ; "f" )

JIS ( char )

Mon, 17 Jan 2011 06:32:55 GMT

// 作者 : 平松　晋介
// 概要 : 文字を、JISコードへ変換します
// カスタム関数 JIS ( char )

Case (
char = "\"" ; 34 ;
char = "\\" ; 92 ;
Exact ( char ; "◯" ) ; 8830 ;
PatternCount ( "0123456789" ; char ) ; 47 + Position ( "0123456789" ; char ; 1 ; 1 ) ;
PatternCount ( "ABCDEFGHIJKLMNOPQRSTUVWXYZ" ; char ) ; 64 + Position ( "ABCDEFGHIJKLMNOPQRSTUVWXYZ" ; char ; 1 ; 1 ) + If ( Exact ( char ; Upper ( char ) ) ; 0 ; 32 ) ;
PatternCount ( "ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ" ; char ) ; 9024 + Position ( "ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ" ; char ; 1 ; 1 ) + If ( Exact ( char ; Upper ( char ) ) ; 0 ; 32 ) ;
PatternCount ( "ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ" ; char ) ; 9760 + Position ( "ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ" ; char ; 1 ; 1 ) + If ( Exact ( char ; Upper ( char ) ) ; 0 ; 32 ) ;
PatternCount ( "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ" ; char ) ; 10016 + Position ( "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ" ; char ; 1 ; 1 ) + If ( Exact ( char ; Upper ( char ) ) ; 0 ; 48 ) ;
PatternCount ( "─│┌┐┘└├┬┤┴┼━┃┏┓┛┗┣┳┫┻╋┠┯┨┷┿┝┰┥┸╂" ; char ) ; 10272 + Position ( "─│┌┐┘└├┬┤┴┼━┃┏┓┛┗┣┳┫┻╋┠┯┨┷┿┝┰┥┸╂" ; char ; 1 ; 1 ) ;
PatternCount ( " ! #$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[¥]^_`abcdefghijklmnopqrstuvwxyz{|}~]]>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[¥]^_`abcdefghijklmnopqrstuvwxyz{|}~]]> PatternCount ( "　、。，．・：；？！゛゜´｀¨＾￣＿ヽヾゝゞ〃仝々〆〇ー—‐／＼〜‖｜…‥‘’\　（）〔〕［］｛｝〈〉《》「」『』【】＋−±×÷＝≠＜＞≦≧∞∴♂♀°′″℃￥＄¢£％＃＆＊＠§☆★○●◎◇" ; char ) ; 8480 + Position ( "　、。，．・：；？！゛゜´｀¨＾￣＿ヽヾゝゞ〃仝々〆〇ー—‐／＼〜‖｜…‥‘’\　（）〔〕［］｛｝〈〉《》「」『』【】＋−±×÷＝≠＜＞≦≧∞∴♂♀°′″℃￥＄¢£％＃＆＊＠§☆★○●◎◇" ; char ; 1 ; 1 ) ;
PatternCount ( "◆□■△▲▽▼※〒→←↑↓〓'　-~〳〴〵〻〼ヿゟ∈∋⊆⊇⊂⊃∪∩⊄⊅⊊⊋∉∅⌅⌆∧∨¬⇒⇔∀∃⊕⊖⊗∥∦｟｠〘〙〖〗∠⊥⌒∂∇≡≒≪≫√∽∝∵∫∬≢≃≅≈≶≷↔Å‰♯♭♪†‡¶" ; char ) ; 8736 + Position ( "◆□■△▲▽▼※〒→←↑↓〓'　-~〳〴〵〻〼ヿゟ∈∋⊆⊇⊂⊃∪∩⊄⊅⊊⊋∉∅⌅⌆∧∨¬⇒⇔∀∃⊕⊖⊗∥∦｟｠〘〙〖〗∠⊥⌒∂∇≡≒≪≫√∽∝∵∫∬≢≃≅≈≶≷↔Å‰♯♭♪†‡¶♮♫♬♩◯" ; char ; 1 ; 1 ) ;
char ≤ "ｚ" ; 8992 + Position ( "▷▶◁◀↗↘↖↙⇄⇨⇦⇧⇩⤴⤵０１２３４５６７８９⦿◉〽﹆﹅◦•ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ∓ℵℏ㏋ℓ℧ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ゠–⧺⧻" ; char ; 1 ; 1 ) ;
char ≤ "ン" ; 9248 + Position ( "ぁあぃいぅうぇえぉおかがきぎくぐけげこごさざしじすずせぜそぞただちぢっつづてでとどなにぬねのはばぱひびぴふぶぷへべぺほぼぽまみむめもゃやゅゆょよらりるれろゎわゐゑをんァアィイゥウェエォオカガキギクグケゲコゴサザシジスズセゼソゾタダチヂッツヅテデトドナニヌネノハバパヒビピフブプヘベペホボポマミムメモャヤュユョヨラリルレロヮワヰヱヲンヴヵヶ" ; char ; 1 ; 1 ) + If ( Exact ( char ; Katakana ( char ) ) ; 173 ; 0 ) ;
char ≤ "╂" ; 10272 + Position ( "─│┌┐┘└├┬┤┴┼━┃┏┓┛┗┣┳┫┻╋┠┯┨┷┿┝┰┥┸╂㉑㉒㉓㉔㉕㉖㉗㉘㉙㉚㉛㉜㉝㉞㉟㊱㊲㊳㊴㊵㊶㊷㊸㊹㊺㊻㊼㊽㊾㊿" ; char ; 1 ; 1 ) ;
char ≤ "蔭" ; 12320 + Position ( "亜唖娃阿哀愛挨姶逢葵茜穐悪握渥旭葦芦鯵梓圧斡扱宛姐虻飴絢綾鮎或粟袷安庵按暗案闇鞍杏以伊位依偉囲夷委威尉惟意慰易椅為畏異移維緯胃萎衣謂違遺医井亥域育郁磯一壱溢逸稲茨芋鰯允印咽員因姻引飲淫胤蔭" ; char ; 1 ; 1 ) ;
char ≤ "応" ; 12576 + Position ( "院陰隠韻吋右宇烏羽迂雨卯鵜窺丑碓臼渦嘘唄欝蔚鰻姥厩浦瓜閏噂云運雲荏餌叡営嬰影映曳栄永泳洩瑛盈穎頴英衛詠鋭液疫益駅悦謁越閲榎厭円園堰奄宴延怨掩援沿演炎焔煙燕猿縁艶苑薗遠鉛鴛塩於汚甥凹央奥往応" ; char ; 1 ; 1 ) ;
char ≤ "改" ; 12832 + Position ( "押旺横欧殴王翁襖鴬鴎黄岡沖荻億屋憶臆桶牡乙俺卸恩温穏音下化仮何伽価佳加可嘉夏嫁家寡科暇果架歌河火珂禍禾稼箇花苛茄荷華菓蝦課嘩貨迦過霞蚊俄峨我牙画臥芽蛾賀雅餓駕介会解回塊壊廻快怪悔恢懐戒拐改" ; char ; 1 ; 1 ) ;
char ≤ "萱" ; 13088 + Position ( "魁晦械海灰界皆絵芥蟹開階貝凱劾外咳害崖慨概涯碍蓋街該鎧骸浬馨蛙垣柿蛎鈎劃嚇各廓拡撹格核殻獲確穫覚角赫較郭閣隔革学岳楽額顎掛笠樫橿梶鰍潟割喝恰括活渇滑葛褐轄且鰹叶椛樺鞄株兜竃蒲釜鎌噛鴨栢茅萱" ; char ; 1 ; 1 ) ;
char ≤ "棄" ; 13344 + Position ( "粥刈苅瓦乾侃冠寒刊勘勧巻喚堪姦完官寛干幹患感慣憾換敢柑桓棺款歓汗漢澗潅環甘監看竿管簡緩缶翰肝艦莞観諌貫還鑑間閑関陥韓館舘丸含岸巌玩癌眼岩翫贋雁頑顔願企伎危喜器基奇嬉寄岐希幾忌揮机旗既期棋棄" ; char ; 1 ; 1 ) ;
char ≤ "京" ; 13600 + Position ( "機帰毅気汽畿祈季稀紀徽規記貴起軌輝飢騎鬼亀偽儀妓宜戯技擬欺犠疑祇義蟻誼議掬菊鞠吉吃喫桔橘詰砧杵黍却客脚虐逆丘久仇休及吸宮弓急救朽求汲泣灸球究窮笈級糾給旧牛去居巨拒拠挙渠虚許距鋸漁禦魚亨享京" ; char ; 1 ; 1 ) ;
char ≤ "屈" ; 13856 + Position ( "供侠僑兇競共凶協匡卿叫喬境峡強彊怯恐恭挟教橋況狂狭矯胸脅興蕎郷鏡響饗驚仰凝尭暁業局曲極玉桐粁僅勤均巾錦斤欣欽琴禁禽筋緊芹菌衿襟謹近金吟銀九倶句区狗玖矩苦躯駆駈駒具愚虞喰空偶寓遇隅串櫛釧屑屈" ; char ; 1 ; 1 ) ;
char ≤ "捲" ; 14112 + Position ( "掘窟沓靴轡窪熊隈粂栗繰桑鍬勲君薫訓群軍郡卦袈祁係傾刑兄啓圭珪型契形径恵慶慧憩掲携敬景桂渓畦稽系経継繋罫茎荊蛍計詣警軽頚鶏芸迎鯨劇戟撃激隙桁傑欠決潔穴結血訣月件倹倦健兼券剣喧圏堅嫌建憲懸拳捲" ; char ; 1 ; 1 ) ;
char ≤ "向" ; 14368 + Position ( "検権牽犬献研硯絹県肩見謙賢軒遣鍵険顕験鹸元原厳幻弦減源玄現絃舷言諺限乎個古呼固姑孤己庫弧戸故枯湖狐糊袴股胡菰虎誇跨鈷雇顧鼓五互伍午呉吾娯後御悟梧檎瑚碁語誤護醐乞鯉交佼侯候倖光公功効勾厚口向" ; char ; 1 ; 1 ) ;
char ≤ "込" ; 14624 + Position ( "后喉坑垢好孔孝宏工巧巷幸広庚康弘恒慌抗拘控攻昂晃更杭校梗構江洪浩港溝甲皇硬稿糠紅紘絞綱耕考肯肱腔膏航荒行衡講貢購郊酵鉱砿鋼閤降項香高鴻剛劫号合壕拷濠豪轟麹克刻告国穀酷鵠黒獄漉腰甑忽惚骨狛込" ; char ; 1 ; 1 ) ;
char ≤ "刷" ; 14880 + Position ( "此頃今困坤墾婚恨懇昏昆根梱混痕紺艮魂些佐叉唆嵯左差査沙瑳砂詐鎖裟坐座挫債催再最哉塞妻宰彩才採栽歳済災采犀砕砦祭斎細菜裁載際剤在材罪財冴坂阪堺榊肴咲崎埼碕鷺作削咋搾昨朔柵窄策索錯桜鮭笹匙冊刷" ; char ; 1 ; 1 ) ;
char ≤ "時" ; 15136 + Position ( "察拶撮擦札殺薩雑皐鯖捌錆鮫皿晒三傘参山惨撒散桟燦珊産算纂蚕讃賛酸餐斬暫残仕仔伺使刺司史嗣四士始姉姿子屍市師志思指支孜斯施旨枝止死氏獅祉私糸紙紫肢脂至視詞詩試誌諮資賜雌飼歯事似侍児字寺慈持時" ; char ; 1 ; 1 ) ;
char ≤ "周" ; 15392 + Position ( "次滋治爾璽痔磁示而耳自蒔辞汐鹿式識鴫竺軸宍雫七叱執失嫉室悉湿漆疾質実蔀篠偲柴芝屡蕊縞舎写射捨赦斜煮社紗者謝車遮蛇邪借勺尺杓灼爵酌釈錫若寂弱惹主取守手朱殊狩珠種腫趣酒首儒受呪寿授樹綬需囚収周" ; char ; 1 ; 1 ) ;
char ≤ "償" ; 15648 + Position ( "宗就州修愁拾洲秀秋終繍習臭舟蒐衆襲讐蹴輯週酋酬集醜什住充十従戎柔汁渋獣縦重銃叔夙宿淑祝縮粛塾熟出術述俊峻春瞬竣舜駿准循旬楯殉淳準潤盾純巡遵醇順処初所暑曙渚庶緒署書薯藷諸助叙女序徐恕鋤除傷償" ; char ; 1 ; 1 ) ;
char ≤ "飾" ; 15904 + Position ( "勝匠升召哨商唱嘗奨妾娼宵将小少尚庄床廠彰承抄招掌捷昇昌昭晶松梢樟樵沼消渉湘焼焦照症省硝礁祥称章笑粧紹肖菖蒋蕉衝裳訟証詔詳象賞醤鉦鍾鐘障鞘上丈丞乗冗剰城場壌嬢常情擾条杖浄状畳穣蒸譲醸錠嘱埴飾" ; char ; 1 ; 1 ) ;
char ≤ "裾" ; 16160 + Position ( "拭植殖燭織職色触食蝕辱尻伸信侵唇娠寝審心慎振新晋森榛浸深申疹真神秦紳臣芯薪親診身辛進針震人仁刃塵壬尋甚尽腎訊迅陣靭笥諏須酢図厨逗吹垂帥推水炊睡粋翠衰遂酔錐錘随瑞髄崇嵩数枢趨雛据杉椙菅頗雀裾" ; char ; 1 ; 1 ) ;
char ≤ "線" ; 16416 + Position ( "澄摺寸世瀬畝是凄制勢姓征性成政整星晴棲栖正清牲生盛精聖声製西誠誓請逝醒青静斉税脆隻席惜戚斥昔析石積籍績脊責赤跡蹟碩切拙接摂折設窃節説雪絶舌蝉仙先千占宣専尖川戦扇撰栓栴泉浅洗染潜煎煽旋穿箭線" ; char ; 1 ; 1 ) ;
char ≤ "憎" ; 16672 + Position ( "繊羨腺舛船薦詮賎践選遷銭銑閃鮮前善漸然全禅繕膳糎噌塑岨措曾曽楚狙疏疎礎祖租粗素組蘇訴阻遡鼠僧創双叢倉喪壮奏爽宋層匝惣想捜掃挿掻操早曹巣槍槽漕燥争痩相窓糟総綜聡草荘葬蒼藻装走送遭鎗霜騒像増憎" ; char ; 1 ; 1 ) ;
char ≤ "只" ; 16928 + Position ( "臓蔵贈造促側則即息捉束測足速俗属賊族続卒袖其揃存孫尊損村遜他多太汰詑唾堕妥惰打柁舵楕陀駄騨体堆対耐岱帯待怠態戴替泰滞胎腿苔袋貸退逮隊黛鯛代台大第醍題鷹滝瀧卓啄宅托択拓沢濯琢託鐸濁諾茸凧蛸只" ; char ; 1 ; 1 ) ;
char ≤ "寵" ; 17184 + Position ( "叩但達辰奪脱巽竪辿棚谷狸鱈樽誰丹単嘆坦担探旦歎淡湛炭短端箪綻耽胆蛋誕鍛団壇弾断暖檀段男談値知地弛恥智池痴稚置致蜘遅馳築畜竹筑蓄逐秩窒茶嫡着中仲宙忠抽昼柱注虫衷註酎鋳駐樗瀦猪苧著貯丁兆凋喋寵" ; char ; 1 ; 1 ) ;
char ≤ "逓" ; 17440 + Position ( "帖帳庁弔張彫徴懲挑暢朝潮牒町眺聴脹腸蝶調諜超跳銚長頂鳥勅捗直朕沈珍賃鎮陳津墜椎槌追鎚痛通塚栂掴槻佃漬柘辻蔦綴鍔椿潰坪壷嬬紬爪吊釣鶴亭低停偵剃貞呈堤定帝底庭廷弟悌抵挺提梯汀碇禎程締艇訂諦蹄逓" ; char ; 1 ; 1 ) ;
char ≤ "到" ; 17696 + Position ( "邸鄭釘鼎泥摘擢敵滴的笛適鏑溺哲徹撤轍迭鉄典填天展店添纏甜貼転顛点伝殿澱田電兎吐堵塗妬屠徒斗杜渡登菟賭途都鍍砥砺努度土奴怒倒党冬凍刀唐塔塘套宕島嶋悼投搭東桃梼棟盗淘湯涛灯燈当痘祷等答筒糖統到" ; char ; 1 ; 1 ) ;
char ≤ "入" ; 17952 + Position ( "董蕩藤討謄豆踏逃透鐙陶頭騰闘働動同堂導憧撞洞瞳童胴萄道銅峠鴇匿得徳涜特督禿篤毒独読栃橡凸突椴届鳶苫寅酉瀞噸屯惇敦沌豚遁頓呑曇鈍奈那内乍凪薙謎灘捺鍋楢馴縄畷南楠軟難汝二尼弐迩匂賑肉虹廿日乳入" ; char ; 1 ; 1 ) ;
char ≤ "麦" ; 18208 + Position ( "如尿韮任妊忍認濡禰祢寧葱猫熱年念捻撚燃粘乃廼之埜嚢悩濃納能脳膿農覗蚤巴把播覇杷波派琶破婆罵芭馬俳廃拝排敗杯盃牌背肺輩配倍培媒梅楳煤狽買売賠陪這蝿秤矧萩伯剥博拍柏泊白箔粕舶薄迫曝漠爆縛莫駁麦" ; char ; 1 ; 1 ) ;
char ≤ "美" ; 18464 + Position ( "函箱硲箸肇筈櫨幡肌畑畠八鉢溌発醗髪伐罰抜筏閥鳩噺塙蛤隼伴判半反叛帆搬斑板氾汎版犯班畔繁般藩販範釆煩頒飯挽晩番盤磐蕃蛮匪卑否妃庇彼悲扉批披斐比泌疲皮碑秘緋罷肥被誹費避非飛樋簸備尾微枇毘琵眉美" ; char ; 1 ; 1 ) ;
char ≤ "服" ; 18720 + Position ( "鼻柊稗匹疋髭彦膝菱肘弼必畢筆逼桧姫媛紐百謬俵彪標氷漂瓢票表評豹廟描病秒苗錨鋲蒜蛭鰭品彬斌浜瀕貧賓頻敏瓶不付埠夫婦富冨布府怖扶敷斧普浮父符腐膚芙譜負賦赴阜附侮撫武舞葡蕪部封楓風葺蕗伏副復幅服" ; char ; 1 ; 1 ) ;
char ≤ "朋" ; 18976 + Position ( "福腹複覆淵弗払沸仏物鮒分吻噴墳憤扮焚奮粉糞紛雰文聞丙併兵塀幣平弊柄並蔽閉陛米頁僻壁癖碧別瞥蔑箆偏変片篇編辺返遍便勉娩弁鞭保舗鋪圃捕歩甫補輔穂募墓慕戊暮母簿菩倣俸包呆報奉宝峰峯崩庖抱捧放方朋" ; char ; 1 ; 1 ) ;
char ≤ "満" ; 19232 + Position ( "法泡烹砲縫胞芳萌蓬蜂褒訪豊邦鋒飽鳳鵬乏亡傍剖坊妨帽忘忙房暴望某棒冒紡肪膨謀貌貿鉾防吠頬北僕卜墨撲朴牧睦穆釦勃没殆堀幌奔本翻凡盆摩磨魔麻埋妹昧枚毎哩槙幕膜枕鮪柾鱒桝亦俣又抹末沫迄侭繭麿万慢満" ; char ; 1 ; 1 ) ;
char ≤ "癒" ; 19488 + Position ( "漫蔓味未魅巳箕岬密蜜湊蓑稔脈妙粍民眠務夢無牟矛霧鵡椋婿娘冥名命明盟迷銘鳴姪牝滅免棉綿緬面麺摸模茂妄孟毛猛盲網耗蒙儲木黙目杢勿餅尤戻籾貰問悶紋門匁也冶夜爺耶野弥矢厄役約薬訳躍靖柳薮鑓愉愈油癒" ; char ; 1 ; 1 ) ;
char ≤ "璃" ; 19744 + Position ( "諭輸唯佑優勇友宥幽悠憂揖有柚湧涌猶猷由祐裕誘遊邑郵雄融夕予余与誉輿預傭幼妖容庸揚揺擁曜楊様洋溶熔用窯羊耀葉蓉要謡踊遥陽養慾抑欲沃浴翌翼淀羅螺裸来莱頼雷洛絡落酪乱卵嵐欄濫藍蘭覧利吏履李梨理璃" ; char ; 1 ; 1 ) ;
char ≤ "聯" ; 20000 + Position ( "痢裏裡里離陸律率立葎掠略劉流溜琉留硫粒隆竜龍侶慮旅虜了亮僚両凌寮料梁涼猟療瞭稜糧良諒遼量陵領力緑倫厘林淋燐琳臨輪隣鱗麟瑠塁涙累類令伶例冷励嶺怜玲礼苓鈴隷零霊麗齢暦歴列劣烈裂廉恋憐漣煉簾練聯" ; char ; 1 ; 1 ) ;
char ≤ "腕" ; 20256 + Position ( "蓮連錬呂魯櫓炉賂路露労婁廊弄朗楼榔浪漏牢狼篭老聾蝋郎六麓禄肋録論倭和話歪賄脇惑枠鷲亙亘鰐詫藁蕨椀湾碗腕" ; char ; 1 ; 1 ) ;
char ≤ "傲" ; 20512 + Position ( "弌丐丕个丱丶丼丿乂乖乘亂亅豫亊舒弍于亞亟亠亢亰亳亶从仍仄仆仂仗仞仭仟价伉佚估佛佝佗佇佶侈侏侘佻佩佰侑佯來侖儘俔俟俎俘俛俑俚俐俤俥倚倨倔倪倥倅伜俶倡倩倬俾俯們倆偃假會偕偐偈做偖偬偸傀傚傅傴傲" ; char ; 1 ; 1 ) ;
char ≤ "辨" ; 20768 + Position ( "僉僊傳僂僖僞僥僭僣僮價僵儉儁儂儖儕儔儚儡儺儷儼儻儿兀兒兌兔兢竸兩兪兮冀冂囘册冉冏冑冓冕冖冤冦冢冩冪冫决冱冲冰况冽凅凉凛几處凩凭凰凵凾刄刋刔刎刧刪刮刳刹剏剄剋剌剞剔剪剴剩剳剿剽劍劔劒剱劈劑辨" ; char ; 1 ; 1 ) ;
char ≤ "咨" ; 21024 + Position ( "辧劬劭劼劵勁勍勗勞勣勦飭勠勳勵勸勹匆匈甸匍匐匏匕匚匣匯匱匳匸區卆卅丗卉卍凖卞卩卮夘卻卷厂厖厠厦厥厮厰厶參簒雙叟曼燮叮叨叭叺吁吽呀听吭吼吮吶吩吝呎咏呵咎呟呱呷呰咒呻咀呶咄咐咆哇咢咸咥咬哄哈咨" ; char ; 1 ; 1 ) ;
char ≤ "圉" ; 21280 + Position ( "咫哂咤咾咼哘哥哦唏唔哽哮哭哺哢唹啀啣啌售啜啅啖啗唸唳啝喙喀咯喊喟啻啾喘喞單啼喃喩喇喨嗚嗅嗟嗄嗜嗤嗔嘔嗷嘖嗾嗽嘛嗹噎噐營嘴嘶嘲嘸噫噤嘯噬噪嚆嚀嚊嚠嚔嚏嚥嚮嚶嚴囂嚼囁囃囀囈囎囑囓囗囮囹圀囿圄圉" ; char ; 1 ; 1 ) ;
char ≤ "奩" ; 21536 + Position ( "圈國圍圓團圖嗇圜圦圷圸坎圻址坏坩埀垈坡坿垉垓垠垳垤垪垰埃埆埔埒埓堊埖埣堋堙堝塲堡塢塋塰毀塒堽塹墅墹墟墫墺壞墻墸墮壅壓壑壗壙壘壥壜壤壟壯壺壹壻壼壽夂夊夐夛梦夥夬夭夲夸夾竒奕奐奎奚奘奢奠奧奬奩" ; char ; 1 ; 1 ) ;
char ≤ "屓" ; 21792 + Position ( "奸妁妝佞侫妣妲姆姨姜妍姙姚娥娟娑娜娉娚婀婬婉娵娶婢婪媚媼媾嫋嫂媽嫣嫗嫦嫩嫖嫺嫻嬌嬋嬖嬲嫐嬪嬶嬾孃孅孀孑孕孚孛孥孩孰孳孵學斈孺宀它宦宸寃寇寉寔寐寤實寢寞寥寫寰寶寳尅將專對尓尠尢尨尸尹屁屆屎屓" ; char ; 1 ; 1 ) ;
char ≤ "廏" ; 22048 + Position ( "屐屏孱屬屮乢屶屹岌岑岔妛岫岻岶岼岷峅岾峇峙峩峽峺峭嶌峪崋崕崗嵜崟崛崑崔崢崚崙崘嵌嵒嵎嵋嵬嵳嵶嶇嶄嶂嶢嶝嶬嶮嶽嶐嶷嶼巉巍巓巒巖巛巫已巵帋帚帙帑帛帶帷幄幃幀幎幗幔幟幢幤幇幵并幺麼广庠廁廂廈廐廏" ; char ; 1 ; 1 ) ;
char ≤ "悚" ; 22304 + Position ( "廖廣廝廚廛廢廡廨廩廬廱廳廰廴廸廾弃弉彝彜弋弑弖弩弭弸彁彈彌彎弯彑彖彗彙彡彭彳彷徃徂彿徊很徑徇從徙徘徠徨徭徼忖忻忤忸忱忝悳忿怡恠怙怐怩怎怱怛怕怫怦怏怺恚恁恪恷恟恊恆恍恣恃恤恂恬恫恙悁悍惧悃悚" ; char ; 1 ; 1 ) ;
char ≤ "戛" ; 22560 + Position ( "悄悛悖悗悒悧悋惡悸惠惓悴忰悽惆悵惘慍愕愆惶惷愀惴惺愃愡惻惱愍愎慇愾愨愧慊愿愼愬愴愽慂慄慳慷慘慙慚慫慴慯慥慱慟慝慓慵憙憖憇憬憔憚憊憑憫憮懌懊應懷懈懃懆憺懋罹懍懦懣懶懺懴懿懽懼懾戀戈戉戍戌戔戛" ; char ; 1 ; 1 ) ;
char ≤ "撼" ; 22816 + Position ( "戞戡截戮戰戲戳扁扎扞扣扛扠扨扼抂抉找抒抓抖拔抃抔拗拑抻拏拿拆擔拈拜拌拊拂拇抛拉挌拮拱挧挂挈拯拵捐挾捍搜捏掖掎掀掫捶掣掏掉掟掵捫捩掾揩揀揆揣揉插揶揄搖搴搆搓搦搶攝搗搨搏摧摯摶摎攪撕撓撥撩撈撼" ; char ; 1 ; 1 ) ;
char ≤ "暼" ; 23072 + Position ( "據擒擅擇撻擘擂擱擧舉擠擡抬擣擯攬擶擴擲擺攀擽攘攜攅攤攣攫攴攵攷收攸畋效敖敕敍敘敞敝敲數斂斃變斛斟斫斷旃旆旁旄旌旒旛旙无旡旱杲昊昃旻杳昵昶昴昜晏晄晉晁晞晝晤晧晨晟晢晰暃暈暎暉暄暘暝曁暹曉暾暼" ; char ; 1 ; 1 ) ;
char ≤ "棍" ; 23328 + Position ( "曄暸曖曚曠昿曦曩曰曵曷朏朖朞朦朧霸朮朿朶杁朸朷杆杞杠杙杣杤枉杰枩杼杪枌枋枦枡枅枷柯枴柬枳柩枸柤柞柝柢柮枹柎柆柧檜栞框栩桀桍栲桎梳栫桙档桷桿梟梏梭梔條梛梃檮梹桴梵梠梺椏梍桾椁棊椈棘椢椦棡椌棍" ; char ; 1 ; 1 ) ;
char ≤ "檣" ; 23584 + Position ( "棔棧棕椶椒椄棗棣椥棹棠棯椨椪椚椣椡棆楹楷楜楸楫楔楾楮椹楴椽楙椰楡楞楝榁楪榲榮槐榿槁槓榾槎寨槊槝榻槃榧樮榑榠榜榕榴槞槨樂樛槿權槹槲槧樅榱樞槭樔槫樊樒櫁樣樓橄樌橲樶橸橇橢橙橦橈樸樢檐檍檠檄檢檣" ; char ; 1 ; 1 ) ;
char ≤ "沾" ; 23840 + Position ( "檗蘗檻櫃櫂檸檳檬櫞櫑櫟檪櫚櫪櫻欅蘖櫺欒欖鬱欟欸欷盜欹飮歇歃歉歐歙歔歛歟歡歸歹歿殀殄殃殍殘殕殞殤殪殫殯殲殱殳殷殼毆毋毓毟毬毫毳毯麾氈氓气氛氤氣汞汕汢汪沂沍沚沁沛汾汨汳沒沐泄泱泓沽泗泅泝沮沱沾" ; char ; 1 ; 1 ) ;
char ≤ "滌" ; 24096 + Position ( "沺泛泯泙泪洟衍洶洫洽洸洙洵洳洒洌浣涓浤浚浹浙涎涕濤涅淹渕渊涵淇淦涸淆淬淞淌淨淒淅淺淙淤淕淪淮渭湮渮渙湲湟渾渣湫渫湶湍渟湃渺湎渤滿渝游溂溪溘滉溷滓溽溯滄溲滔滕溏溥滂溟潁漑灌滬滸滾漿滲漱滯漲滌" ; char ; 1 ; 1 ) ;
char ≤ "燼" ; 24352 + Position ( "漾漓滷澆潺潸澁澀潯潛濳潭澂潼潘澎澑濂潦澳澣澡澤澹濆澪濟濕濬濔濘濱濮濛瀉瀋濺瀑瀁瀏濾瀛瀚潴瀝瀘瀟瀰瀾瀲灑灣炙炒炯烱炬炸炳炮烟烋烝烙焉烽焜焙煥煕熈煦煢煌煖煬熏燻熄熕熨熬燗熹熾燒燉燔燎燠燬燧燵燼" ; char ; 1 ; 1 ) ;
char ≤ "珱" ; 24608 + Position ( "燹燿爍爐爛爨爭爬爰爲爻爼爿牀牆牋牘牴牾犂犁犇犒犖犢犧犹犲狃狆狄狎狒狢狠狡狹狷倏猗猊猜猖猝猴猯猩猥猾獎獏默獗獪獨獰獸獵獻獺珈玳珎玻珀珥珮珞璢琅瑯琥珸琲琺瑕琿瑟瑙瑁瑜瑩瑰瑣瑪瑶瑾璋璞璧瓊瓏瓔珱" ; char ; 1 ; 1 ) ;
char ≤ "癰" ; 24864 + Position ( "瓠瓣瓧瓩瓮瓲瓰瓱瓸瓷甄甃甅甌甎甍甕甓甞甦甬甼畄畍畊畉畛畆畚畩畤畧畫畭畸當疆疇畴疊疉疂疔疚疝疥疣痂疳痃疵疽疸疼疱痍痊痒痙痣痞痾痿痼瘁痰痺痲痳瘋瘍瘉瘟瘧瘠瘡瘢瘤瘴瘰瘻癇癈癆癜癘癡癢癨癩癪癧癬癰" ; char ; 1 ; 1 ) ;
char ≤ "磬" ; 25120 + Position ( "癲癶癸發皀皃皈皋皎皖皓皙皚皰皴皸皹皺盂盍盖盒盞盡盥盧盪蘯盻眈眇眄眩眤眞眥眦眛眷眸睇睚睨睫睛睥睿睾睹瞎瞋瞑瞠瞞瞰瞶瞹瞿瞼瞽瞻矇矍矗矚矜矣矮矼砌砒礦砠礪硅碎硴碆硼碚碌碣碵碪碯磑磆磋磔碾碼磅磊磬" ; char ; 1 ; 1 ) ;
char ≤ "筐" ; 25376 + Position ( "磧磚磽磴礇礒礑礙礬礫祀祠祗祟祚祕祓祺祿禊禝禧齋禪禮禳禹禺秉秕秧秬秡秣稈稍稘稙稠稟禀稱稻稾稷穃穗穉穡穢穩龝穰穹穽窈窗窕窘窖窩竈窰窶竅竄窿邃竇竊竍竏竕竓站竚竝竡竢竦竭竰笂笏笊笆笳笘笙笞笵笨笶筐" ; char ; 1 ; 1 ) ;
char ≤ "紆" ; 25632 + Position ( "筺笄筍笋筌筅筵筥筴筧筰筱筬筮箝箘箟箍箜箚箋箒箏筝箙篋篁篌篏箴篆篝篩簑簔篦篥籠簀簇簓篳篷簗簍篶簣簧簪簟簷簫簽籌籃籔籏籀籐籘籟籤籖籥籬籵粃粐粤粭粢粫粡粨粳粲粱粮粹粽糀糅糂糘糒糜糢鬻糯糲糴糶糺紆" ; char ; 1 ; 1 ) ;
char ≤ "缺" ; 25888 + Position ( "紂紜紕紊絅絋紮紲紿紵絆絳絖絎絲絨絮絏絣經綉絛綏絽綛綺綮綣綵緇綽綫總綢綯緜綸綟綰緘緝緤緞緻緲緡縅縊縣縡縒縱縟縉縋縢繆繦縻縵縹繃縷縲縺繧繝繖繞繙繚繹繪繩繼繻纃緕繽辮繿纈纉續纒纐纓纔纖纎纛纜缸缺" ; char ; 1 ; 1 ) ;
char ≤ "腋" ; 26144 + Position ( "罅罌罍罎罐网罕罔罘罟罠罨罩罧罸羂羆羃羈羇羌羔羞羝羚羣羯羲羹羮羶羸譱翅翆翊翕翔翡翦翩翳翹飜耆耄耋耒耘耙耜耡耨耿耻聊聆聒聘聚聟聢聨聳聲聰聶聹聽聿肄肆肅肛肓肚肭冐肬胛胥胙胝胄胚胖脉胯胱脛脩脣脯腋" ; char ; 1 ; 1 ) ;
char ≤ "苙" ; 26400 + Position ( "隋腆脾腓腑胼腱腮腥腦腴膃膈膊膀膂膠膕膤膣腟膓膩膰膵膾膸膽臀臂膺臉臍臑臙臘臈臚臟臠臧臺臻臾舁舂舅與舊舍舐舖舩舫舸舳艀艙艘艝艚艟艤艢艨艪艫舮艱艷艸艾芍芒芫芟芻芬苡苣苟苒苴苳苺莓范苻苹苞茆苜茉苙" ; char ; 1 ; 1 ) ;
char ≤ "蕈" ; 26656 + Position ( "茵茴茖茲茱荀茹荐荅茯茫茗茘莅莚莪莟莢莖茣莎莇莊荼莵荳荵莠莉莨菴萓菫菎菽萃菘萋菁菷萇菠菲萍萢萠莽萸蔆菻葭萪萼蕚蒄葷葫蒭葮蒂葩葆萬葯葹萵蓊葢蒹蒿蒟蓙蓍蒻蓚蓐蓁蓆蓖蒡蔡蓿蓴蔗蔘蔬蔟蔕蔔蓼蕀蕣蕘蕈" ; char ; 1 ; 1 ) ;
char ≤ "蝙" ; 26912 + Position ( "蕁蘂蕋蕕薀薤薈薑薊薨蕭薔薛藪薇薜蕷蕾薐藉薺藏薹藐藕藝藥藜藹蘊蘓蘋藾藺蘆蘢蘚蘰蘿虍乕虔號虧虱蚓蚣蚩蚪蚋蚌蚶蚯蛄蛆蚰蛉蠣蚫蛔蛞蛩蛬蛟蛛蛯蜒蜆蜈蜀蜃蛻蜑蜉蜍蛹蜊蜴蜿蜷蜻蜥蜩蜚蝠蝟蝸蝌蝎蝴蝗蝨蝮蝙" ; char ; 1 ; 1 ) ;
char ≤ "襞" ; 27168 + Position ( "蝓蝣蝪蠅螢螟螂螯蟋螽蟀蟐雖螫蟄螳蟇蟆螻蟯蟲蟠蠏蠍蟾蟶蟷蠎蟒蠑蠖蠕蠢蠡蠱蠶蠹蠧蠻衄衂衒衙衞衢衫袁衾袞衵衽袵衲袂袗袒袮袙袢袍袤袰袿袱裃裄裔裘裙裝裹褂裼裴裨裲褄褌褊褓襃褞褥褪褫襁襄褻褶褸襌褝襠襞" ; char ; 1 ; 1 ) ;
char ≤ "譫" ; 27424 + Position ( "襦襤襭襪襯襴襷襾覃覈覊覓覘覡覩覦覬覯覲覺覽覿觀觚觜觝觧觴觸訃訖訐訌訛訝訥訶詁詛詒詆詈詼詭詬詢誅誂誄誨誡誑誥誦誚誣諄諍諂諚諫諳諧諤諱謔諠諢諷諞諛謌謇謚諡謖謐謗謠謳鞫謦謫謾謨譁譌譏譎證譖譛譚譫" ; char ; 1 ; 1 ) ;
char ≤ "蹊" ; 27680 + Position ( "譟譬譯譴譽讀讌讎讒讓讖讙讚谺豁谿豈豌豎豐豕豢豬豸豺貂貉貅貊貍貎貔豼貘戝貭貪貽貲貳貮貶賈賁賤賣賚賽賺賻贄贅贊贇贏贍贐齎贓賍贔贖赧赭赱赳趁趙跂趾趺跏跚跖跌跛跋跪跫跟跣跼踈踉跿踝踞踐踟蹂踵踰踴蹊" ; char ; 1 ; 1 ) ;
char ≤ "迸" ; 27936 + Position ( "蹇蹉蹌蹐蹈蹙蹤蹠踪蹣蹕蹶蹲蹼躁躇躅躄躋躊躓躑躔躙躪躡躬躰軆躱躾軅軈軋軛軣軼軻軫軾輊輅輕輒輙輓輜輟輛輌輦輳輻輹轅轂輾轌轉轆轎轗轜轢轣轤辜辟辣辭辯辷迚迥迢迪迯邇迴逅迹迺逑逕逡逍逞逖逋逧逶逵逹迸" ; char ; 1 ; 1 ) ;
char ≤ "錮" ; 28192 + Position ( "遏遐遑遒逎遉逾遖遘遞遨遯遶隨遲邂遽邁邀邊邉邏邨邯邱邵郢郤扈郛鄂鄒鄙鄲鄰酊酖酘酣酥酩酳酲醋醉醂醢醫醯醪醵醴醺釀釁釉釋釐釖釟釡釛釼釵釶鈞釿鈔鈬鈕鈑鉞鉗鉅鉉鉤鉈銕鈿鉋鉐銜銖銓銛鉚鋏銹銷鋩錏鋺鍄錮" ; char ; 1 ; 1 ) ;
char ≤ "陞" ; 28448 + Position ( "錙錢錚錣錺錵錻鍜鍠鍼鍮鍖鎰鎬鎭鎔鎹鏖鏗鏨鏥鏘鏃鏝鏐鏈鏤鐚鐔鐓鐃鐇鐐鐶鐫鐵鐡鐺鑁鑒鑄鑛鑠鑢鑞鑪鈩鑰鑵鑷鑽鑚鑼鑾钁鑿閂閇閊閔閖閘閙閠閨閧閭閼閻閹閾闊濶闃闍闌闕闔闖關闡闥闢阡阨阮阯陂陌陏陋陷陜陞" ; char ; 1 ; 1 ) ;
char ≤ "顰" ; 28704 + Position ( "陝陟陦陲陬隍隘隕隗險隧隱隲隰隴隶隸隹雎雋雉雍襍雜霍雕雹霄霆霈霓霎霑霏霖霙霤霪霰霹霽霾靄靆靈靂靉靜靠靤靦靨勒靫靱靹鞅靼鞁靺鞆鞋鞏鞐鞜鞨鞦鞣鞳鞴韃韆韈韋韜韭齏韲竟韶韵頏頌頸頤頡頷頽顆顏顋顫顯顰" ; char ; 1 ; 1 ) ;
char ≤ "髷" ; 28960 + Position ( "顱顴顳颪颯颱颶飄飃飆飩飫餃餉餒餔餘餡餝餞餤餠餬餮餽餾饂饉饅饐饋饑饒饌饕馗馘馥馭馮馼駟駛駝駘駑駭駮駱駲駻駸騁騏騅駢騙騫騷驅驂驀驃騾驕驍驛驗驟驢驥驤驩驫驪骭骰骼髀髏髑髓體髞髟髢髣髦髯髫髮髴髱髷" ; char ; 1 ; 1 ) ;
char ≤ "鵈" ; 29216 + Position ( "髻鬆鬘鬚鬟鬢鬣鬥鬧鬨鬩鬪鬮鬯鬲魄魃魏魍魎魑魘魴鮓鮃鮑鮖鮗鮟鮠鮨鮴鯀鯊鮹鯆鯏鯑鯒鯣鯢鯤鯔鯡鰺鯲鯱鯰鰕鰔鰉鰓鰌鰆鰈鰒鰊鰄鰮鰛鰥鰤鰡鰰鱇鰲鱆鰾鱚鱠鱧鱶鱸鳧鳬鳰鴉鴈鳫鴃鴆鴪鴦鶯鴣鴟鵄鴕鴒鵁鴿鴾鵆鵈" ; char ; 1 ; 1 ) ;
char ≤ "龠" ; 29472 + Position ( "鵝鵞鵤鵑鵐鵙鵲鶉鶇鶫鵯鵺鶚鶤鶩鶲鷄鷁鶻鶸鶺鷆鷏鷂鷙鷓鷸鷦鷭鷯鷽鸚鸛鸞鹵鹹鹽麁麈麋麌麒麕麑麝麥麩麸麪麭靡黌黎黏黐黔黜點黝黠黥黨黯黴黶黷黹黻黼黽鼇鼈皷鼕鼡鼬鼾齊齒齔齣齟齠齡齦齧齬齪齷齲齶龕龜龠" ; char ; 1 ; 1 ) ;
char ≤ "熙" ; 29728 + Position ( "堯槇遙瑤凜熙" ; char ; 1 ; 1 ) ;
0
)

JIS_EUC ( JIS )

Mon, 17 Jan 2011 06:32:54 GMT

// 作者 : 平松　晋介
// 概要 : JISコードを、EUCコードへ変換します
// カスタム関数    JIS_EUC ( JIS )

Case (
    JIS  <  29735 ; JIS + 32896 ;
    ""
)

JIS_sJIS ( JIS )

Mon, 17 Jan 2011 06:32:54 GMT

// 作者 : 平松　晋介
// 概要 : JISコードを、シフトJISコードへ変換します
// カスタム関数    JIS_sJIS ( JIS )

Let (
    [ upper7 = Int ( ( JIS - 8448 ) / 512 ) ;
    bit9 = Mod ( Int ( JIS / 256 ) ; 2 ) ;
    lower8 = Mod ( JIS ; 256 )
    ] ;

    Case (
        JIS  < 8481 ; JIS ;
        Case (
            upper7 < 31 ; upper7 + 129 ;
            upper7 + 193
        )  * 256
         +
        lower8
         +
        Case (
            bit9 = 0 ; 126 ;
            lower8 ≥ 96 ; 32 ;
            31
        )
    )
)

space ( text )

Mon, 17 Jan 2011 06:32:54 GMT

// 作者 : 平松晋介
// 概要 : 文字列の各文字間に、スペースを挿入します。
// カスタム関数 space ( text )

/*テキスト文字列で、文字間にスペースを挿入する*/
Case (
Length ( text ) ≤ 1 ; text ;
space ( Left ( text ; Length ( text ) - 1 ) ) & " " & Right ( text ; 1 )
)

ErrorMsg ( エラー番号 )

Mon, 17 Jan 2011 06:32:38 GMT

// 作者 : オリジナルアイデア:Tim Neudecker
// 概要 : ファイルメーカーのエラー番号からその番号の説明を返します。
// カスタム関数    ErrorMsg ( エラー番号 )

/*==============================================================

  カスタム関数    ErrorMsg ( エラー番号 )
  2008.12.12 変更 FileMaker Pro 10 対応

=============================================================*/

Let (
    Error = エラー番号 ;
    Case (
        Error = -1 ; "原因不明のエラー" ;
        Error = 0 ; "エラーなし" ;
        Error = 1 ; "ユーザによるキャンセル" ;
        Error = 2 ; "メモリエラー" ;
        Error = 3 ; "コマンドが使用できません（たとえば誤ったオペレーティングシステム、誤ったモードなど）" ;
        Error = 4 ; "コマンドが見つかりません" ;
        Error = 5 ; "コマンドが無効です（たとえば、[フィールド設定] スクリプトステップに計算式が指定されていない場合など）" ;
        Error = 6 ; "ファイルが読み取り専用です" ;
        Error = 7 ; "メモリ不足" ;
        Error = 8 ; "空白の結果" ;
        Error = 9 ; "アクセス権が不十分です" ;
        Error = 10 ; "要求されたデータが見つかりません" ;
        Error = 11 ; "名前が有効ではありません" ;
        Error = 12 ; "名前がすでに存在します" ;
        Error = 13 ; "ファイルまたはオブジェクトが使用中です" ;
        Error = 14 ; "範囲外" ;
        Error = 15 ; "０で割ることができません。" ;
        Error = 16 ; "処理に失敗したため、再試行が必要です（たとえば、ユーザクエリーなど） " ;
        Error = 17 ; "外国語の文字セットの UTF-16 への変換に失敗しました" ;
        Error = 18 ; "続行するには、クライアントはアカウント情報を指定する必要があります" ;
        Error = 19 ; "文字列に A から Z、a から z、0 から 9（ASCII）以外の文字が含まれています" ;
        Error = 20 ; "コマンドまたは操作がスクリプトトリガによってキャンセルされました" ;        // 10以降
        Error = 100 ; "ファイルが見つかりません" ;
        Error = 101 ; "レコードが見つかりません" ;
        Error = 102 ; "フィールドが見つかりません" ;
        Error = 103 ; "リレーションシップが見つかりません" ;
        Error = 104 ; "スクリプトが見つかりません" ;
        Error = 105 ; "レイアウトが見つかりません" ;
        Error = 106 ; "テーブルが見つかりません" ;
        Error = 107 ; "索引が見つかりません" ;
        Error = 108 ; "値一覧が見つかりません" ;
        Error = 109 ; "アクセス権セットが見つかりません" ;
        Error = 110 ; "関連テーブルが見つかりません" ;
        Error = 111 ; "フィールドの繰り返しが無効です" ;
        Error = 112 ; "ウインドウが見つかりません" ;
        Error = 113 ; "関数が見つかりません" ;
        Error = 114 ; "ファイル参照が見つかりません" ;
        Error = 115 ; "指定されたメニューセットが存在しません" ;        // 8以降
        Error = 116 ; "指定されたレイアウトオブジェクトが存在しません" ;        // 8.5以降
        Error = 117 ; "指定されたデータソースが存在しません" ;        // 9以降
        Error = 130 ; "ファイルが損傷しているか見つからないため、再インストールする必要があります" ;
        Error = 131 ; "言語パックファイルが見つかりません（テンプレートなど）" ;
        Error = 200 ; "レコードアクセスが拒否されました" ;
        Error = 201 ; "フィールドを変更できません" ;
        Error = 202 ; "フィールドアクセスが拒否されました" ;
        Error = 203 ; "ファイルに印刷するレコードがないか、入力したパスワードでは印刷できません" ;
        Error = 204 ; "ソート優先順位に指定されたフィールドにアクセスできません" ;
        Error = 205 ; "ユーザに新規レコードを作成するアクセス権がありません。既存のデータはインポートしたデータで上書きされます" ;
        Error = 206 ; "ユーザにパスワードの変更アクセス権がないか、変更可能なファイルではありません" ;
        Error = 207 ; "ユーザにデータベーススキーマを変更する十分なアクセス権がないか、変更可能なファイルではありません" ;
        Error = 208 ; "パスワードに十分な文字が含まれていません" ;
        Error = 209 ; "既存のパスワードと新規パスワードを同一にすることはできません" ;
        Error = 210 ; "ユーザアカウントが非アクティブです" ;
        Error = 211 ; "パスワードが期限切れです " ;
        Error = 212 ; "ユーザアカウントまたはパスワードが無効です。再試行してください。" ;
        Error = 213 ; "ユーザアカウントまたはパスワードが存在しません" ;
        Error = 214 ; "ログイン試行回数が多すぎます" ;
        Error = 215 ; "管理者権限は複製できません" ;
        Error = 216 ; "ゲストアカウントは複製できません" ;
        Error = 217 ; "ユーザに管理者アカウントを変更する十分なアクセス権がありません" ;
        Error = 300 ; "ファイルがロックされているか、使用中です" ;
        Error = 301 ; "別のユーザがレコードを使用中です" ;
        Error = 302 ; "別のユーザがテーブルを使用中です" ;
        Error = 303 ; "別のユーザがデータベーススキーマを使用中です" ;
        Error = 304 ; "別のユーザがレイアウトを使用中です" ;
        Error = 306 ; "レコード修正 ID が一致しません" ;
        Error = 400 ; "検索条件が空です" ;
        Error = 401 ; "検索条件に一致するレコードがありません" ;
        Error = 402 ; "選択したフィールドはルックアップの照合フィールドではありません" ;
        Error = 403 ; "評価版の FileMaker Pro に設定されている最大レコード数の制限を超過しています" ;
        Error = 404 ; "ソート優先順位が無効です" ;
        Error = 405 ; "指定したレコード数が除外可能なレコード数を超過しています" ;
        Error = 406 ; "全置換またはシリアル番号の再入力に指定された条件が無効です" ;
        Error = 407 ; "片方または両方の照合フィールドが欠けています（無効なリレーションシップ)" ;
        Error = 408 ; "指定されたフィールドのデータが不適切なため、この処理を実行できません" ;
        Error = 409 ; "インポート順が無効です " ;
        Error = 410 ; "エスクポート順が無効です" ;
        Error = 412 ; "ファイルの修復に、誤ったバージョンの FileMaker Pro が使用されました" ;
        Error = 413 ; "指定されたフィールドのフィールドタイプが不適切です" ;
        Error = 414 ; "レイアウトに結果を表示できません" ;
        Error = 415 ; "１つまたは複数の必要な関連レコードが使用できません" ;        // 8以降
        Error = 416 ; "データソーステーブルの主要キーが必要です" ;        // 9以降
        Error = 417 ; "データベースでは ODBC の操作がサポートされていません" ;        // 9以降
        Error = 500 ; "日付の値が入力値の制限を満たしていません" ;
        Error = 501 ; "時刻の値が入力値の制限を満たしていません" ;
        Error = 502 ; "数字の値が入力値の制限を満たしていません" ;
        Error = 503 ; "フィールドの値が入力値の制限オプションに指定されている範囲内に入っていません" ;
        Error = 504 ; "フィールドの値が入力値の制限オプションで要求されているようにユニークな値になっていません" ;
        Error = 505 ; "フィールドの値が入力値の制限オプションで要求されているようにデータベースファイル内の既存値になっていません" ;
        Error = 506 ; "フィールドの値が入力値の制限オプションに指定されている値一覧に含まれていません" ;
        Error = 507 ; "フィールドの値が入力値の制限オプションに指定されている計算式を満たしません" ;
        Error = 508 ; "検索モードに無効な値が入力されました" ;
        Error = 509 ; "フィールドに有効な値が必要です " ;
        Error = 510 ; "関連する値が空であるか、使用できません " ;
        Error = 511 ; "フィールド内の値が最大文字数を超過しました" ;
        Error = 512 ; "レコードは別のユーザによってすでに変更されています" ;        // 9以降
        Error = 513 ; "レコードを作成するにはいずれかのフィールドに値が入力されている必要があります" ;        // 9以降
        Error = 600 ; "印刷エラーが発生しました" ;
        Error = 601 ; "ヘッダとフッタの高さを加算するとページの高さを超えます " ;
        Error = 602 ; "現在の段数設定ではボディ部分がページ内に収まりません" ;
        Error = 603 ; "印刷接続が遮断されました" ;
        Error = 700 ; "インポートできないファイルタイプです" ;
        Error = 706 ; "EPSF ファイルにプレビューイメージがありません " ;
        Error = 707 ; "グラフィックの変換ファイルが見つかりません " ;
        Error = 708 ; "ファイルをインポートできないか、ファイルをインポートするにはカラーのコンピュータが必要です。" ;
        Error = 709 ; "QuickTime ムービーのインポートに失敗しました " ;
        Error = 710 ; "データベースが読み取り専用になっているため、QuickTime ファイルの参照を更新できません。" ;
        Error = 711 ; "インポートの変換ファイルが見つかりません " ;
        Error = 714 ; "入力したパスワードでは設定されている権限が不足しているためこの操作は認められていません" ;
        Error = 715 ; "指定された Excel ワークシートまたは名前の付いた範囲がありません" ;
        Error = 716 ; "ODBC インポートでは、DELETE、INSERT、または UPDATE を使用する SQL クエリーは使用できません" ;
        Error = 717 ; "インポートまたはエクスポートを続行するための十分な XML/XSLT 情報がありません" ;
        Error = 718 ; "（Xerces からの）XML ファイルの解析エラーです" ;
        Error = 719 ; "（Xalan からの）XSL を使用した XML 変換エラーです" ;
        Error = 720 ; "エクスポート時のエラー。対象のドキュメントフォーマットでは繰り返しフィールドはサポートされていません" ;
        Error = 721 ; "パーサまたはトランスフォーマで原因不明のエラーが発生しました" ;
        Error = 722 ; "フィールドのないファイルにデータをインポートすることはできません" ;
        Error = 723 ; "インポート先のテーブルでレコードを追加または変更する権限がありません" ;
        Error = 724 ; "インポート先のテーブルにレコードを追加する権限がありません" ;
        Error = 725 ; "インポート先のテーブルでレコードを変更する権限がありません" ;
        Error = 726 ; "インポートファイルのレコードの方がインポート先のテーブルのレコードよりも多くなっています。一部のレコードはインポートされません" ;
        Error = 727 ; "インポート先のテーブルのレコードの方がインポートファイルのレコードよりも多くなっています。一部のレコードは更新されません" ;
        Error = 729 ; "インポート中にエラーが発生しました。レコードをインポートすることができません。" ;
        Error = 730 ; "サポートされていない Excel のバージョンです。ファイルを Excel 7.0（Excel 95）、Excel 97、2000、XP、または 2007 のフォーマットに変換してから再試行してください" ;
        Error = 731 ; "インポート元のファイルにデータが含まれていません" ;
        Error = 732 ; "このファイルには内部に他のファイルが含まれているため、挿入できません" ;
        Error = 733 ; "テーブルをテーブル自体にインポートすることはできません" ;
        Error = 734 ; "このファイルタイプをピクチャとして表示することはできません" ;
        Error = 735 ; "このファイルタイプをピクチャとして表示することはできません。ファイルとして挿入および表示されます" ;
        Error = 736 ; "エクスポートデータが多すぎてこの書式には入りきりません。入らないデータは切り捨てられます" ;        // 8以降
        Error = 737 ; "Bento コレクションまたはライブラリが見つからないため、データのインポートができません。" ;        // 10以降
        Error = 800 ; "ファイルをディスク上に作成できません" ;
        Error = 801 ; "システムディスクにテンポラリファイルを作成できません" ;
        Error = 802 ; "ファイルを開くことができません" ;
        Error = 803 ; "ファイルが単独使用に設定されているか、またはホストが見つかりません" ;
        Error = 804 ; "ファイルは現在の状態では読み取り専用として開くことができません" ;
        Error = 805 ; "ファイルが損傷しています。修復コマンドを使用してください" ;
        Error = 806 ; "このバージョンの FileMaker Pro ではファイルを開くことができません" ;
        Error = 807 ; "ファイルが FileMaker Pro のファイルではないか、重大な損傷があります" ;
        Error = 808 ; "アクセス権情報が壊れているため、ファイルを開くことができません" ;
        Error = 809 ; "ディスク/ボリュームがいっぱいです" ;
        Error = 810 ; "ディスク/ボリュームがロックされています" ;
        Error = 811 ; "テンポラリファイルを FileMaker Pro ファイルとして開くことができません" ;
        Error = 813 ; "ネットワーク上でレコードの同期エラーが発生しました" ;
        Error = 814 ; "最大数のファイルがすでに開いているため、ファイルを開くことができません" ;
        Error = 815 ; "ルックアップファイルを開くことができません " ;
        Error = 816 ; "ファイルを変換できません" ;
        Error = 817 ; "このソリューションに属していないため、ファイルを開くことができません" ;
        Error = 819 ; "リモートファイルのローカルコピーを保存できません" ;
        Error = 820 ; "ファイルを閉じる途中です" ;
        Error = 821 ; "ホストによって接続解除されました" ;
        Error = 822 ; "FMI ファイルが見つかりません。見つからないファイルを再インストールしてください" ;
        Error = 823 ; "ファイルをシングルユーザに設定できません。ゲストが接続しています" ;
        Error = 824 ; "ファイルが損傷しているか、FileMaker のファイルではありません" ;
        Error = 900 ; "スペルチェックのエンジンにエラーが発生しています" ;
        Error = 901 ; "スペルチェック用のメイン辞書がインストールされていません" ;
        Error = 902 ; "ヘルプシステムを起動できませんでした " ;
        Error = 903 ; "共有ファイルではコマンドを使用できません " ;
        Error = 905 ; "アクティブなフィールドが選択されていません。アクティブなフィールドが存在する場合のみコマンドを使用することができます" ;
        Error = 906 ; "このコマンドを使用するには、現在のファイルを共有する必要があります" ;        // 9以降
        Error = 920 ; "スペルチェックエンジンを初期化できません" ;
        Error = 921 ; "編集するユーザ辞書をロードできません" ;
        Error = 922 ; "ユーザ辞書が見つかりません" ;
        Error = 923 ; "ユーザ辞書が読み取り専用です" ;
        Error = 951 ; "予期しないエラーが発生しました（*）" ;
        Error = 954 ; "サポートされていない XML 文法です（*）" ;
        Error = 955 ; "データベース名がありません（*）" ;
        Error = 956 ; "データベースセッションが最大数を超過しました（*）" ;
        Error = 957 ; "コマンドが競合しています（*）" ;
        Error = 958 ; "引数が見つかりません（*）" ;
        Error = 1200 ; "一般的な計算エラーです" ;
        Error = 1201 ; "関数の引数が足りません" ;
        Error = 1202 ; "関数の引数が多すぎます" ;
        Error = 1203 ; "計算式が未完了です" ;
        Error = 1204 ; "数字、テキスト、フィールド名、または「(」を入れてください" ;
        Error = 1205 ; "コメントは「*/」で終了できません" ;
        Error = 1206 ; "テキストは半角のダブルクォーテーションマークで終わらなければなりません" ;
        Error = 1207 ; "カッコが一致していません" ;
        Error = 1208 ; "演算子または関数が見つからないか、「(」は指定できません" ;
        Error = 1209 ; "名前（フィールド名またはレイアウト名）が見つかりません" ;
        Error = 1210 ; "プラグイン関数はすでに登録されています" ;
        Error = 1211 ; "この関数では一覧を使用できません" ;
        Error = 1212 ; "演算子（+、-、* など）を入れてください" ;
        Error = 1213 ; "この変数はすでに Let 関数で定義されています" ;
        Error = 1214 ; "AVERAGE、COUNT、EXTEND、GETREPETITION、MAX、MIN、NPV、STDEV、SUM、および GETSUMMARY 関数で、フィールドの値を指定できない部分に式が使われています" ;
        Error = 1215 ; "この引数は取得関数の無効な引数です" ;
        Error = 1216 ; "GetSummary 関数の１番目の引数は、集計フィールドのみに限られます" ;
        Error = 1217 ; "区分けフィールドが無効です " ;
        Error = 1218 ; "数字を評価できません" ;
        Error = 1219 ; "フィールド固有の式にフィールドは使用できません" ;
        Error = 1220 ; "フィールドタイプは標準にするか、計算する必要があります " ;
        Error = 1221 ; "データタイプは数字、日付、時刻、またはタイムスタンプでなければなりません " ;
        Error = 1222 ; "計算式を保存できません" ;
        Error = 1223 ; "関数が実装されていません" ;
        Error = 1224 ; "関数が定義されていません" ;        // 8以降
        Error = 1225 ; "関数はこのコンテキストではサポートされていません" ;        // 9以降
        Error = 1300 ; "指定された名前は使用できません" ;        // 8以降
        Error = 1400 ; "ODBC ドライバの初期化に失敗しました。ODBC ドライバが適切にインストールされていることを確認してください" ;
        Error = 1401 ; "環境の割り当てに失敗しました（ODBC）" ;
        Error = 1402 ; "環境の解放に失敗しました（ODBC）" ;
        Error = 1403 ; "切断に失敗しました（ODBC）" ;
        Error = 1404 ; "接続の割り当てに失敗しました（ODBC）" ;
        Error = 1405 ; "接続の解放に失敗しました（ODBC）" ;
        Error = 1406 ; "SQL API のチェックに失敗しました（ODBC）" ;
        Error = 1407 ; "ステートメントの割り当てに失敗しました（ODBC）" ;
        Error = 1408 ; "拡張エラー（ODBC）" ;
        Error = 1409 ; "エラー（ODBC）" ;        // 9以降
        Error = 1413 ; "通信リンク障害（ODBC）" ;        // 9以降
        Error = 1450 ; "PHP アクセス権を拡張する操作が必要です（*）" ;        // 10以降
        Error = 1451 ; "現在のファイルをリモートにする操作が必要です" ;        // 10以降
        Error = 1501 ; "SMTP 認証に失敗しました" ;        // 10以降
        Error = 1502 ; "SMTP サーバーによって接続が拒否されました" ;        // 10以降
        Error = 1503 ; "SSL でエラーが発生しました" ;        // 10以降
        Error = 1504 ; "SMTP サーバーの接続を暗号化する必要があります" ;        // 10以降
        Error = 1505 ; "指定された認証方法は、SMTP サーバーではサポートされていません" ;        // 10以降
        Error = 1506 ; "E メールは正常に送信されませんでした" ;        // 10以降
        Error = 1507 ; "SMTP サーバーにログインできませんでした" ;        // 10以降
    )
)

createPass ( txt ; num ; pass )

Mon, 17 Jan 2011 06:32:54 GMT

// 作者 : 給前悟郎
// 概要 : パスワードを自動生成できます。パスワードに使う文字種、文字数は任意に指定できます
// カスタム関数    createPass ( txt ; num ; pass )

Let (
[
    // 生成されたパスワード
    passwd = pass ;
    // ランダム値
    key = Right ( Int ( Random * 100 ) ; 2 )
] ;

    Case (
        // 初回のみのチェック
        Length ( pass ) < 1 and Length ( txt ) < num ;
            "エラー";

        // 生成したパスワードが指定した長さになっていない場合は再帰呼び出し
        Length ( passwd ) < num and key ≤ Length ( txt ) ;
            createPass ( Substitute ( txt ; Middle ( txt ; key ; 1 ) ; "" ) ; num ; passwd & Middle ( txt ; key; 1 ) ) ;

        // ランダム値がパスワードの元となる文字列の長さより大きくなった場合はもう一度
        Length ( passwd ) < num and key  >  Length ( txt ) ;
            createPass ( txt ; num ; passwd ) ;

        // パスワードが指定の長さになったら値を返して終わり
        Length ( passwd ) = num ;
            passwd
    )
)

Leftb ( テキスト ; バイト数 ; カウンター )

Mon, 17 Jan 2011 06:32:50 GMT

// 作者 : 社本修司
// 概要 : テキストの左端から文字数（SJISでのバイト数）分の文字例を返します。
// カスタム関数    Leftb ( テキスト ; バイト数 ; カウンター )

/*==============================================================

  カスタム関数    Leftb ( テキスト ; バイト数 ; カウンター )

  テキストの左端から文字数（SJISでのバイト数）分の文字例を返します。
  ファイルメーカーPro 6 までのLeftb関数と引数が違うので注意が必要です。
  Leftb ( テキストフィールド ; 32 ; 0 ) の形で指定します。
  最後の "0" （引数名：カウンター）は、再起呼出しのカウンターとして使用するので、必須で
  値も必ず "0" を指定する必要があります。

  2007.01.05 修正
  <バイト数>が<テキスト>のバイト数を上回る場合無限ループになっていた点を修正
  Special thanks to: かめさん
=============================================================*/

Let (
    [
    COUNTER = カウンター ;            // byte数の積算
    TEXT = テキスト ;
    BYTES = バイト数 ;
    L1T = Left ( TEXT ; 1 ) ;            // 最初の1文字
    RT = Middle ( TEXT ; 2 ; Lengthb ( TEXT ) - 1 ) ;        // 2文字目以降
    LENGTHBL1T = Lengthb ( L1T )        // 最初の1文字のbyte数
    ] ;

    Case (
        LENGTHBL1T ≥ 1 and BYTES > COUNTER ;
            Case (
                BYTES > ( COUNTER + LENGTHBL1T - 1 ) ;
                    L1T ;
                    " "
            )
            & Leftb ( RT ; BYTES ; COUNTER + LENGTHBL1T )
    )

)

// ©2004,SHAMOTO Syuji

Positionb ( テキスト ; 検索テキスト ; 先頭バイト数 ; 回数 )

Mon, 17 Jan 2011 06:32:50 GMT

// 作者 : 茂田カツノリ
// 概要 : <テキスト> 内で <検索テキスト> を検索し、指定された回数目の先頭文字位置をSJISでのバイト数で返します。
// カスタム関数    Positionb ( テキスト ; 検索テキスト ; 先頭バイト数 ; 回数 )

/*==============================================================

  カスタム関数    Positionb ( テキスト ; 検索テキスト ; 先頭バイト数 ; 回数 )

  <テキスト> 内で <検索テキスト> を検索し、指定された回数目の先頭文字位置をSJISでの
  バイト数で返します。

=============================================================*/

Let (
    [
    LeftTEXT = Left ( テキスト ; Position ( テキスト; 検索テキスト; 先頭バイト数 ; 回数 ) - 1 )
    ] ;　
    Length (
        LeftTEXT &
        Filter ( LeftTEXT ; RomanZenkaku ( KanaZenkaku ( LeftTEXT ) ) )
    ) + 1
)

Lengthb ( テキスト )

Mon, 17 Jan 2011 06:32:50 GMT

// 作者 : 茂田カツノリ
// 概要 : 指定したテキストのSJISでのバイト数を返します。
// カスタム関数    Lengthb ( テキスト )

/*==============================================================

  カスタム関数    Lengthb ( テキスト )

  指定したテキストのSJISでのバイト数を返します。

=============================================================*/

Length ( テキスト & Filter ( テキスト ; RomanZenkaku ( KanaZenkaku ( テキスト ) ) ) )

Repeat ( 文字 ; 回数 )

Mon, 17 Jan 2011 06:32:49 GMT

// 作者 : 社本修司
// 概要 : 指定した文字列を指定回数だけ繰り返した値を返します。
// カスタム関数    Repeat ( 文字 ; 回数 )

/*==============================================================

  カスタム関数    Repeat ( 文字 ; 回数 )

  指定した文字列を指定回数だけ繰り返した値を返します。

=============================================================*/

Case (
    回数 > 0 ;
        文字 & Repeat ( 文字 ; 回数 - 1 )
)

TextExtraction ( テキスト ; 開始テキスト ; 開始テキスト回数 ; 終了テキスト ; 終了テキスト回数 )

Mon, 17 Jan 2011 06:32:49 GMT

// 作者 : 社本修司
// 概要 : 指定したテキストから任意のテキスト間の文字列を返します。
// カスタム関数    TextExtraction ( テキスト ; 開始テキスト ; 開始テキスト回数 ; 終了テキスト ; 終了テキスト回数 )

/*==============================================================

  カスタム関数    TextExtraction ( テキスト ; 開始テキスト ; 開始テキスト回数 ; 終了テキスト ; 終了テキスト回数 )

  指定したテキストから任意のテキスト間の文字列を返します。
  <テキスト>の中から指定された<開始テキスト回数>番目の<開始テキスト>の次の文字列から
  その開始テキスト以降に現れる<終了テキスト回数>番目の<終了テキスト>までの文字列を返します。

=============================================================*/

Let (
    [
    TEXT = テキスト;
    STARTINGTEXT = 開始テキスト ;
    NUMBEROFSTARTINGTEXTS = 開始テキスト回数 ;
    ENDINGTEXT = 終了テキスト ;
    // 終了テキストが開始テキストに含まれている場合その数だけをプラス
    NUMBEROFENDINGTEXTS = 終了テキスト回数  + PatternCount ( STARTINGTEXT ; 終了テキスト ) ;

    //----------------------------------------------------------------------
    // 抽出するテキストの先頭文字位置
    //----------------------------------------------------------------------
    SP = Position ( TEXT ; STARTINGTEXT ; 1 ; NUMBEROFSTARTINGTEXTS ) + Length ( STARTINGTEXT ) ;

    //----------------------------------------------------------------------
    // 終了テキストの文字位置
    //----------------------------------------------------------------------
    EP = Position ( TEXT ; ENDINGTEXT ; Position ( TEXT; STARTINGTEXT; 1; NUMBEROFSTARTINGTEXTS ) ; NUMBEROFENDINGTEXTS ) ;

    //----------------------------------------------------------------------
    // 抽出するテキストの文字数
    //----------------------------------------------------------------------
    NC = EP - SP

    ] ;

    Case (

        // Text中にstartingTextがNumberOfStartingTexts回以上存在するか
        // StartingText以降のText中にEndingTextが終了テキスト回数以上存在するか
        // （NumberOfEndingTexts回ではなく終了テキスト回数）

        PatternCount ( TEXT ; STARTINGTEXT ) ≥ NUMBEROFSTARTINGTEXTS
        and PatternCount ( Middle ( TEXT ; SP ; Length ( TEXT ) - SP + 1 ) ; ENDINGTEXT ) ≥ 終了テキスト回数 ;

            Middle ( TEXT ; SP ; NC )
    )
)

// ©2004,SHAMOTO Syuji

PreviousDayOfWeek ( 日付 ; 曜日 )

Mon, 17 Jan 2011 06:32:54 GMT

// 作者 : 社本修司
// 概要 : 指定した日付の前の指定した曜日のの日付を得ます。
// カスタム関数    PreviousDayOfWeek ( 日付 ; 曜日 )

/*==============================================================

  カスタム関数    PreviousDayOfWeek ( 日付 ; 曜日 )

  CopyRight©2004,SHAMOTO Syuji


  指定した日付の前の指定した曜日のの日付を得ます。
  曜日の指定は、
  「月曜日」・「月」・「Monday」・「Mon」・「2（数字形式;1=Sun , 2=Mon ... 7=Sat）」
  の各形式に対応しています。

  このカスタム関数を引用するに当たっては、必ずコメントも一緒に引用してください。

=============================================================*/
Let (
    [

    theDate = 日付 ;

    WeekListN = "1 2 3 4 5 6 7 " ;
    WeekListE = "Sunday    Monday    Tuesday   Wednesday Thursday  Friday    Saturday   " ;
    WeekListJ = "日月火水木金土 " ;

    N =
    Case(
        PatternCount ( WeekListN ; GetAsNumber ( 曜日 ) ) ;     // 数字形式の場合
            ( Position ( WeekListN ; GetAsNumber ( 曜日 ) ; 1 ; 1 ) + 1 ) / 2 ;
        PatternCount ( WeekListE ; Proper ( 曜日 ) ) ;             // 英語表記の場合
            ( Position ( WeekListE ; Proper ( 曜日 ) ; 1 ; 1 ) + 9 ) / 10 ;
        PatternCount ( WeekListJ ; Left ( 曜日 ; 1 ) ) ;             // 日本語表記の場合
            ( Position ( WeekListJ ; Left ( 曜日 ; 1 ) ; 1 ; 1 ) + 1 ) / 2
    ) ;
    MinusDays =
    Case (
        DayOfWeek ( theDate ) - N = 0 ;
            7 ;
        DayOfWeek ( theDate ) - N > 0 ;
            DayOfWeek ( theDate ) - N ;
            ( Position ( "-6 -5 -4 -3 -2 -1" ; DayOfWeek ( theDate ) - N ; 1 ; 1 ) + 2 ) / 3
    )
    ];
    Case (
        not ( IsEmpty ( theDate ) or IsEmpty ( N ) ) ;
            theDate - MinusDays
    )
)

NextDayOfWeek ( 日付 ; 曜日 )

Mon, 17 Jan 2011 06:32:53 GMT

// 作者 : 社本修司
// 概要 : 指定した日付の次の指定した曜日のの日付を得ます。
// カスタム関数    NextDayOfWeek ( 日付 ; 曜日 )

/*==============================================================

  カスタム関数    NextDayOfWeek ( 日付 ; 曜日 )

  CopyRight©2004,SHAMOTO Syuji


  指定した日付の次の指定した曜日のの日付を得ます。
  曜日の指定は、
  「月曜日」・「月」・「Monday」・「Mon」・「2（数字形式;1=Sun , 2=Mon ... 7=Sat）」
  の各形式に対応しています。

  このカスタム関数を引用するに当たっては、必ずコメントも一緒に引用してください。

=============================================================*/
Let (
    [
    theDate = 日付 ;

    WeekListN = "1 2 3 4 5 6 7 " ;
    WeekListE = "Sunday    Monday    Tuesday   Wednesday Thursday  Friday    Saturday   " ;
    WeekListJ = "日月火水木金土 " ;

    N =
    Case(
        PatternCount ( WeekListN ; GetAsNumber ( 曜日 ) ) ;     // 数字形式の場合
            ( Position ( WeekListN ; GetAsNumber ( 曜日 ) ; 1 ; 1 ) + 1 ) / 2 ;
        PatternCount ( WeekListE ; Proper ( 曜日 ) ) ;             // 英語表記の場合
            ( Position ( WeekListE ; Proper ( 曜日 ) ; 1 ; 1 ) + 9 ) / 10 ;
        PatternCount ( WeekListJ ; Left ( 曜日 ; 1 ) ) ;             // 日本語表記の場合
            ( Position ( WeekListJ ; Left ( 曜日 ; 1 ) ; 1 ; 1 ) + 1 ) / 2
    ) ;
    PlusDays =
    Case (
        N - DayOfWeek ( theDate )  = 0 ;
            7 ;
        N - DayOfWeek ( theDate )  > 0 ;
            N - DayOfWeek ( theDate ) ;
            ( Position ( "-6 -5 -4 -3 -2 -1" ; N - DayOfWeek ( theDate )  ; 1 ; 1 ) + 2 ) / 3
    )
    ];
    Case (
        not ( IsEmpty ( theDate ) or IsEmpty ( N ) ) ;
            theDate + PlusDays
    )
)

YearNameToDate ( 日付テキスト )

Mon, 17 Jan 2011 06:32:47 GMT

// 作者 : 社本修司
// 概要 : 元号で書かれたテキストから日付を返します。
// カスタム関数    YearNameToDate ( 日付テキスト )

/*==============================================================

  カスタム関数    YearNameToDate ( 日付テキスト )

  "平成16年1月1日"という元号で書かれたテキストから日付を得ます。
  "H16.1.1"というテキストなら日付として解釈するファイルメーカーの機能を
  そのまま利用しています。
  （平成十六年一月一日のように漢数字が使われている場合は変換できません。）
=============================================================*/

GetAsDate (
    Substitute (
        日付テキスト ;
        [ "西暦" ; "" ] ;
        [ "明治" ; "M" ] ; [ "明" ; "M" ] ;
        [ "大正" ; "T" ] ; [ "大" ; "T" ] ;
        [ "昭和" ; "S" ] ; [ "昭" ; "S" ] ;
        [ "平成" ; "H" ] ; [ "平" ; "H" ] ;
        [ "元" ; "1" ] ;
        [ "年" ; "." ] ; [ "月" ; "." ] ; [ "日" ; "" ]
    )
)
// ©2004,SHAMOTO Syuji

BusinessDays ( 開始日 ; 終了日 )

Mon, 17 Jan 2011 06:32:46 GMT

// 作者 : 社本修司
// 概要 : 開始日から終了日の間の祝日を考慮した営業日数を返します。
// カスタム関数    BusinessDays ( 開始日 ; 終了日 )

/*==============================================================

  カスタム関数    BusinessDays ( 開始日 ; 終了日 )

  CopyRight©2004,SHAMOTO Syuji


  開始日と終了日を指定することで日・祝日を除く営業日数を計算します。

  BusinessDays ( "2005/1/7" ; "2005/1/11") の形で指定します。

  開始日 > 終了日の場合は計算しません。
  開始日・終了日ともに日数に加えるようになっています。
  例えば2005/1/7から1/11までの場合
  2005/1/7（金）・1/8（土）・1/9（日）・1/10（祝）・1/11（火）なので、結果は
  1/9（日）・1/10（祝）を抜いた"3"営業日となります。

  このカスタム関数を引用するに当たっては、必ずコメントも一緒に引用してください。

=============================================================*/

//-------------------------------------------------------------------------
// 祝日の判定に HolidayJ 関数（カスタム関数）を使用
// HolidayJ 関数はを参照のこと
//-------------------------------------------------------------------------

Let (

    [  // === Let_Start ==================================

    START_DATE = 開始日 ;
    END_DATE = 終了日 ;
    END_NUM = END_DATE - START_DATE ;

    //----------------------------------------------------------------------
    // 後に再起呼出しで開始日を1増させていく
    //----------------------------------------------------------------------

    theDate = START_DATE ;

    //----------------------------------------------------------------------
    // 上で定義した theDate を休日判定する
    // 休みの基準を変える場合は以下の式を変更すること
    // HappyMonday 関数（カスタム関数）を利用すると第2第4土曜日は休みとかいう条件も
    // シンプルな式で計算できる
    // HappyMonday 関数はを参照のこと
    //----------------------------------------------------------------------

    //----------------------------------------------------------------------
    // 1.日曜日・祝日の場合を休みとする場合
    //----------------------------------------------------------------------

    BD =
    not (
    ( not IsEmpty ( HolidayJ ( theDate ) ) )         // 祝日
    or ( DayOfWeek ( theDate ) = 1 )             // 日曜日
    )

    //----------------------------------------------------------------------
    // 2.日曜日・祝日に加え、第2第4土曜日も休みの場合のサンプル計算式
    //----------------------------------------------------------------------
    /*
    Y = Year ( theDate ) ;
    M = Month ( theDate ) ;
    BD =
    not (
    ( not IsEmpty ( HolidayJ ( theDate ) ) )         // 祝日
    or ( DayOfWeek ( theDate ) = 1 )             // 日曜日
    or ( theDate = HappyMonday ( 2 ; "土" ; M ; Y ) )     // 第2土曜日
    or ( theDate = HappyMonday ( 4 ; "土" ; M ; Y ) )     // 第4土曜日
    )
    */

    //----------------------------------------------------------------------
    // 3. 銀行休日の場合のサンプル計算式（土日祝と年末・年始の12/31〜1/3）
    //----------------------------------------------------------------------
    /*
    Y = Year ( theDate ) ;
    BD =
    not (
    ( not IsEmpty ( HolidayJ ( theDate ) ) )         // 祝日
    or ( DayOfWeek ( theDate ) = 1 )             // 日曜日
    or ( DayOfWeek ( theDate ) = 7 )             // 土曜日
    or ( theDate = Date ( 12 ; 31 ; Y )             // 年末
    or ( theDate = Date ( 1 ; 2 ; Y )             // 年始 1月1日はHolidayJで判定済み
    or ( theDate = Date ( 1 ; 3 ; Y )             //
    )
    */

    ] ; // === Let_End ==================================

    Case (
        //===========================================
        // Caseの条件
        //===========================================

        //---------------------------------------------------------------
        // END_NUM が 0 になるまで計算
        // （FileMakerの仕様上10,000回の上限ありなので、終了日と開始日の間が
        // 10,000日以上の計算はできない。）
        // ついでに開始日・終了日ともに指定されていない時も計算しないようにしている。
        //---------------------------------------------------------------

        not ( IsEmpty ( START_DATE ) or IsEmpty ( END_DATE ) ) and
        ( 0 ≤ END_NUM ) ;

            BD
            + BusinessDays ( START_DATE + 1 ; END_DATE )
    )
)

// ©2004,SHAMOTO Syuji

Ca ( M ; Y ; C )

Mon, 17 Jan 2011 06:32:45 GMT

// 作者 : 社本修司
// 概要 : UNIXのcalコマンドのようなカレンダーを返します。
// カスタム関数    Ca ( M ; Y ; C )

//----------------ここから--------------------------
Let([F=Date(M;1;Y);P=F-DayOfWeek(F)+C;D=Case(Month(P)=M;Right(" "& Day(P);2);"  ");H=Right("      "&MonthName(F);11)&" "&Y&"¶"&" S  M Tu  W Th  F  S"];If(C≤42;If(C=0;H;D)&If(Mod(C;7);" ";"¶")&Ca(M;Y;C+1)))
//----------------ここまで--------------------------

/*==============================================================

  カスタム関数    Ca ( M ; Y ; C )

  CopyRight©2004,SHAMOTO Syuji


  引数 :
  M = 月（1-12）
  Y = 年 (数字)
  C = 0（必ず0を指定）

  UNIXコマンドのcalコマンドのような結果を出すための関数です。
  等幅フォントで利用してください。

  このカスタム関数を引用するに当たっては、必ずコメントも一緒に引用してください。

=============================================================*/

// ©2004,SHAMOTO Syuji

CalStack ( 月 ; 年 ; カウンター )

Mon, 17 Jan 2011 06:32:44 GMT

// 作者 : 社本修司
// 概要 : 指定する月・年から休日が赤で表示されるカレンダーを返します。
// カスタム関数    CalStack ( 月 ; 年 ; カウンター )

/*==============================================================

  カスタム関数    CalStack ( 月 ; 年 ; カウンター )

  CopyRight©2004,SHAMOTO Syuji


  カスタム関数の中で、自分自身を再起的に呼び出して計算させることができます。
  再起呼出しを利用した例題的な意味でのカレンダー関数です。
  CalStack ( 1; 2005; 0 ) の形で指定します。
  最後の "0" （引数名：カウンター）は、再起呼出しのカウンターとして使用するので、必須で
  値も必ず "0" を指定する必要があります。
  本来ユーザーが意識しなくてもいいような引数を指定しなければいけないのと
  再起呼出しをせずに作成した関数に比べると動作が多少遅くなるのが難点です。

  このカスタム関数を引用するに当たっては、必ずコメントも一緒に引用してください。

=============================================================*/

//-------------------------------------------------------------------------
// 祝日の判定に HolidayJ 関数（カスタム関数）を使用
// HolidayJ 関数はを参照のこと
//-------------------------------------------------------------------------

Let (

    [  // === Let_Start ==================================

    HOLIDAY_COLOR = RGB ( 255 ; 0 ; 0 ) ;            // 休日の色（赤）
    TODAY_COLOR = RGB ( 0 ; 128 ; 0 ) ;            // 今日の色（緑）

    COUNTER = カウンター ;                     // 再起呼出し用のカウンター
    Y = 年 ;                             // 指定年(4桁数字)
    M = 月 ;                             // 指定月（1-12）

    FIRST_DATE = Date ( M ; 1 ; Y ) ;                  // 朔日の日付
    LAST_DATE = Date ( M + 1 ; 0 ; Y ) ;             // 晦日の日付

    //----------------------------------------------------------------------
    // カレンダーの最初に表示すべき日の1日前
    // 2005年1月だったら1日が土曜日なので前月の26日
    // の1日前である前月の25日
    //（COUNTERが実質+1から始まるので1日前の日付がいる）
    //----------------------------------------------------------------------

    START_DATE = FIRST_DATE - DayOfWeek ( FIRST_DATE ) ;

    //----------------------------------------------------------------------
    // カレンダーの最後に表示すべき日
    // 2005年1月だったら31日が月曜日なので翌月の5日
    //----------------------------------------------------------------------

    END_DATE = LAST_DATE + 7 - DayOfWeek ( LAST_DATE ) ;

    //----------------------------------------------------------------------
    // カレンダーに表示すべく日数（空白含む）
    // 再起呼出しを抜けるトリガーになる
    // 7日 * 6週 =42 の決めうちでもいい
    //----------------------------------------------------------------------

    END_NUM = END_DATE - START_DATE ;

    //----------------------------------------------------------------------
    // 後に再起呼出しでカウンターを1増させ
    // カレンダーの最初の日に足していく
    // この日を実行日とする
    //----------------------------------------------------------------------

    CARENDAR_DATE = START_DATE + COUNTER ;

    //----------------------------------------------------------------------
    // 実行日の日（Day）を2桁に揃えておく
    //----------------------------------------------------------------------

    CARENDAR_DAY_TEMP =
    Case (
        Month ( CARENDAR_DATE ) = M ;
            Right ( " " & Day ( CARENDAR_DATE ) ; 2 ) ;
            "  "                    // 実行日の月と指定月が違う場合は空白2つ
    ) ;

    //----------------------------------------------------------------------
    // 実行日の日に装飾（色付・下線）
    //----------------------------------------------------------------------

    CARENDAR_DAY =
    Case (
        Month ( CARENDAR_DATE ) = M and
        CARENDAR_DATE = Get ( 日付 ) ;                 // 今日
            TextColor ( TextStyleAdd ( CARENDAR_DAY_TEMP ; 下線 ) ; TODAY_COLOR ) ;
        DayOfWeek ( CARENDAR_DATE ) = 1 or
        not IsEmpty ( HolidayJ ( CARENDAR_DATE ) ) ;         // 休日
            TextColor ( CARENDAR_DAY_TEMP ; HOLIDAY_COLOR ) ;
            CARENDAR_DAY_TEMP                // それ以外はそのまま
    ) ;

    //----------------------------------------------------------------------
    // 曜日ラベル
    //----------------------------------------------------------------------

    LABEL =
    TextColor ( "Su" ; HOLIDAY_COLOR ) & " Mo Tu We Th Fr Sa"

    ] ; // === Let_End ==================================

    //----------------------------------------------------------------------
    // 等幅Fontを指定;"Courier New";"Osaka−等幅"
    // Mac,Win共通で利用できる"Courier New"を指定
    //----------------------------------------------------------------------

    TextStyleAdd ( TextFont (

        Case (
            //===========================================
            // Caseの条件
            //===========================================

            //---------------------------------------------------------------
            // COUNTER が END_NUM に達していなかった時のみ計算
            // COUNTER をどこで止めるか指定しないと無限に呼び出されてしまう
            // （無限といってもFileMakerの仕様上10,000回の上限ありなので無限ループにはならないが）
            // ついでに年・月ともに指定されていない時も計算しないようにしている
            //---------------------------------------------------------------

            not ( IsEmpty ( M ) or IsEmpty ( Y ) ) and
            ( COUNTER ≤ END_NUM ) ;

                //========================================
                // Caseの結果1
                //========================================

                //------------------------------------------------------------
                // 最初のみ曜日ラベルをそれ以外は CARENDAR_DAY（2桁の数字ないし空白）
                //------------------------------------------------------------

                Case ( COUNTER = 0 ; LABEL ; CARENDAR_DAY )

                //------------------------------------------------------------
                // COUNTERが7で割切れる時は改行をそれ以外の時はブランクを & で結ぶ
                //------------------------------------------------------------

                 & Case ( Mod ( COUNTER ; 7 ) ; " " ; "¶" )

                //------------------------------------------------------------
                // COUNTERを1増しながら自分自身の関数を呼び出したものを & で結ぶ
                // 2回目以降の呼び出し時にはCOUNTERが "0" 以上になっているので
                // CARENDAR_DAY（2桁の数字ないし空白）のみが & で結ばれる
                // 関数名を変更する場合ここも変更する必要があるので注意
                //------------------------------------------------------------

                & CalStack ( M ; Y ; COUNTER + 1 ) ;

                //========================================
                // Caseの結果2
                //========================================

                //------------------------------------------------------------
                // 最初の条件（COUNTERが指定数以内か）に合わない場合は
                // CalStack 関数を呼び出さないことでループを抜ける
                // Case関数の結果2はいらないが、読みやすいように明示
                //------------------------------------------------------------

                ""

        ) ;

    "Courier New" ; 英語 ) ; 太字
    )
)

// ©2004,SHAMOTO Syuji

HappyMonday ( 週 ; 曜日 ; 月 ; 年 )

Mon, 17 Jan 2011 06:32:46 GMT

// 作者 : 社本修司
// 概要 : 何年・何月・第何週・何曜日を指定することで、その日付を得ます。
// カスタム関数    HappyMonday ( 週 ; 曜日 ; 月 ; 年 )

/*==============================================================

  カスタム関数    HappyMonday ( 週 ; 曜日 ; 月 ; 年 )

  CopyRight©2004,SHAMOTO Syuji


  HappyMonday という関数名ですが、月曜日に限らず、
  何年・何月・第何週・何曜日を指定することで、その日付を得ます。
  第何週に "0" を指定することで、その月の最後の指定曜日の日付を得ることもできます。
  曜日の指定は、
  「月曜日」・「月」・「Monday」・「Mon」・「2（数字形式;1=Sun , 2=Mon ... 7=Sat）」
  の各形式に対応しています。

  このカスタム関数を引用するに当たっては、必ずコメントも一緒に引用してください。

=============================================================*/

Let (

    [  // === Let_Start ==================================

    W = 週 ;                     // 第何週を1~5の数字で指定・0の場合は最後の週

    //----------------------------------------------------------------------
    // 曜日の形式を得るためのリスト
    //----------------------------------------------------------------------

    WeekListN = "7 6 5 4 3 2 1 " ;
    WeekListE = "Saturday   Friday    Thursday  Wednesday Tuesday   Monday    Sunday    " ;
    WeekListJ = "土金木水火月日 " ;

    //----------------------------------------------------------------------
    // Sun=7 ; Mon=6 ; Tue=5 ; Wed=4 ; Thu=3 ; Fri=2 ; Sat=1
    // の結果を各形式の曜日から得るために上記定義のリストの何番目に位置するかを計算
    //----------------------------------------------------------------------

    N =
    Case(
        PatternCount ( WeekListN ; GetAsNumber ( 曜日 ) ) ;     // 数字形式の場合
            ( Position ( WeekListN ; GetAsNumber ( 曜日 ) ; 1 ; 1 ) + 1 ) / 2 ;
        PatternCount ( WeekListE ; Proper ( 曜日 ) ) ;             // 英語表記の場合
            ( Position ( WeekListE ; Proper ( 曜日 ) ; 1 ; 1 ) + 9 ) / 10 ;
        PatternCount ( WeekListJ ; Left ( 曜日 ; 1 ) ) ;             // 日本語表記の場合
            ( Position ( WeekListJ ; Left ( 曜日 ; 1 ) ; 1 ; 1 ) + 1 ) / 2
    ) ;

    Y = 年 ;                                         // 指定年(4桁数字)
    M = Case (
            W = 0 ;                                 // 0 = 最後の週 = 次の月の第0週
            月 + 1 ;
            月                                    // 指定月（1-12）
        ) ;

    //----------------------------------------------------------------------
    // エラー処理なしの結果
    //----------------------------------------------------------------------

    theDate = Date ( M ; ( 7 * W + 1 ) - DayOfWeek ( Date ( M ; N ; Y ) ) ; Y )

    ] ; // === Let_End ==================================

    Case(

        not ( IsEmpty ( Y ) or IsEmpty( M ) or IsEmpty ( W ) or IsEmpty ( N ) ) and
        ( 月 = Month ( theDate ) ) ;     // 指定月にある場合のみ
        theDate
    )
)

// ©2004,SHAMOTO Syuji

workday ( calcdate ; regularHoliday ; halfHoliday ; halfHoliday1 ; halfHoliday2 ; halfHoliday3 ; halfHoliday4 ; halfHoliday5 ; mayDay )

Mon, 17 Jan 2011 06:32:53 GMT

// 作者 : 平松晋介
// 概要 : 与えられた日が休日であれば０を、それ以外ならば１を返します。
// カスタム関数    workday ( calcdate ; regularHoliday ; halfHoliday ; halfHoliday1 ; halfHoliday2 ; halfHoliday3 ; halfHoliday4 ; halfHoliday5 ; mayDay )

Case (
Year ( calcdate ) < 1948 ; "" ;
Year ( calcdate ) ≥ 2100 ; "" ;

/*元日と３が日*/

Month ( calcdate ) = 1 and Day ( calcdate ) = 1 ; 0 ;
Month ( calcdate ) = 1 and Day ( calcdate ) = 2 ; 0 ;
Month ( calcdate ) = 1 and Day ( calcdate ) = 3 ; 0 ;

/*成人の日*/

Month ( calcdate ) = 1 and Year ( calcdate ) < 2000 and Day ( calcdate ) = 15 ; 0 ;
Month ( calcdate ) = 1 and Year ( calcdate ) > 1973 and Year ( calcdate ) < 2000 and Day ( calcdate ) = 16 and DayOfWeek ( calcdate ) = 2 ; 0 ;
Month ( calcdate ) = 1 and Year ( calcdate ) > 1999 and Int ( ( Day ( calcdate ) + 6 ) / 7 ) = 2 and DayOfWeek ( calcdate ) = 2 ; 0 ;

/*建国記念の日*/

Month ( calcdate ) = 2 and Day ( calcdate ) = 11 and Year ( calcdate ) ≥ 1966 ; 0 ;
Month ( calcdate ) = 2 and Day ( calcdate ) = 12 and Year ( calcdate ) ≥ 1974 and DayOfWeek ( calcdate ) = 2 ; 0 ;

/*昭和天皇の大喪の礼*/

Month ( calcdate ) = 2 and Day ( calcdate ) = 24 and Year ( calcdate ) = 1989 ; 0 ;

/*春分の日*/

Month ( calcdate ) = 3 and Year ( calcdate ) < 1980 and Day ( calcdate ) = Int ( 20.8357 + .242194* ( Year ( calcdate ) - 1980 ) - Int ( ( Year ( calcdate ) - 1983 ) / 4 ) ) ; 0 ;
Month ( calcdate ) = 3 and Year ( calcdate ) < 1979 and Year ( calcdate ) > 1973 and Day ( calcdate ) = Int ( 20.8357 + .242194* ( Year ( calcdate ) - 1980 ) - Int ( ( Year ( calcdate ) - 1983 ) / 4 ) ) + 1 and DayOfWeek ( calcdate ) = 2 ; 0 ;
Month ( calcdate ) = 3 and Year ( calcdate ) < 2100 and Day ( calcdate )  = Int ( 20.8431 + .242194* ( Year ( calcdate ) - 1980 ) - Int ( ( Year ( calcdate ) - 1980 ) / 4 ) ) ; 0 ;
Month ( calcdate ) = 3 and Year ( calcdate ) < 2100 and Year ( calcdate ) > 1973 and Day ( calcdate ) = Int ( 20.8431 + .242194* ( Year ( calcdate ) - 1980 ) - Int ( ( Year ( calcdate ) - 1980 ) / 4 ) ) + 1 and DayOfWeek ( calcdate ) = 2 ; 0 ;

/*天皇誕生日 (昭和天皇)、みどりの日、昭和の日*/

Month ( calcdate ) = 4 and Day ( calcdate ) = 29 ; 0 ;
Month ( calcdate ) = 4 and Day ( calcdate ) = 30 and Year ( calcdate ) > 1972 and DayOfWeek ( calcdate ) = 2 ; 0 ;

/*メーデー*/

Month ( calcdate ) = 5 and Day ( calcdate ) = 1 and mayDay = 0 ; 0 ;

/*文化の日*/

Month ( calcdate ) = 5 and Day ( calcdate ) = 3 ; 0 ;

/*休日、みどりの日*/

Month ( calcdate ) = 5 and Year ( calcdate ) > 1984 and Day ( calcdate ) = 4 ; 0 ;
Month ( calcdate ) = 5 and Year ( calcdate ) > 1972 and Day ( calcdate ) = 4 and DayOfWeek ( calcdate ) = 2 ; 0 ;

/*こどもの日*/

Month ( calcdate ) = 5 and Day ( calcdate ) = 5 ; 0 ;
Month ( calcdate ) = 5 and Year ( calcdate ) > 1972 and Day ( calcdate ) = 6 and DayOfWeek ( calcdate ) = 2 ; 0 ;
Month ( calcdate ) = 5 and Year ( calcdate ) > 2005 and Day ( calcdate ) = 6 and DayOfWeek ( calcdate ) = 3 ; 0 ;
Month ( calcdate ) = 5 and Year ( calcdate ) > 2005 and Day ( calcdate ) = 6 and DayOfWeek ( calcdate ) = 4 ; 0 ;

/*皇太子徳仁親王の結婚の儀*/

Month ( calcdate ) = 6 and Day ( calcdate ) = 9 and Year ( calcdate ) = 1993 ; 0 ;

/*海の日*/

Month ( calcdate ) = 7 and Day ( calcdate ) = 20 and Year ( calcdate ) ≥ 1996 and Year ( calcdate ) < 2003 ; 0 ;
Month ( calcdate ) = 7 and Int ( ( Day ( calcdate ) + 6 ) / 7 ) = 3 and Year ( calcdate ) > 2002 and DayOfWeek ( calcdate ) = 2 ; 0 ;

/*敬老の日*/

Month ( calcdate ) = 9 and Year ( calcdate ) < 2003 and Day ( calcdate ) = 15 ; 0 ;
Month ( calcdate ) = 9 and Year ( calcdate ) > 1972 and Year ( calcdate ) < 2003 and Day ( calcdate ) = 16 and DayOfWeek ( calcdate ) = 2 ; 0 ;
Month ( calcdate ) = 9 and Year ( calcdate ) > 2002 and Int ( ( Day ( calcdate ) + 6 ) / 7 ) = 3 and DayOfWeek ( calcdate ) = 2 ; 0 ;

/*秋分の日*/

Month ( calcdate ) = 9 and Year ( calcdate ) < 1980 and Day ( calcdate ) = Int ( 23.2588 + .242194* ( Year ( calcdate ) - 1980 ) - Int ( ( Year ( calcdate ) - 1983 ) / 4 ) ) ; 0 ;
Month ( calcdate ) = 9 and Year ( calcdate ) < 1980 and Year ( calcdate ) > 1973 and Day ( calcdate ) = Int ( 23.2588 + .242194* ( Year ( calcdate ) - 1980 ) - Int ( ( Year ( calcdate ) - 1983 ) / 4 ) ) + 1 and DayOfWeek ( calcdate ) = 2 ; 0 ;
Month ( calcdate ) = 9 and Year ( calcdate ) < 2100 and Day ( calcdate ) = Int ( 23.2488 + .242194* ( Year ( calcdate ) - 1980 ) - Int ( ( Year ( calcdate ) - 1980 ) / 4 ) ) ; 0 ;
Month ( calcdate ) = 9 and Year ( calcdate ) < 2100 and Year ( calcdate ) > 1973 and Day ( calcdate ) = Int ( 23.2488 + .242194* ( Year ( calcdate ) - 1980 ) - Int ( ( Year ( calcdate ) - 1980 ) / 4 ) ) + 1 and DayOfWeek ( calcdate ) = 2 ; 0 ;
Month ( calcdate ) = 9 and Year ( calcdate ) < 2100 and Year ( calcdate ) > 1984 and Day ( calcdate ) = Int ( 23.2488 + .242194* ( Year ( calcdate ) - 1980 ) - Int ( ( Year ( calcdate ) - 1980 ) / 4 ) ) - 1 and DayOfWeek ( calcdate ) = 3 ; 0 ;

/*体育の日*/

Month ( calcdate ) = 10 and Year ( calcdate ) < 2000 and Day ( calcdate ) = 10 ; 0 ;
Month ( calcdate ) = 10 and Year ( calcdate ) > 1972 and Year ( calcdate ) < 2000 and Day ( calcdate ) = 11 and DayOfWeek ( calcdate ) = 2 ; 0 ;
Month ( calcdate ) = 10 and Year ( calcdate ) > 1999 and Int ( ( Day ( calcdate ) + 6 ) / 7 ) = 2 and DayOfWeek ( calcdate ) = 2 ; 0 ;

/*憲法記念日*/

Month ( calcdate ) = 11 and Day ( calcdate ) = 3 ; 0 ;
Month ( calcdate ) = 11 and Year ( calcdate ) > 1972 and Day ( calcdate ) = 4 and DayOfWeek ( calcdate ) = 2 ; 0 ;

/*即位礼正殿の儀*/

Month ( calcdate ) = 11 and Year ( calcdate ) = 1990 and Day ( calcdate ) = 12 ; 0 ;

/*勤労感謝の日*/

Month ( calcdate ) = 11 and Day ( calcdate ) = 23 ; 0 ;
Month ( calcdate ) = 11 and Year ( calcdate ) > 1972 and Day ( calcdate ) = 24 and DayOfWeek ( calcdate ) = 2 ; 0 ;

/*天皇誕生日*/

Month ( calcdate ) = 12 and Year ( calcdate ) > 1988 and Day ( calcdate ) = 23 ; 0 ;
Month ( calcdate ) = 12 and Year ( calcdate ) > 1988 and Day ( calcdate ) = 24 and DayOfWeek ( calcdate ) = 2 ; 0 ;

/*年末休暇*/

Month ( calcdate ) = 12 and Day ( calcdate ) = 29 ; 0 ;
Month ( calcdate ) = 12 and Day ( calcdate ) = 30 ; 0 ;
Month ( calcdate ) = 12 and Day ( calcdate ) = 31 ; 0 ;

/*定休日*/

DayOfWeek ( calcdate ) = regularHoliday ; 0 ;

/*半ドン*/

DayOfWeek ( calcdate ) = halfHoliday ;
Case (
Day ( calcdate ) ≤  7 ; halfHoliday1 ;
Day ( calcdate ) ≤ 14 ; halfHoliday2 ;
Day ( calcdate ) ≤ 21 ; halfHoliday3 ;
Day ( calcdate ) ≤ 28 ; halfHoliday4 ;
halfHoliday5
) ;
1
)

Cal ( 月 ; 年 )

Mon, 17 Jan 2011 06:32:42 GMT

// 作者 : 社本修司
// 概要 : 指定する月・年から休日が赤で表示されるカレンダーを返します。
// カスタム関数    Cal ( 月 ; 年 )

/*==============================================================

  カスタム関数    Cal ( 月 ; 年 )

  CopyRight©2004,SHAMOTO Syuji


  年・月を指定することで祝日・休日を色付けしたカレンダーを得ます。
  カレンダーは、等幅フォントを利用した1フィールドのテキストとなります。

  このカスタム関数を引用するに当たっては、必ずコメントも一緒に引用してください。

=============================================================*/

//
// 祝日の判定に HolidayJ 関数（カスタム関数）を使用
// HolidayJ 関数はを参照のこと
//

Let (

    [  // === Let_Start ==================================

    HOLIDAY_COLOR = RGB ( 255 ; 0 ; 0 ) ;         // 休日の色（赤）
    TODAY_COLOR = RGB ( 0 ; 128 ; 0 ) ;             // 今日の色（緑）

    Y = 年 ;                                 // 指定年（4桁数字）
    M = 月 ;                                 // 指定月（1-12）
    FIRST_DATE = Date ( M ; 1 ; Y ) ;                  // 朔日の日付
    LAST_DATE = Date ( M + 1 ; 0 ; Y ) ;             // 晦日の日付
    N = Day ( LAST_DATE ) ;                     // 晦日の日（月の日数）

    //
    // カレンダー文字列
    //

    CALENDAR_TEXT =
     " 1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 " ;
    CALENDAR_BLANK =
     "                             " ;

    //
    // 朔日前の空白文字列
    //

    PREVIOUS =
    Left ( CALENDAR_BLANK; ( DayOfWeek ( FIRST_DATE ) - 1 ) * 3 ) ;

    //
    // 晦日後の空白文字列
    //

    NEXT =
    Left ( CALENDAR_BLANK ; ( 7 - DayOfWeek ( LAST_DATE ) ) * 3 + 1 ) ;

    //
    // 曜日ラベル
    //

    LABEL =
     "Su Mo Tu We Th Fr Sa " ;

    //
    // 1行カレンダー
    //

    CALENDAR_TEMP =
    LABEL &
    PREVIOUS &
    Left ( CALENDAR_TEXT ; ( N - 1 ) * 3 + 2 ) &
    NEXT ;

    //
    // 色の置換
    // Substitute ( TXT ; [ 検索TXT1 ; 置換TXT1 ]; [ 検索TXT2 ; 置換TXT2 ]; .... )
    //  [ 検索TXT1 ; 置換TXT1 ] の部分を曜日ラベルと1日から31日まで
    //

    COLOR_CALENDAR_TEMP =
    Substitute (
        CALENDAR_TEMP ;

        // 曜日ラベル
        [ "Su" ; TextColor ( "Su" ; HOLIDAY_COLOR ) ] ;

        // 1日
        [ Case (
            DayOfWeek ( FIRST_DATE ) = 1 or             // 日曜日 or
            not IsEmpty ( HolidayJ ( FIRST_DATE ) ) ;         // 休日 ;
            Right ( " " & Day ( FIRST_DATE ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 2日
        [ Case (
            DayOfWeek ( FIRST_DATE + 1 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 1 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 1 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 1 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 3日
        [ Case (
            DayOfWeek ( FIRST_DATE + 2 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 2 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 2 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 2 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 4日
        [ Case (
            DayOfWeek ( FIRST_DATE + 3 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 3 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 3 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 3 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 5日
        [ Case (
            DayOfWeek ( FIRST_DATE + 4 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 4 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 4 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 4 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 6日
        [ Case (
            DayOfWeek ( FIRST_DATE + 5 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 5 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 5 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 5 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 7日
        [ Case (
            DayOfWeek ( FIRST_DATE + 6 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 6 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 6 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 6 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 8日
        [ Case (
            DayOfWeek ( FIRST_DATE + 7 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 7 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 7 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 7 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 9日
        [ Case (
            DayOfWeek ( FIRST_DATE + 8 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 8 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 8 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 8 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 10日
        [ Case (
            DayOfWeek ( FIRST_DATE + 9 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 9 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 9 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 9 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 11日
        [ Case (
            DayOfWeek ( FIRST_DATE + 10 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 10 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 10 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 10 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 12日
        [ Case (
            DayOfWeek ( FIRST_DATE + 11 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 11 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 11 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 11 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 13日
        [ Case (
            DayOfWeek ( FIRST_DATE + 12 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 12 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 12 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 12 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 14日
        [ Case (
            DayOfWeek ( FIRST_DATE + 13 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 13 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 13 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 13 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 15日
        [ Case (
            DayOfWeek ( FIRST_DATE + 14 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 14 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 14 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 14 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 16日
        [ Case (
            DayOfWeek ( FIRST_DATE + 15 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 15 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 15 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 15 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 17日
        [ Case (
            DayOfWeek ( FIRST_DATE + 16 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 16 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 16 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 16 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 18日
        [ Case (
            DayOfWeek ( FIRST_DATE + 17 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 17 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 17 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 17 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 19日
        [ Case (
            DayOfWeek ( FIRST_DATE + 18 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 18 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 18 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 18 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 20日
        [ Case (
            DayOfWeek ( FIRST_DATE + 19 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 19 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 19 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 19 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 21日
        [ Case (
            DayOfWeek ( FIRST_DATE + 20 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 20 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 20 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 20 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 22日
        [ Case (
            DayOfWeek ( FIRST_DATE + 21 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 21 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 21 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 21 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 23日
        [ Case (
            DayOfWeek ( FIRST_DATE + 22 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 22 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 22 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 22 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 24日
        [ Case (
            DayOfWeek ( FIRST_DATE + 23 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 23 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 23 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 23 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 25日
        [ Case (
            DayOfWeek ( FIRST_DATE + 24 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 24 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 24 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 24 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 26日
        [ Case (
            DayOfWeek ( FIRST_DATE + 25 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 25 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 25 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 25 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 27日
        [ Case (
            DayOfWeek ( FIRST_DATE + 26 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 26 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 26 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 26 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 28日
        [ Case (
            DayOfWeek ( FIRST_DATE + 27 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 27 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 27 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 27 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 29日
        [ Case (
            N ≥ 29 and
            DayOfWeek ( FIRST_DATE + 28 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 28 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 28 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 28 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 30日
        [ Case (
            N ≥ 30 and
            DayOfWeek ( FIRST_DATE + 29 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 29 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 29 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 29 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 31日
        [ Case (
            N ≥ 31 and
            DayOfWeek ( FIRST_DATE + 30 ) = 1 or
            not IsEmpty ( HolidayJ ( FIRST_DATE + 30 ) ) ;
            Right ( " " & Day ( FIRST_DATE + 30 ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( FIRST_DATE + 30 ) ; 2 ) & " " ; HOLIDAY_COLOR ) ] ;

        // 今日
        [ Case (
        Year ( Get ( 日付 ) ) = Y and Month ( Get ( 日付 ) ) = M ;
            Right ( " " & Day ( Get ( 日付 ) ) ; 2 ) & " "
            ) ;
        TextColor ( Right ( " " & Day ( Get ( 日付 ) ) ; 2 ) & " " ; TODAY_COLOR ) ]

    ) ;     //----- 色の置換終了 ------------------------------------------------

    //
    // 最終的なカレンダーの文字列に改行を加えていく
    //

    CALENDAR =
    Middle ( COLOR_CALENDAR_TEMP ; 1 ; 20 ) & "¶" &
    Middle ( COLOR_CALENDAR_TEMP ; 22 ; 20 ) & "¶" &
    Middle ( COLOR_CALENDAR_TEMP ; 43 ; 20 ) & "¶" &
    Middle ( COLOR_CALENDAR_TEMP ; 64 ; 20 ) & "¶" &
    Middle ( COLOR_CALENDAR_TEMP ; 85 ; 20 ) & "¶" &
    Middle ( COLOR_CALENDAR_TEMP ; 106 ; 20 ) & "¶" &
    Middle ( COLOR_CALENDAR_TEMP ; 127 ; 20 )

    ] ;  // === Let_End ==================================

    // 等幅Fontを指定;"Courier New";"Osaka−等幅"
    // Mac,Win共通で利用できる"Courier New"を指定
    Case (
        not ( IsEmpty ( M ) or IsEmpty ( Y ) ) ;
        TextStyleAdd ( TextFont ( CALENDAR ; "Courier New" ; 英語 ) ; 太字 )
    )
)

// ©2004,SHAMOTO Syuji

HolidayJ ( 日付 )

Mon, 17 Jan 2011 06:32:40 GMT

// 作者 : 社本修司
// 概要 : 指定する日付が日本の祝日の場合、その祝日名を返します。
// カスタム関数    HolidayJ ( 日付 )

/*==============================================================

  カスタム関数    HolidayJ ( 日付 )

  CopyRight©2004,SHAMOTO Syuji


  指定された日付が祝日の場合、祝日名を得ます。（2005年10月1日現在）

  対象範囲
  国民の祝日に関する法律（祝日法）の施行された1948（昭和23）年7月20日以降
  （振替休日は1973（昭和48）年4月12日制定・施行）
  春分・秋分の簡易計算の出来る範囲（1851〜2150）
  春分・秋分の日の計算は「新こよみの便利帳」（恒星社厚生閣刊）による
  祝日としての春分・秋分の日は閣議で決定され前年の2月の官報に公示される。

  このカスタム関数を引用するに当たっては、必ずコメントも一緒に引用してください。

=============================================================*/

Let (

    [  // === Let_Start ==================================

    theDate = 日付 ;
    Y = Year ( theDate ) ;             // theDate の年

// === HOLIDAYLIST START ==============================

    HOLIDAYLIST =

    //
    // 祝日名<改行> 日付 <改行>の形式のリスト
    // システム書式にとらわれないようにするために、( 日付 * 1 ) で日付を数値化
    //

     "祝日" & "¶¶" &
    Case (
        Y ≥ 1948 and Y ≤ 2150 ;

    //
    // 元旦（1月1日）1948.07.20制定
    // New Year's Day (Gantan)
    //

         "元旦¶" &
        Case ( Y ≥ 1949 ; Date ( 1 ; 1 ; Y ) * 1 ) & "¶" &

    //
    // 成人の日（1月15日）1948.07.20制定
    // 成人の日（1月第2月曜）1998.10.21制定 2000.01.01施行
    // Coming of Age Day (Seijin-no-hi)
    //

         "成人の日¶" &
        Case (
            Y ≥ 2000;
                Date ( 1 ; 15 - DayOfWeek ( Date ( 1 ; 6 ; Y ) ) ; Y ) ;
            Y ≥ 1949;
                Date ( 1 ; 15 ; Y )
        ) * 1 & "¶" &

    //
    // 建国記念の日（2月11日）1966.6.25制定
    // National Foundation Day (Kenkoku-kinen-no-hi)
    //

         "建国記念の日¶" &
        Case ( Y ≥ 1967 ; Date ( 2 ; 11 ; Y ) * 1 ) & "¶" &

    //
    // 春分の日（春分日）1948.07.20制定
    // Vernal Equinox (Shunbun-no-hi)
    //

         "春分の日¶" &
        Case (
            Y ≤ 1899 and Y ≥ 1851;
                Date ( 3 ; Int ( 19.8277 + .242194 * ( Y - 1980 ) - Int ( ( Y - 1983 ) / 4 ) ) ; Y ) ;
            Y ≤ 1979;
                Date ( 3 ; Int ( 20.8357 + .242194 * ( Y - 1980 ) - Int ( ( Y - 1983 ) / 4 ) ) ; Y ) ;
            Y ≤ 2099;
                Date ( 3 ; Int ( 20.8431 + .242194 * ( Y - 1980 ) - Int ( ( Y - 1980 ) / 4 ) ) ; Y ) ;
            Y ≤ 2150;
                Date ( 3 ; Int ( 21.851 + .242194 * ( Y - 1980 ) - Int ( ( Y - 1980 ) / 4 ) ) ; Y )
        ) * 1 & "¶" &

    //
    // 天皇誕生日（4月29日）1948.07.20制定
    // Emperor's Birthday (Tennou-tanjyou-bi)
    //

         "天皇誕生日¶" &
        Case ( Y ≥ 1949 and Y ≤ 1988 ; Date ( 4; 29; Y ) * 1 ) & "¶" &

    //
    // みどりの日（4月29日）1989.02.17制定
    // Greenery Day (Midori-no-hi)
    //

         "みどりの日¶" &
        Case ( Y ≥ 1989 and Y ≤ 2006 ; Date ( 4 ; 29 ; Y ) * 1 ) & "¶" &

    //
    // 昭和の日（4月29日）2005.05.20制定 2007.01.01施行
    // Showa's Day (Showa-no-hi)
    //

         "昭和の日¶" &
        Case ( Y ≥ 2007 ; Date ( 4 ; 29 ; Y ) * 1 ) & "¶" &

    //
    // 憲法記念日（5月3日）1948.07.20制定
    // Constitution Memorial Day (Kenpou-kinen-bi)
    //

         "憲法記念日¶" &
        Case ( Y ≥ 1949 ; Date ( 5 ; 3 ; Y ) * 1 ) & "¶" &

    //
    // 国民の休日 1985.12.27制定
    // Holiday for a Nation (Kokumin-no-kyujitsu)

    // 国民の祝日に関する法律第3条3項（1985.12.27施行）
    // その前日及び翌日が「国民の祝日」である日
    // （日曜日にあたる日及び前項に規定する休日にあたる日を除く。）
    // は、休日とする。
    // 「国民の休日」は通称名
    // ※振り替え休日が優先されるので国民の休日が月曜日になることはない。
    //

         "国民の休日¶" &
        Case (
            Y ≥ 1986  and Y ≤ 2006 and DayOfWeek ( Date ( 5 ; 4 ; Y ) ) ≥ 3 ;
                Date ( 5 ; 4 ; Y )
        ) * 1 & "¶" &

    //
    // みどりの日（5月4日）2005.05.20制定 2007.01.01施行
    // Greenery Day (Midori-no-hi)
    //

         "みどりの日¶" &
        Case ( Y ≥ 2007; Date ( 5; 4; Y ) * 1 ) & "¶" &

    //
    // こどもの日（5月5日）1948.07.20制定
    // Children's Day (Kodomo-no-hi)
    //

         "こどもの日¶" &
        Case ( Y ≥ 1949; Date ( 5; 5; Y ) * 1 ) & "¶" &

    //
    // 海の日（7月20日）1995.03.08制定 1996.01.01施行
    // 海の日（7月第3月曜日）2001.06.22制定 2003.01.01施行
    // Marine Day (Umi-no-hi)
    //

         "海の日¶" &
        Case (
            Y ≥ 2003 ;
                Date ( 7 ; 22 - DayOfWeek ( Date ( 7 ; 6 ; Y ) ) ; Y ) ;
            Y ≥ 1996 ;
                Date ( 7 ; 20 ; Y )
        ) * 1 & "¶" &

    //
    // 敬老の日（9月15日）1966.06.25制定
    // 敬老の日（9月第3月曜日）2001.06.22制定 2003.01.01施行
    // Respect for the Aged Day (Keirou-no-hi)
    //

         "敬老の日¶" &
        Case (
            Y ≥ 2003 ;
            Date ( 9 ; 22 - DayOfWeek ( Date ( 9 ; 6 ; Y ) ) ; Y ) ;
            Y ≥ 1966 ;
            Date ( 9 ; 15 ; Y )
        ) * 1 & "¶" &

    //
    // 国民の休日
    // Holiday for a Nation (Kokumin-no-kyujitsu)
    // 敬老の日が第3月曜日に改正されたことにより派生
    // 秋分の日が水曜日になる年
    // 2009,2015,2026,2032,2037,2043,2049,2054,2060,2071,2077,
    // 2088,2094,2099,2105,2111,2116,2122,2133,2139,2150...
    //

         "国民の休日¶" &
        Case (
            Y ≥ 2003 and
            Case (
                Y ≤ 2099 ;
                    Date ( 9 ; Int ( 23.2488 + .242194 * ( Y - 1980 ) - Int ( ( Y - 1980 ) / 4 ) ) ; Y ) ;
                Y ≤ 2150 ;
                    Date ( 9 ; Int ( 24.2488 + .242194 * ( Y - 1980 ) - Int ( ( Y - 1980 ) / 4 ) ) ; Y )
            ) - 2 = Date ( 9 ; 22 - DayOfWeek ( Date ( 9 ; 6 ; Y ) ) ; Y ) ;
                Case (
                    Y ≤ 2099 ;
                        Date ( 9 ; Int ( 23.2488 + .242194 * ( Y - 1980 ) - Int ( ( Y - 1980 ) / 4 ) ) ; Y ) ;
                    Y ≤ 2150 ;
                        Date ( 9 ; Int ( 24.2488 + .242194 * ( Y - 1980 ) - Int ( ( Y - 1980 ) / 4 ) ) ; Y )
                ) -1
        ) * 1 & "¶" &

    //
    // 秋分の日（秋分日）1948.07.20制定
    // Autumnal Equinox (Shuubun-no-hi)
    //

         "秋分の日¶" &
        Case (
            Y ≤ 1899 and Y ≥ 1851;
                Date ( 9; Int ( 22.2588+.242194* ( Y - 1980 ) - Int ( ( Y-1983 ) / 4 ) ) ; Y ) ;
            Y ≤ 1979;
                Date ( 9; Int ( 23.2588+.242194* ( Y - 1980 ) - Int ( ( Y - 1983 ) / 4 ) ) ; Y ) ;
            Y ≤ 2099;
                Date ( 9; Int ( 23.2488+.242194* ( Y - 1980 ) - Int ( ( Y - 1980 ) / 4 ) ) ; Y ) ;
            Y ≤ 2150;
                Date ( 9; Int ( 24.2488+.242194* ( Y - 1980 ) - Int ( ( Y - 1980 ) / 4 ) ) ; Y )
        ) * 1 & "¶" &

    //
    // 体育の日（10月10日）1966.06.25制定
    // 体育の日（10月第2月曜日）1998.10.21制定 2000.01.01施行
    // Health and Sports Day (Taiku-no-hi)
    //

         "体育の日¶" &
        Case (
            Y ≥ 2000 ;
                Date ( 10 ; 15 - DayOfWeek ( Date ( 10 ; 6 ; Y ) ) ; Y ) ;
            Y ≥ 1966;
                Date ( 10 ; 10 ; Y )
        ) * 1 & "¶" &

    //
    // 文化の日（11月3日）1948.07.20制定
    // National Culture Day (Bunka-no-hi)
    //

         "文化の日¶" &
        Case ( Y ≥ 1948 ; Date ( 11 ; 3 ; Y ) * 1 ) & "¶" &

    //
    // 勤労感謝の日（11月23日）1948.07.20制定
    // Labor Thanksgiving Day (Kinrou-kansha-no-hi)
    //

         "勤労感謝の日¶" &
        Case ( Y ≥ 1948 ; Date ( 11 ; 23 ; Y ) * 1 ) & "¶" &

    //
    // 天皇誕生日（12月23日）1989.02.17制定
    // Emperor's Birthday (Tennou-tanjyou-bi)
    //

         "天皇誕生日¶" &
        Case ( Y ≥ 1989 ; Date ( 12 ; 23 ; Y ) * 1 ) & "¶" &

    //
    // 皇太子明仁親王の結婚の儀（昭和34年4月10日）
    // The Rite of Wedding of His Imperial Highness Crown Prince Akihito
    // (Koutaishi-AKIHITO-shinno-no-kekkonn-no-gi)
    //

         "皇太子明仁親王の結婚の儀¶" &
        Case ( Y = 1959 ; Date ( 4 ; 10 ; Y ) * 1 ) & "¶" &

    //
    // 昭和天皇の大喪の礼（平成元年2月24日）
    // The Funeral Ceremony of Emperor Showa
    // (SHOWA-tennou-no-taisou-no-rei)
    //

         "昭和天皇の大喪の礼¶" &
        Case ( Y = 1989 ; Date ( 2 ; 24 ; Y ) * 1 ) & "¶" &

    //
    // 即位礼正殿の儀（平成2年11月12日）
    // The Ceremony of the Enthronement of His Majesty the Emperor (at the Seiden)
    // (Sokuirei-seiden-no-gi)
    //

         "即位礼正殿の儀¶" &
        Case ( Y = 1990 ; Date ( 11 ; 12 ; Y ) * 1 ) & "¶" &

    //
    // 皇太子徳仁親王の結婚の儀（平成5年6月9日）
    // The Rite of Wedding of His Imperial Highness Crown Prince Naruhito
    // (Koutaishi-NARUHITO-shinno-no-kekkonn-no-gi)
    //

         "皇太子徳仁親王の結婚の儀¶" &
        Case ( Y = 1993 ; Date ( 6 ; 9 ; Y ) * 1 ) & "¶"

    ) ;
// === HOLIDAYLIST END ================================

    //
    // HOLIDAYLIST 内の theDate の位置
    //

    P = Position ( HOLIDAYLIST ; ( theDate * 1 ) ; 1 ; 1 ) ;

    //
    // theDate に対する祝日名の書かれた行が HOLIDAYLIST の何行目か
    //

    LINE = PatternCount ( Left ( HOLIDAYLIST ; P ) ; "¶" )

    ] ;  // === Let_End ==================================

    //
    // 祝日名（ HOLIDAYLIST の LINE（ theDate の一つ前）の行）
    //

    Case (
        not IsEmpty ( theDate ) ;
            Case (
                // theDate が HOLIDAYLIST に含まれる場合
                PatternCount ( HOLIDAYLIST ; ( theDate * 1 ) ) ;
                    Substitute ( MiddleValues ( HOLIDAYLIST ; LINE ; 1 ) ; "¶" ; "" ) ;

                //
                // 2005.05.20 の法改正で
                // 「国民の祝日」が日曜日に当たるときは、その日後においてその日に最も近い「国民の祝日」でない日を休日とする。
                // と振替休日の定義が変更になっている
                //

                // 5月3日、5月4日が日曜日の場合は5月6日は振替休日

                theDate ≥ Date ( 1 ; 1 ; 2007 ) and
                theDate  = Date ( 5 ; 6 ; Y ) and
                (
                    DayOfWeek ( Date ( 5 ; 3 ; Y ) ) = 1 or
                    DayOfWeek ( Date ( 5 ; 4 ; Y ) ) = 1
                ) ;
                     "振替休日" ;

                //
                // 振り替え休日（1973（昭和48）年4月12日施行）
                // Substitute Holiday
                //

                // theDate が月曜日でかつ theDate の前日が HOLIDAYLIST に含まれる場合
                theDate ≥ Date ( 4 ; 12 ; 1973 ) and
                DayOfWeek ( theDate ) = 2 and
                PatternCount ( HOLIDAYLIST; ( theDate * 1 ) - 1 ) ;
                     "振替休日"
        )
    )
)
// ©2004-2005,SHAMOTO Syuji

HNumtoDNum ( Value ; Resp ; K )

Mon, 17 Jan 2011 06:32:52 GMT

// 作者 : 小黒麻子
// 概要 : 16進数を10進数へ変換します。
// カスタム関数    HNumtoDNum ( Value ; Resp ; K )

Let (
    [
    K = K + 1 ;
    X =
    Case (
        Middle ( Value ; K ; 1 ) = "A" ;
            10 ;
        Middle ( Value ; K ; 1 ) = "B" ;
            11 ;
        Middle ( Value ; K ; 1 ) = "C" ;
            12 ;
        Middle ( Value ; K ; 1 ) = "D" ;
            13 ;
        Middle ( Value ; K ; 1 ) = "E" ;
            14 ;
        Middle ( Value ; K ; 1 ) = "F" ;
            15 ;
        Middle ( Value ; K ; 1 )
    ) ;
    Atai = GetAsText ( X * ( 16 ^ ( Length ( Value ) - K ) ) ) + Resp
    ] ;
    Case (
        K < Length ( Value ) ;
            HNumtoDNum ( Value ; Atai ; K ) ;
        K = Length ( Value ) ;
            Atai
    )
)

BNumtoDNum ( Value ; Resp ; K )

Mon, 17 Jan 2011 06:32:52 GMT

// 作者 : 小黒麻子
// 概要 : 2進数を10進数へ変換します。
// カスタム関数    BNumtoDNum ( Value ; Resp ; K )

Let (
    [
    K = K + 1 ;
    X = Middle ( Value ; K ; 1 ) ;
    Atai = GetAsText ( X * ( 2 ^ ( Length ( Value ) - K ) ) ) + Resp
    ] ;
    Case (
        K < Length ( Value ) ;
            BNumtoDNum ( Value ; Atai ; K ) ;
        K = Length ( Value ) ;
            Atai
    )
)

DNumtoHNum ( Value ; Resp )

Mon, 17 Jan 2011 06:32:52 GMT

// 作者 : 小黒麻子
// 概要 : 10進数を16進数へ変換します。
// カスタム関数    DNumtoHNum ( Value ; Resp )

Let (
    [
    X = Int ( Value / 16 ) ;
    Amari =
    GetAsText (
        Choose (
            Mod ( Value ; 16 ) ;
                "" ; 1 ; 2 ; 3 ; 4 ; 5 ; 6 ; 7 ; 8 ; 9 ; "A" ; "B" ; "C" ; "D" ; "E"
        )
    ) & Resp
    ] ;
    Case (
        X ≠ 0 ;
            DNumtoHNum ( X ; Amari ) ;
            Amari
    )
)

DNumtoBNum ( Value ; Resp )

Mon, 17 Jan 2011 06:32:52 GMT

// 作者 : 小黒麻子
// 概要 : 10進数を2進数へ変換します。
// カスタム関数    DNumtoBNum ( Value ; Resp )

Let (
    [
    X = Int ( Value / 2 ) ;
    Amari = GetAsText ( Mod ( Value ; 2 ) ) & Resp
    ] ;
    Case (
        X ≠ 0 ;
            DNumtoBNum ( X ; Amari ) ;
            Amari
    )
)

HexTextColor ( text ; color )

Mon, 17 Jan 2011 06:32:52 GMT

// 作者 : 村上ゆりか
// 概要 : TextColorの色指定をRGBではなくて16進法で指定できます
// カスタム関数    HexTextColor ( text ; color )

/*TextColorの色指定をRGBではなくて16進法で指定*/
Let (
    [
    hexinput = color ;
    RH = Middle ( hexinput ; 2 ; 2 ) ;
    GH = Middle ( hexinput ; 4 ; 2 ) ;
    BH = Middle ( hexinput ; 6 ; 2 ) ;
    txt = text ;

    R = Position ( "0123456789ABCDEF" ; Right ( RH ; 1 ) ; 1 ; 1 ) - 1
        + ( Position ( "0123456789ABCDEF" ; Left ( RH ; 1 ) ; 1 ; 1 ) - 1 ) * 16 ;
    G = Position ( "0123456789ABCDEF" ; Right ( GH ; 1 ) ; 1 ; 1 ) - 1
        + ( Position ( "0123456789ABCDEF" ; Left ( GH ; 1 ) ; 1 ; 1 ) - 1 ) * 16 ;
    B = Position ( "0123456789ABCDEF" ; Right ( BH ; 1 ) ; 1 ; 1 ) - 1
        + ( Position ( "0123456789ABCDEF" ; Left ( BH ; 1 ) ; 1 ; 1 ) - 1 ) *16
    ];

    TextColor ( txt ; RGB ( R ; G ; B ) )
)

MonthNameCustm ( TheDay ; Type )

Mon, 17 Jan 2011 06:32:52 GMT

// 作者 : 高岡幸生
// 概要 : 日付に対応する月の英語名を返します。
// カスタム関数    MonthNameCustm ( TheDay ; Type )

/*この関数は「MonthName ( 日付 )」関数の戻り値に従った月名を返します。*/
/*【引数】TheDay：月を求める日付　　Type：月の表現　Type=1：Long Type=2：Short*/

Let (
    mn = MonthName ( TheDay );

    Case (
        Type = 1;
            Case (
                mn = 1 ; "January";
                mn = 2 ; "February";
                mn = 3 ; "March";
                mn = 4 ; "April";
                mn = 5 ; "May";
                mn = 6 ; "June";
                mn = 7 ; "July";
                mn = 8 ; "August";
                mn = 9 ; "September";
                mn = 10 ; "October";
                mn = 11 ; "November";
                mn = 12 ; "December" ;
                mn
            );
        Type = 2;
            Case (
                mn = 1 ; "Jan";
                mn = 2 ; "Feb";
                mn = 3 ; "Mar";
                mn = 4 ; "Apr";
                mn = 5 ; "May";
                mn = 6 ; "Jun";
                mn = 7 ; "Jul";
                mn = 8 ; "Aug";
                mn = 9 ; "Sep";
                mn = 10 ; "Oct";
                mn = 11 ; "Nov";
                mn = 12 ; "Dec" ;
                Left ( mn ; 3 )
            ) ;
    )
)

ageComplex ( Birthday ; TheDay )

Mon, 17 Jan 2011 06:32:51 GMT

// 作者 : 高岡幸生
// 概要 : 年齢の計算を行います。
// カスタム関数    ageComplex ( Birthday ; TheDay )

/*誕生日を元にして、指定日現在の年齢を計算します。*/
Let (
    Calc = Case ( IsEmpty ( TheDay ) ; Get ( 日付 ) ; TheDay ) ;

    Year ( Calc )
    - Year ( Birthday )
    - ( TheDay < Date ( Month ( Birthday ) ; Day ( Birthday ) ; Year ( Calc ) ) )
)

CalcPoint ( Win ; Draw )

Mon, 17 Jan 2011 06:32:51 GMT

// 作者 : 給前悟郎
// 概要 : Jリーグの勝ち点を計算する関数です。勝ちと引き分けの数を引数にいれると、勝ち点が戻ってきます
// カスタム関数 CalcPoint ( Win ; Draw )

Win * 3 + Draw * 1

Ext_Substitute ( 元テキスト ; 検索・置換テキスト )

Mon, 17 Jan 2011 06:32:51 GMT

// 作者 : 給前悟郎
// 概要 : Substitute関数を機能拡張し、複数の置換条件を指定可能とします
// カスタム関数    Ext_Substitute ( 元テキスト ;  検索・置換テキスト )

/*Substitute関数を機能拡張し、複数の置換条件を指定可能とします*/
Let (
    [
    pos = Position ( 検索・置換テキスト ; ";" ; 1 ; 1 );
    pos2 = Position ( 検索・置換テキスト ; "/" ; 1 ; 1 );
    text = 元テキスト;
    keyword = 検索・置換テキスト
    ];
    Case (
        // 置換条件が複数ある
        PatternCount ( keyword ; ";" ) > 0;
            Ext_Substitute (
                Substitute (
                    text;
                    Middle ( keyword ; 1 ; pos2 - 1 );
                    Middle ( keyword ; pos2 + 1 ; pos - pos2 -1 )
                );
                Middle ( keyword ; pos + 1 ; 9999999 )
            ) ;
        // 置換条件は一個だけ
        PatternCount ( keyword ; ";" ) = 0 ;
            Substitute (
                text ;
                Middle ( keyword ; 1 ; pos2 - 1 ) ;
                Middle ( keyword ; pos2 + 1 ; 9999999 )
            )
    )
)