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

抜刀才

Guest

年数の計算

フィールドＡ、Ｂ、Ｃ、Ｄと4つあります。すべて日付が入力できるようになっております。
フィールドＡには必ず日付が入力されています。
フィールドＢに日付がある場合はＡより後の日付でＣにも日付が入力されています。
その場合はＢより後の日付です。
フィールドＤに日付が入力されている場合はＡＢＣ全部に日付が入力されていて
日付は 過去 Ａ → Ｂ → Ｃ → Ｄ 未来
の順になっております。

フィールドＥに年数を自動計算で入れたいのですが計算式を教えてください。
ＢＣＤが未入力の場合は、Ａから現在まで
ＡＢＣが入力されている場合はＡからＢまでの年数プラスＣから現在までの年数
ＡＢＣＤが入力されている場合はＡからＢまでの年数プラスＣからＤまでの年数

仮にＡからＢが3年11か月、ＣからＤが2年2か月の場合はＥには6年としたいです。

よろしくお願いします。

チポ

Member

Re: 年数の計算

AとBのみに入力の場合は？

また、
> 仮にＡからＢが3年11か月、ＣからＤが2年2か月の場合はＥには6年
二つの期間の和 - ひと月
ということ？

「日」の大小はどう考えます？

抜刀才

Guest

Re: 年数の計算

>AとBのみに入力の場合は？

その場合はAからBの期間でお願いします。

>二つの期間の和 - ひと月
>ということ？
>「日」の大小はどう考えます？
日はすべて切り捨てでお願いしたいです。

よろしくお願いいたします。

Shin

Member

Re: 年数の計算

Let (
[
    YMa = Year ( A ) * 12 + Month ( A ) ;
    bb = Case ( IsEmpty ( B ) ; Get ( 日付 ) ; B ) ;
    YMb = Year ( bb ) * 12 + Month ( bb ) ;
    YMc = Year ( C ) * 12 + Month ( C ) ;
    dd = Case ( IsEmpty ( C ) ; "" ; IsEmpty ( D ) ; Get ( 日付 ) ; D ) ;
    YMd = Year ( dd ) * 12 + Month ( dd ) ;
    du = YMb - YMa + YMd - YMc
] ;
    Div ( du ; 12 ) & "年" & Mod ( du ; 12 ) & "月"
)
月数の数え方で小さな修正が必要になるかも。

Last edited by Shin (2020-12-11 08:52:05)

抜刀才

Guest

Re: 年数の計算

ご回答ありがとうございます。
ちなみに今ﾌｧｲﾙﾒｰｶｰ Pro 5.0 でやっているのですが
古すぎてうまくいきません。
よろしくお願いします。

チポ

Member

Re: 年数の計算

考え方は
  Case ( IsEmpty ( B ) ; Get ( 日付 ) ; B ) - A + ( Case ( not IsEmpty ( C ) ; Case  ( IsEmpty ( D ) ; Get ( 日付 ) ; D ) - C ; 0 )
これでいいでしょう。

実際には、A,B,C.Dはそのままの日付ではなく、
年 * 12 + 月
とした方がいいでしょう。

こうして得られる値は期間の月数です。
ひと月の補正が必要なら、-1を加えます。

FM5!!
20年以上前でしょうね。。
OSとのマッチングは大丈夫でしょうか？

抜刀才

Guest

Re: 年数の計算

最初のGet (でエラーがでてしまいます。

>実際には、A,B,C.Dはそのままの日付ではなく、
>年 * 12 + 月
>とした方がいいでしょう。

どういう意味でしょうか？
無知ですいません。

FM5はwin10でも問題なく使えています。
そこまで知識がないのでFM5で困っていないのが現状です。

チポ

Member

Re: 年数の計算

ああ、、、

Get ( 日付 )
に変えて
Today
か
Status ( 日付 )
のどちらかが使えるはずです。
・・記憶が定かではない・・

> 年 * 12 + 月
フィールドAを例にすると
  Year ( A ) * 12 + Month ( A )
とします。
これは月ごとに1ずつ増えるシリアル値になり、
年をまたいでも連続します。

Win10でか、、
あまり信用しない方がいいと思いますよ。。

抜刀才

Guest

Re: 年数の計算

Case ( IsEmpty ( B ) ; Today ; B ) - A + ( Case ( not IsEmpty ( C ) ; Case  ( IsEmpty ( D ) ; Today ; D ) - C ; 0 )
Case ( IsEmpty ( B ) ; Status ( 日付 ) ; B ) - A + ( Case ( not IsEmpty ( C ) ; Case  ( IsEmpty ( D ) ; Status ( 日付 ) ; D ) - C ; 0 )

これではやはりエラーになってしまいます。
上の式ですと   Today ; B
下の式ですと   Status (
でエラーになります。

> 年 * 12 + 月
>フィールドAを例にすると
>Year ( A ) * 12 + Month ( A )

フィールドA,B,C,Dは日付をいれているので
そこからそれぞれ計算のフィールドを作成した方がよろしいでしょうか？

よろしくお願いいたします。

チポ

Member

Re: 年数の計算

ああ、まだ間違っていました。。。

> Case ( IsEmpty ( B ) ; Today ; B ) - A
                                  ↑
               このセミコロンを全て「,」カンマに変えてください

6か8で変わったんだたかな・・

日付からの変換はフィールドにしてもいいですし、
式の中で計算してもいいです。
やりやすい方でお試しください。

抜刀才

Guest

Re: 年数の計算

なかなかうまくいきません。
やはり古いのが原因なんですかね？

Case ( IsEmpty ( B ) , Today , B ) - A + ( Case ( not IsEmpty ( C ) , Case  ( IsEmpty ( D ) , Today , D ) - C , 0 )
ですと）が足りないみたいです。

またフィールドAが2020/08/01で
Year ( A ) * 12 + Month ( A )
の計算をすると
24248
でいいんでしょうか？

チポ

Member

Re: 年数の計算

ごめんなさい、最後が足りていませんでした。
  Case ( IsEmpty ( B ) ; Get ( 日付 ) ; B ) - A + ( Case ( not IsEmpty ( C ) ; Case  ( IsEmpty ( D ) ; Get ( 日付 ) ; D ) - C ; 0 ) )

2020/08/01は
  2020 * 12 + 8 = 24248
で合っていますね。

ちょっと見た目では意味が分からない数字ですが、
これで連続した値になり計算には都合がいいんです。

抜刀才

Guest

Re: 年数の計算

フィールドA、B、C、DをそれぞれフィールドAA、BB、CC、DDに変更し
それぞれをYear ( AA ) * 12 + Month ( AA )
にてフィールドA、B、C、Dを作成しました。
そこで

Case( IsEmpty( B ) , Today, B ) - A + ( Case( not IsEmpty( C ) , Case( IsEmpty( D ) , Today, D ) - C , 0 ))
をしたところ
フィールドAAに2019/8/1と入力したところ
結果が713534とでてしまいます。
1年もしくは1と出てほしいのですがどこが間違えていますか？

チポ

Member

Re: 年数の計算

Today
も他と同様に年月に変えないとダメでしょう。

抜刀才

Guest

Re: 年数の計算

>Today
>も他と同様に年月に変えないとダメでしょう。

どのようにしたらいいのですか？

チポ

Member

Re: 年数の計算

前と全く同じ考えでいいんですよ
  Year ( Today ) * 12 + Month ( Today )

抜刀才

Guest

Re: 年数の計算

Case( IsEmpty( Year ( B ) * 12 + Month ( B ) ) , Year ( Today ) * 12 + Month ( Today ), Year ( B ) * 12 + Month ( B ) ) - Year ( A ) * 12 + Month ( A ) + ( Case( not IsEmpty( Year ( C ) * 12 + Month ( C ) ) , Case( IsEmpty( Year ( D ) * 12 + Month ( D ) ) , Year ( Today ) * 12 + Month ( Today ), Year ( D ) * 12 + Month ( D ) ) - Year ( C ) * 12 + Month ( C ) , 0 ))

全部を1つにまとめるとこれであっていますか？

チポ

Member

Re: 年数の計算

> Case( IsEmpty( Year ( B ) * 12 + Month ( B ) )・・・
この条件式は単に
  IsEmpty ( B )
でいいでしょう。
以下同様です。

後はいい様ですね。。

himadanee

Guest

Re: 年数の計算

式の途中で適当に改行して、わかりやすく書く習慣にしましょう。
ファイルが開きっぱなしの場合（サーバで共有しているとか）、Todayの計算は日付が変わっても更新されないので要注意。

チポ

Member

Re: 年数の計算

Today関数はファイルが開かれるたびに評価されます。
Status ( 日付 )関数は、索引非保存にすれば毎日評価されます。

古い話しですが確かこれでいいかと。。

Shin

Member

Re: 年数の計算

FM5.5 のマニュアルを確認しましたが、Case() は並べてかけますので、入れ子にしなくても大丈夫ですよ。
Case(
    IsEmpty( B ) , Year ( Status( 日付 ) ) * 12 + Month ( Status( 日付 ) ),
    Year ( B ) * 12 + Month ( B )
)
  - Year ( A ) * 12 + Month ( A )
+ (
Case(
    IsEmpty( C ) , Year ( C ) * 12 + Month ( C ) ;
    IsEmpty( D ) , Year ( Status( 日付 ) ) * 12 + Month ( Status( 日付 ) ),
    Year ( D ) * 12 + Month ( D )
)
- Year ( C ) * 12 + Month ( C )
でいいでしょう。

FM5 が Win10 で動くんですね。標準の機能を標準的に使っている優等生のプログラムということでしょうね。MacOS は、OS 側が機能を変化させてしまっているので、4世代前のバージョンは動きが怪しいです。