質問編集履歴
1
修正
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
プロシージャーの所で、年と月が打たれたら歳をだす方法
|
|
1
|
+
プロシージャーの所で、年と月と日が打たれたら歳をだす方法
|
test
CHANGED
|
@@ -64,7 +64,7 @@
|
|
|
64
64
|
|
|
65
65
|
'プロシージャーにデータを渡して呼び出す
|
|
66
66
|
|
|
67
|
-
Dim constellation As String = GetConstellation(year, month)
|
|
67
|
+
Dim constellation As String = GetConstellation(year, month , day)
|
|
68
68
|
|
|
69
69
|
|
|
70
70
|
|
|
@@ -78,9 +78,9 @@
|
|
|
78
78
|
|
|
79
79
|
'生年月日を受け取って歳を返すプロシージャー
|
|
80
80
|
|
|
81
|
-
Private Function GetConstellation(ByVal year As String, ByVal month As String) As String
|
|
81
|
+
Private Function GetConstellation(ByVal year As String, ByVal month As String , ByVal month As String) As String
|
|
82
82
|
|
|
83
|
-
'年と月で特定する 'String.Empty = 空文字
|
|
83
|
+
'年と月と日で特定する 'String.Empty = 空文字
|
|
84
84
|
|
|
85
85
|
Dim constellation As String = String.Empty
|
|
86
86
|
|