Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9981 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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

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

(Range("Ａ1") - 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("Ａ1").Value, 4)
　　B = (A - 2000) * 0.2421904
　　MsgBox B

End Sub
【24532】Re:春分の日・秋分の日の設定で　訂正
発言  ponpon  - 05/4/24(日) 18:03 -
引用なし
パスワード
   ▼ponpon さん：
>　　A = Left(Range("Ａ1").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 -
引用なし
パスワード
   ▼角田 さん：
こんばんわ。
ありがとうございます！
参考にさせていただきます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9981 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free