豆知識の目次へ


パソコン豆知識　　Excel　うるう年判定関数を自作してみる。

　

　ExcelではVBAで自作した関数のことをユーザー定義関数という。
自作した関数の名前に、ExcelやVBAの関数の名前と同じものを使うことはできない。
VBAで使われている単語（予約語）も使うことはできない。
使える文字は英数字、漢字、ひらがな、カタカナ、アンダースコア（＿）である。
ただしアンダースコアは名前の先頭文字として使うことはできない。

さて閏年である。
西暦が4で割り切れて、かつ、100で割り切れない年は閏年である。
西暦が400で割り切れる年は閏年である。
これらを組み合わせて、簡単な閏年判定関数をつくってみる。

Function うるう年判定(西暦)
If (((西暦 Mod 4 = 0) And (西暦 Mod 100 <> 0)) Or (西暦 Mod 400 = 0)) Then
うるう年判定 = "うるう年"
Else
うるう年判定 = "うるう年ではない"
End If
End Function

これはサンプルで変数の型定義などはしていないし、この関数をそのまま使おうとすると意外な問題点に気がつくだろう。
実用化するときは少しプログラムを修正する必要がある。

　

ツイート

このページのトップへ

豆知識の目次へ