初心者のFileMaker pro Q&A (旧掲示板)

みんなに優しく、解りやすくをモットーに開設しています。 以下のルールを守りみんなで助け合いましょう。

1.ファイルメーカーで解らない事があればここで質問して下さい。 何方でも、ご質問・ご回答お願いします。 (優しく回答しましょう)

You are not logged in.

Announcement

新しい掲示板は、こちら:https://fm-aid.com/forum/t/filemaker


#26 2019-04-07 15:55:26

まろ爺
Guest

Re: 令和になるので

Hiroさん、早々の回答を有りがとうございます。
あとはこれを 請求日、納品日などに貼付でいけばいいだけです。
お世話になったみなさん、有りがとう。

#27 2019-04-10 11:21:30

まろ爺
Guest

Re: 令和になるので

Hiroさん。解決したものと、ボケーッとしていました。
早速
     & Case(Filter(#年号;"元")=""; Right(#書式&RightWords(#年号;1); 2));

           & Case(#年号*1; Right(#書式&#年号*1; 2));
に書き換えて、スマートになりました。

明治元年以前の 1868/9/7 を入れると 西暦68年 9月 7日 となりますが、それ以降は全く問題ありません。
もっとも、いまどき見積書や請求書に、平成・令和以外を使うことはありませんが。

#28 2019-05-02 09:30:07

まろ爺
Guest

Re: 令和になるので

令和になりました。
テストではなく、実際に「令和元年 5月 1日」付けの請求書を発行しました。
正に問題解決です。皆さん、有りがとうございました。

#29 2019-05-02 10:01:13

Shin
Member

Re: 令和になるので

//    形式    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

#30 2019-05-02 11:10:54

まろ爺
Guest

Re: 令和になるので

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 ) & "日"
];
   #年&"年" & #月&"月" & #日&"日"
)

に書き換えて見ましたが、
「この計算式では、一覧を使用できません」と叱られます。

#31 2019-05-02 16:06:56

Shin
Member

Re: 令和になるので

元のままでいいのでは。

Offline

#32 2019-05-02 16:56:25

まろ爺
Guest

Re: 令和になるので

Shin wrote:

元のままでいいのでは。

自分なりにやってみましたが、「OK」が出ませんでした。

請求書に「R1/5/2」「R1年5月2日」などと書くことはありませんから(負け惜しみじゃなくて)
元のままにしておきます。(満足していますから)

Registered users online in this topic: 0, guests: 1
[Bot] claudebot

Board footer

Powered by FluxBB
Modified by Visman

[ Generated in 0.006 seconds, 9 queries executed - Memory usage: 518.84 KiB (Peak: 523.38 KiB) ]