1: Public Function GetMaxTotal() As Currency 2: ' 承認不要な伝票金額の設定値を返す 3: GetMaxTotal = g_MaxTotal 4: End Function