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