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?8acaa2e)
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?8acaa2e)
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で質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) プログラムが書けません。 6 2023/01/22 22:58
- Windows 10 バッチファイルでのエクスプローラー終了 1 2022/05/30 14:32
- C言語・C++・C# 10個の実数に対する降順ソート結果を出力するプログラムを作りたいのですが、写真のプログラムをどう直せ 2 2022/07/09 21:13
- ノートパソコン .dllファイルがありませんと表示される 5 2023/04/30 03:03
- Windows 10 win 10 でのstartup program を削除したい 3 2022/04/29 09:21
- Windows 10 windows 制限解除のやり方教えて 3 2023/01/02 22:46
- その他(プログラミング・Web制作) プログラムの勉強のおすすめは 7 2022/12/09 20:09
- その他(プログラミング・Web制作) Windows上のプログラム。「予め決められた時刻に自分で起動して処理して自分で終了する」って可能? 3 2023/01/04 14:29
- C言語・C++・C# C言語で移動平均のプログラムを作りたいのですが、数値をファイルから取ってきて計算をするプログラムはど 1 2022/09/29 01:21
- オンラインゲーム 15年位前?のロボットをプログラムしてアリーナで戦うゲーム 1 2022/06/08 22:32
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
HTML形式のメールからテキスト...
-
例外処理のフローチャートの記...
-
'Range'メソッドは失敗しました
-
VBでグローバル変数を宣言するには
-
VBSがコンパイルエラーになりま...
-
Access VBA標準モジュールにつ...
-
Excel VBAでリンク切れをチェッ...
-
【python】requestsでdataとし...
-
VBAで別モジュールへの変数の受...
-
Excel VBAで、ユーザーフォーム...
-
エクセルVBAでシートモジュール...
-
「デバイスは PRN を初期化でき...
-
VBAでoutlook365が起動しません。
-
Excel VBA 『Call』で呼び出す...
-
マクロについて教えてください。
-
【vba】フォームに書いてあ...
-
w3cの検証エラー?
-
ベースモジュールって?
-
VBAで旧字体を異字体に一括で変...
-
標準モジュールを削除したい。(...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Wordで、分かち書きをするVBA ...
-
ランダムな単語を得るAPIってあ...
-
うるう年か平年かを判定するプ...
-
Perlで・・・。
-
HTML形式のメールからテキスト...
-
perlでメール配信 文字化けな...
-
オンマウスで解説が浮き出るよ...
-
connect タイムアウトのデフォルト
-
うるう年かどうかを計算するプ...
-
文章の分割
-
PerlはWEB系以外の開発にも使わ...
-
例外処理のフローチャートの記...
-
Excel VBAでリンク切れをチェッ...
-
ユーザー定義関数に#NAME?が返...
-
VBAで別モジュールへの変数の受...
-
VBでグローバル変数を宣言するには
-
エクセルVBAでシートモジュール...
-
'Range'メソッドは失敗しました
-
「デバイスは PRN を初期化でき...
-
LCD ディスプレイを Raspberry ...
おすすめ情報