No.2ベストアンサー
- 回答日時:
>タイトル通りのプログラムを起動する方法
ダブルクリックしてください。
閏年かの判定がしたいのですか?
それなら下記の手順でコーディングしてください。
1. 確認する年が 4 で割り切れる場合は手順 2. へ、そうでない場合は手順 5. へ。
2. その年が 100 で割り切れる場合は手順 3. へ、そうでない場合は手順 4. へ。
3. その年が 400 で割り切れる場合は手順 4. へ、そうでない場合は手順 5. へ。
4. その年はうるう年になります (この年は 366 日です)。
5. その年はうるう年ではありません (この年は 365 日です)。
参考URL:http://support.microsoft.com/default.aspx?scid=k …
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_01.png?e8efa67)
No.5
- 回答日時:
no 1の方とほとんど一緒ですが、
month(dateserial(対象年,2,29))
が2であればうるう年だと思います。
(2月29日が本当に2月であればということです。)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_16.png?e8efa67)
No.3
- 回答日時:
こんにちは。
閏年の判定でしょうか?
VBのバージョンは?VB6から前とVB.NET、あるいはVBAでは処理方法が違ってきます。
VB6以前・VBAの方法は他の人のレスを参考に。
VB.NETであれば、閏年を判定するメソッドがあります。
DateTime.IsLeapYear(DateTime.Now.Year) でTrueが返れば閏年です。引数は4桁の年を指定します。
No.1
- 回答日時:
Function うるう年(ByVal p_lng年 As Long) As Boolean
Dim l_dtWk As Date
'指定年の三月一日 - 1
l_dtWk = DateAdd("d", -1, DateSerial(p_lng年, 3, 1))
'それが29日かどうかをチェック
うるう年 = (Day(l_dtWk) = 29)
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
connect タイムアウトのデフォルト
-
ランダムな単語を得るAPIってあ...
-
LCD ディスプレイを Raspberry ...
-
例外処理のフローチャートの記...
-
オフコン(富士通Kシリーズ)...
-
Form間の値の渡し方
-
VBA ユーザーフォーム Image1 ...
-
Sub Workbook_Open()でユーザー...
-
Net::SMTPでメールを送信したい...
-
モジュールの最大数はいくつな...
-
Excel VBAでリンク切れをチェッ...
-
Excel VBA 標準モジュール内で...
-
VBA モジュールを閉じるショー...
-
'Range'メソッドは失敗しました
-
Spreadsheet::ParseExcelを使っ...
-
rshを使うスクリプトをバックグ...
-
「デバイスは PRN を初期化でき...
-
VBでグローバル変数を宣言するには
-
初心者です。Perlではどんな時...
-
モジュールからフォームのボタ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ランダムな単語を得るAPIってあ...
-
うるう年かどうかを計算するプ...
-
HTML形式のメールからテキスト...
-
Perlのスクリプトで意味が分か...
-
Perlでパーミッション変更
-
isalnum関数を用いた単語の抽出...
-
例外処理のフローチャートの記...
-
Excel VBAでリンク切れをチェッ...
-
LCD ディスプレイを Raspberry ...
-
「デバイスは PRN を初期化でき...
-
エクセルVBAでシートモジュール...
-
VBSがコンパイルエラーになりま...
-
VBでグローバル変数を宣言するには
-
Excel VBAで、ユーザーフォーム...
-
VBAで旧字体を異字体に一括で変...
-
ユーザー定義関数に#NAME?が返...
-
VBA This Workbookモジュール...
-
Excel VBA 『Call』で呼び出す...
-
【vba】フォームに書いてあ...
-
Access VBA標準モジュールにつ...
おすすめ情報