回答編集履歴
1
ソース修正
answer
CHANGED
|
@@ -1,9 +1,12 @@
|
|
|
1
1
|
数列 = **数値** であれば、割り算と剰余で年月日の各部分を算出できます。
|
|
2
|
-
```
|
|
2
|
+
```VBScript
|
|
3
3
|
Dim v, y, m, d
|
|
4
4
|
v = 20170907
|
|
5
|
+
' hatena19さんのコメントを受けて`\`で商を求めるように
|
|
6
|
+
y = v \ 10000
|
|
7
|
+
m = (v \ 100) Mod 100
|
|
5
|
-
y = CInt(v / 10000)
|
|
8
|
+
'y = CInt(v / 10000)
|
|
6
|
-
m = (v / 100) Mod 100
|
|
9
|
+
'm = (v / 100) Mod 100
|
|
7
10
|
d = v Mod 100
|
|
8
11
|
MsgBox y & "年" & m & "月" & d & "日"
|
|
9
12
|
```
|