みんなに優しく、解りやすくをモットーに開設しています。 以下のルールを守りみんなで助け合いましょう。
1.ファイルメーカーで解らない事があればここで質問して下さい。 何方でも、ご質問・ご回答お願いします。 (優しく回答しましょう)
You are not logged in.
Hiroさん、早々の回答を有りがとうございます。
あとはこれを 請求日、納品日などに貼付でいけばいいだけです。
お世話になったみなさん、有りがとう。
Hiroさん。解決したものと、ボケーッとしていました。
早速
& Case(Filter(#年号;"元")=""; Right(#書式&RightWords(#年号;1); 2));
を
& Case(#年号*1; Right(#書式&#年号*1; 2));
に書き換えて、スマートになりました。
明治元年以前の 1868/9/7 を入れると 西暦68年 9月 7日 となりますが、それ以降は全く問題ありません。
もっとも、いまどき見積書や請求書に、平成・令和以外を使うことはありませんが。
令和になりました。
テストではなく、実際に「令和元年 5月 1日」付けの請求書を発行しました。
正に問題解決です。皆さん、有りがとうございました。
// 形式 0:R1 :令和元 2:令元
// 表示 0:年1月1日 1:/1/1 2:/01/01 3:/ 1/ 1
Let ( [
令和=Date(5;1;2019);
平成=Date(1;8;1989);
昭和=Date(12;25;1926);
大正=Date(7;30;1912);
明治=Date(9;8;1868);
] ;
Case (
Year ( 日付 ) > Year ( 令和 ) ; Choose ( 形式 ; "令和" ; "令" ; "R" ) & ( Year ( 日付 ) - Year ( 令和 ) + 1 ) ;
日付 >= 令和 ; Choose ( 形式 ; "令和元" ; "令元" ; "R1" ) ;
Year ( 日付 ) > Year ( 平成 ) ; Choose ( 形式 ; "平成" ; "平" ; "H" ) & ( Year ( 日付 ) - Year ( 平成 ) + 1 ) ;
日付 >= 平成 ; Choose ( 形式 ; "平成元" ; "平元" ; "H1" ) ;
Year ( 日付 ) > Year ( 昭和 ) ; Choose ( 形式 ; "昭和" ; "昭" ; "S" ) & ( Year ( 日付 ) - Year ( 昭和 ) + 1 ) ;
日付 >= 昭和 ; Choose ( 形式 ; "昭和元" ; "昭" ; "S11" )"昭和元" ;
Year ( 日付 ) > Year ( 大正 ) ; Choose ( 形式 ; "大正" ; "大" ; "T" ) & ( Year ( 日付 ) - Year ( 大正 ) + 1 ) ;
日付 >= 大正 ; Choose ( 形式 ; "大正元" ; "大元" ; "T1" ) ;
Year ( 日付 ) > Year ( 平成 ) ; Choose ( 形式 ; "明治" ; "明" ; "M1" ) & ( Year ( 日付 ) - Year ( 明治 ) + 1 ) ;
日付 >= 明治 ; Choose ( 形式 ; "明治元" ; "明元" ; "M1" ) ;
"西暦" & Year ( 日付 )
)
& Choose ( 表示 ; "年" ; "/" ; "/" ; "/" )
& Choose ( 表示 ; Month ( 日付 ) & "月" ; Month ( 日付 ) & "/" ; Right ( "00" & Month ( 日付 ) ; 2 ) & "/" ; Right ( " " & Month ( 日付 ) ; 2 ) & "/" )
& Choose ( 表示 ; Day ( 日付 ) & "日" ; Day ( 日付 ) ; Right ( "00" & Day ( 日付 ) ; 2 ) ; Right ( " " & Day ( 日付 ) ; 2 ) )
)
Last edited by Shin (2019-05-02 10:45:29)
Offline
Shinさん、分からないままに
Let (
[
#日付 = 請求日 ;
#令和=Date(5;1;2019);
#年号=
Case(
Year(#日付)>Year(#令和); "令和"&(Year(#日付)-Year(#令和)+1);
#日付>=#令和; "令和元";
YearName(#日付;0)
);
#書式=" "; /* ←※ スペース挿入は " "、ゼロは "0"、ナシは "" を指定 */
#年=LeftWords(#年号;1)
& Case(#年号*1; Right(#書式&#年号*1; 2));
#月=Right(#書式&Month(#日付); 2);
#日=Right(#書式&Day(#日付); 2)
];
#年&"年" & #月&"月" & #日&"日"
)
だったのを
Let (
[
#日付 = 請求日 ;
#令和=Date(5;1;2019);
#年号=
Case(
Year(#日付)>Year(#令和); "令和"&(Year(#日付)-Year(#令和)+1);
#日付>=#令和; "令和元";
YearName(#日付;0)
);
#書式=" "; /* ←※ スペース挿入は " "、ゼロは "0"、ナシは "" を指定 */
& "年" & Right ( " " & Month ( #日付 ) ; 2 ) & "月" & Right ( " " & Day ( #日付 ) ; 2 ) & "日"
];
#年&"年" & #月&"月" & #日&"日"
)
に書き換えて見ましたが、
「この計算式では、一覧を使用できません」と叱られます。
元のままでいいのでは。
Offline
元のままでいいのでは。
自分なりにやってみましたが、「OK」が出ませんでした。
請求書に「R1/5/2」「R1年5月2日」などと書くことはありませんから(負け惜しみじゃなくて)
元のままにしておきます。(満足していますから)
[ Generated in 0.005 seconds, 9 queries executed - Memory usage: 516.9 KiB (Peak: 521.44 KiB) ]