Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9967 / 13644 ツリー ←次へ | 前へ→

【24530】春分の日・秋分の日の設定で rie 05/4/24(日) 16:30 質問[未読]
【24531】Re:春分の日・秋分の日の設定で ponpon 05/4/24(日) 17:56 発言[未読]
【24532】Re:春分の日・秋分の日の設定で 訂正 ponpon 05/4/24(日) 18:03 発言[未読]
【24534】Re:春分の日・秋分の日の設定で 訂正 rie 05/4/24(日) 20:59 お礼[未読]
【24533】Re:春分日・秋分日 角田 05/4/24(日) 19:33 回答[未読]
【24535】Re:春分日・秋分日 rie 05/4/24(日) 21:00 お礼[未読]

【24530】春分の日・秋分の日の設定で
質問  rie  - 05/4/24(日) 16:30 -

引用なし
パスワード
   計算式の方は、こちらの目安箱に載っていたものを参照したのですが。


一年毎の春分点通過日の移動量 という計算の所で
 式)
   (西暦年 − 2000年) × 0.2421904

となっているのですが、
西暦年の部分が「A1」に「2005/03/xx」と入力して、セル書式設定で「3」と表示するようにしています。
そうした時、上記の式の所で

(Range("A1") - 2000) * 0.2421904

とすると、求めたい数値が求められません。。
このような場合は、どうしたらよいのでしょうか?

よろしくおねがいします!

【24531】Re:春分の日・秋分の日の設定で
発言  ponpon  - 05/4/24(日) 17:56 -

引用なし
パスワード
   こんにちは。
西暦年というのは、2005ということでしょうから
こういうことでしょうか?
Sub test()
  Dim A As String
  Dim B As Double
  A = Left(Range("A1").Value, 4)
  B = (A - 2000) * 0.2421904
  MsgBox B

End Sub

【24532】Re:春分の日・秋分の日の設定で 訂正
発言  ponpon  - 05/4/24(日) 18:03 -

引用なし
パスワード
   ▼ponpon さん:
>  A = Left(Range("A1").Value, 4)
   ↓
   A = Year(Range("A1").Value)

【24533】Re:春分日・秋分日
回答  角田 WEB  - 05/4/24(日) 19:33 -

引用なし
パスワード
   (参考)
http://www.h3.dion.ne.jp/~sakatsu/holiday_topic.htm#syunbun

【24534】Re:春分の日・秋分の日の設定で 訂正
お礼  rie  - 05/4/24(日) 20:59 -

引用なし
パスワード
   ▼ponpon さん:
こんばんわ。
ありがとうございます!そうか…そぅやって先に西暦部分を取り出せばいいんですね!
ありがとうございました!

【24535】Re:春分日・秋分日
お礼  rie  - 05/4/24(日) 21:00 -

引用なし
パスワード
   ▼角田 さん:
こんばんわ。
ありがとうございます!
参考にさせていただきます。

9967 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free