Excelの関数で困っています。

質問

以前にも質問させて頂いたのですが
今３０日＝一ヶ月として、日付の計算をしています。
例（１２月１日＋３０=１月１日、２月１日＋４０＝３月１１日となるようにしたいのです。）

条件としてセルは三つまでしか使えません。

A1 起算日
B1 間の日数
C1 たされた結果の日付

今この関数を使って計算をしています。
A1+MATCH(B1,INDEX(DAYS360($A$1,$A$1+ROW(INDIRECT("A1:A"&B1+6))),,),1)
この関数をもっと簡単にして欲しいと言われたのですが…。
色々調べてみたのですが、まったく分からなかったので
また質問させて頂きました。

かなり困ってますのでよろしくお願い致します。

回答No.16

noname#79209

#15です。
上司の方が間違っているのか、質問者さんが間違っているのか、非常に観念的に（論理的でない=規則性があやふや）なのか解りませんが、
1/1+30日が2/1
というコメントを見たので修正。
=EOMONTH(A1,INT(B1/30)-1)+MOD(B1,30)+(B1<=30)
でしょう。

つまり、30日の時だけ特殊なんですね（観念的）。
ひょっとすると30の倍数の時もあやふやかも．．．

これで「もっと簡単に」というなら、
「その要求は、言葉では簡単かも知れないが、裏に複雑なものが隠されているから」
としか言えません。
「簡単にしろ」の理由をはっきり言わないのは、#15の最後に書いたことの証拠かも．．．

回答No.15

noname#79209

これじゃダメかな。
=EOMONTH(A1,INT(B1/30)-1)+MOD(B1,30)
これだと、
1/1の59日後は、閏年なら2/29、そうでなければ3/1
1/1の60日後は、閏年なら2/29、そうでなければ2/28
になりますが．．．

> もっと簡単に出来ないのかと言われてしまって
単に面倒くさいのか、式が長いと自分でうまく入れられないからだけだと思いますが．．．

回答No.14

noname#52504

私自身、上の無茶な要求に往生することもしばしばですし、
質問者さんに対しては同情するんですが、実際問題として、

　>>　複雑で例外の多い規則を簡潔に記述することはできない　<<

のです。当たり前っちゃ当たり前ですが。

この課題の難点は、
「どのように計算するか」ではなく
「どのような結果を得たいか」がはっきりしていない点です。

例えば、(#7さんの数式に較べて"簡単"かどうかは別にして)
　=DATE(YEAR(A1),MONTH(A1)+INT((DAY(A1)+B1)/30),MOD(MIN(DAY(A1),30)+B1,30))
とすれば、次のように結果が返ります。

01/01 [+] 30 [=] 02/01
01/31 [+] 30 [=] 02/28
02/01 [+] 30 [=] 03/01
02/01 [+] 40 [=] 03/11
02/17 [+] 45 [=] 04/02
02/28 [+] 30 [=] 03/28
02/28 [+] 60 [=] 04/28
04/30 [+] 30 [=] 05/31
10/31 [+] 30 [=] 11/30
12/01 [+] 30 [=] 01/01

あるいは、
(以前のご質問では月末に対して加算するケースもあるようですが)
今回のご質問に関して、
>月末の日からの計算はしません。
>月初(１日)に３０を足して一ヵ月後になるようにしたいのです。
というのが事実であれば　

単に
　=DATE(YEAR(A1),MONTH(A1)+INT(B1/30),MOD(B1,30)+1)
とすれば、

01/01 [+] 60 [=] 03/01
02/01 [+] 30 [=] 03/01
02/01 [+] 40 [=] 03/11
12/01 [+] 30 [=] 01/01

という結果が得られます。

これらの結果は、
>１２月１日＋３０=１月１日
>２月１日＋４０＝３月１１日
>２月１日＋３０＝３月１日
>１月１日＋３０日＝２月１日
という要求については充たしますが、
#7さんの数式とは挙動が違いますし(要件がそもそも前回と違う)
【上司さんの脳内ルール】に合致するかどうかは神のみぞ知る、といったところですね。

回答No.13

mshr1962

年の計算=YEAR(A1)
月の計算=MONTH(A1)+INT((MIN(DAY(A1),30)+B1)/30)
日の計算=MOD(MIN(DAY(A1),30)+MOD(B1,30),30)
で計算できるので
C1=DATE(YEAR(A1),MONTH(A1)+INT((MIN(DAY(A1),30)+B1)/30),MOD(MIN(DAY(A1),30)+MOD(B1,30),30))
※ただし結果がうるう年でない2月29日の場合のみ3月1日になります。

回答No.12

higekuman

#1、#4、#8、#9、#10です。

> 1月1日に59を足した場合は、うるう年ならば、2月29日になります。
> 違うならば3月1日になります

#6さんの式だと、
1月1日に58を足した場合は、うるう年ならば2月29日、違うならば3月1日になりますが、
1月1日に59を足した場合は、うるう年ならば3月1日、違うならば3月2日になりますね。

これ以上は、私には、IF文を使った式しか思い浮かびません。

回答No.11

Wendy02

#7の回答者です。みなさんのために、補足しておきます。

DAYS360 の逆関数だと私は解釈しました。だから、DAYS360を応用するのがもっとも楽だと思ったのです。つまり、出された結果が、DAYS360関数で、取れれば成功しているといえるのではないでしょうか？

顕著な例としては、以下のような場合があります。

A1:2007/2/1
B1:30

なら、2007/3/1

しかし、
　B1:29
なら、１ヶ月に満たないのですから、

それより、増えたら、矛盾してしまいます。そのために、単に、数式では、Mod関数を使うのはやめました。

C1:（数式の結果）

これを、検証するために、
=DAYS360(A1,C1)

このような数式をおきました。

ご質問者さんがお決めになることですが、

1月1日に59日を足すなら、２ヶ月に１日足りないわけですから、2007/1/1 なら、2007/2/28　では？2008/1/1なら、2008/2/29 となればよいのではありませんか？

同じ内容の、ユーザー定義関数を書いておきます。

数式の使い方。

=DaysAdd30(A1,B1)

'------------------------------------------------------
'標準モジュールに登録のこと
'------------------------------------------------------

Public Function DaysAdd30(rng As Range, AdDate As Integer) As Long
　　Dim orgDate As Date
　　Dim endDay As Date
　　Dim i As Integer
　　Dim j As Integer
　　Dim v As Date
　　If rng.Value2 > 0 Then
　　　　orgDate = CDate(rng.Value2)
　　　　i = Int(AdDate / 30)
　　　　j = AdDate Mod 30

　　　　endDay = DateSerial(Year(orgDate), Month(orgDate) + i + 1, 0)

　　　　If Day(orgDate) + j > Day(endDay) Then
　　　　　　v = endDay
　　　　Else
　　　　　　v = DateSerial(Year(orgDate), Month(orgDate) + i, Day(orgDate) + j)
　　　　End If
　　　　　　DaysAdd30 = v
　　End If
End Function

回答No.10

higekuman

#1、#4、#8、#9です。

特殊な例になりますが、1月1日に59日を足した場合は、どんな結果になれば良いのでしょうか？

補足

1月1日に５９を足した場合は、うるう年ならば、2月29日になります。
違うならば3月1日になります

回答No.9

higekuman

#1、#4、#9です。

29日を足すことは無くても、40日や45日を足すことはあるんですね。
条件の理解に苦しみます。
まだ隠されている条件があったりしませんか？

それはともかく、30の倍数以外でも足すことがあるのであれば、#6さんの回答が最適だと思います。

補足

すいません。もうないです。
一番下の値は30です。それを下回ることはないです。
分かりにくくてすいません。

回答No.8

higekuman

#1、#4です。

ほとんど#6さんの回答と同じです。

・A1は必ず月初
・B1は必ず30の倍数

と言う条件であれば、

=DATE(YEAR(A1),MONTH(A1)+B1/30,1)

と簡単にすることもできます。

質問で、

> 例（１２月１日＋３０=１月１日、２月１日＋４０＝３月１１日となるようにしたいのです。）

というように、40を足していますが、40を足すことは無いのでしょうか？

必ず30の倍数を足すのであれば、日数を足すのではなく、月数を足すようにしたほうが解りやすいと思うのですが・・・

補足

分かりにくくてすいません。
40を足す事もあるみたいです。
今この注文をしている上司に詳しく条件をちゃんと
明確にしてもらいました。
一ヶ月を＝30日で考えるので、40＝一ヶ月＋十日となります。
45=一ヶ月＋15日になります。

回答No.7

Wendy02

私が書いたものです。

>この関数をもっと簡単にして欲しいと言われたのですが…。

どういうご事情なのですか？ご質問の趣旨に驚いてしまいます。

簡単にと言われても、ひとつのロジックを持ったものが、数式として、その過程を端折るようなことは、無理ではないかと思います。

後は、ユーザー定義関数として、ひとつの関数を作り上げることになると思います。

ユーザー定義関数を作るというのなら、お話は承りますが、それ以外は、私は、もう思いつきません。あれダメ、これダメと、結局、手詰まりになってしまうと思います。

私のようなものが、あれこれ述べても、現実は、関数の天才的な人は一杯いらっしゃるかとは思いますから、私などが口を挟むべき余地はないかもしれません。

次の発言の方のために、今までの経緯を残しておきます。

http://oshiete1.goo.ne.jp/qa3496893.html
http://oshiete1.goo.ne.jp/qa3491040.html

補足

事情は良く分かりませんが、仕事でもっと簡単に出来ないのかと言われてしまって。理由などを聞いたりしたのですが、とりあえずやってみてとしか言われないので、自分自身も何で出来てるのに簡単にする必要があるのだろうか？となっている状況なのです。
すいません