掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
和暦の引き算や平均について？ (ID:140462)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> 見かけ上は1年1ヶ月だけど日数は数日違うかと思う > その辺は どうする？ 閏年を考慮しないぐらいだから、無視しちゃっても良いのかな…。 たとえば『年齢計算』では、大の月/小の月の差は無視して、 Dim a As Date = 今日の日付 Dim b As Date = 誕生日 Dim 年齢 As Integer = (CInt(a.ToString("yyyyMMdd")) - CInt(b.ToString("yyyyMMdd"))) \ 10000 と単純化する処理系も良く見かけますし。 あるいは別の方法では、 [年齢] = [現在の年] - [誕生日の年] If [現在の月日] < [誕生日の月日] Then [年齢] = [年齢] - 1 'その年の誕生日に到達していなければ -1 End If のように算出されたりとか。 こちらの手法だと、年(y歳)ではなく、年月(y歳mヶ月)への置き換えも容易かと。 # 前日加算法か当日加算法かによって、If条件が"＜", "≦"で異なりますが。 ただし私の方では、そのように計算した(つもりだった)のですが、 提示された期待値通りの計算結果を出す事ができなかったので、 これ以上は、詳しい算出方法を提示してもらわないことには何とも。 仕様に関して、もう少し詳しい情報をください。＞元質問者殿
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.