現在年月から年度とクオーターを取得するサンプルです。 たいした計算はしてませんがまた使いそうなのでメモ。 '四半期を計算して文字列で取得 Private Function getQuarterStr( ByVal currentYear As Integer, _ '現在年 ByVal currentMonth As Integer, _ …