今年の残り日数はあと何日？

こんにちは。Nakaiです。
冷たい雨が降る勤労感謝の日ですね。

昨日、Excel-VBAの授業で今年の残り日数を出すプログラムの問題があるのですが「39日」と表示され「今年もあと39日なんですね」と受講生の方とちょっとしみじみしてしまいました。
もちろん普通にExcel関数でも、今年の残り日数は計算できます。

TODAY関数は皆様よくご存じだと思いますが、本日の日付を返します。
今年の年末から、本日の日付を単純に引き算すれば、残り日数が表示されます。
DATE関数は、DATE(年,月,日）と入力すると、日付のシリアル値を返す関数ですが、ポイントは「年」のところに、2022と西暦の数字を入れずに、YEAR(TODAY())として、本日の日付から西暦を算出する点です。
そうすれば、来年も利用できます。

パソコンスクールISAでExcel授業を受けていらっしゃる方は、計算式の結果が上記のように表示されても、変更方法は大丈夫ですよね。
Excelの日付は、1900年１月１日を１とした連番で管理されているシリアル値で保存されています。
38という数値が、日付の表示形式で表示されているだけですので、セルの書式設定のダイアログボックスで表示形式を標準に直してくださいね。

Excel-VBAで登録しておくと、下記のように「今年の残り日数は」というボタンをクリックするとメッセージボックスで表示されるように出来ます。