【VB2008】年度四半期の計算
現在年月から年度とクオーターを取得するサンプルです。
たいした計算はしてませんがまた使いそうなのでメモ。
'四半期を計算して文字列で取得 Private Function getQuarterStr( ByVal currentYear As Integer, _ '現在年 ByVal currentMonth As Integer, _ '現在月 ByVal startMonth As Integer _ '年度開始月(国内は4月or10月が多い) ) As String Dim year As Integer '対象年 Dim quarter As Integer '対象四半期 Dim diff As Integer '月数差 '月数差を求める If startMonth <= currentYear Then diff = currentMonth - startMonth year = currentYear Else diff = currentMonth - startMonth + 12 year = currentYear - 1 '前年にする End If '四半期を計算(開始からどんだけ経ってるかで判断) quarter = Math.Floor(diff / 3) + 1 return year.ToString("D4") & "年度 第" & _ quarter.ToString("D2") & "四半期" End Function '呼び出し Private Sub Main() Console.WriteLine(getQuarterStr(2012, 3, 4)) '→"2011年度 第04四半期"と表示 End Sub
いつも通り日中を思い出しながらメモ帳で書いただけなので動確してませーん
クライアントの環境に合わせるため、開発用VisualStudioバージョンがちょいちょい変わってやりづらいです。
今はWinXP端末からリモート接続したWin7端末のVirtualPC(XPMode)上のVisualStudio2008でコーディングしてます。
めんどくさ!