aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Task/Chinese-zodiac/VBScript/chinese-zodiac.vb
View file

@ -1,16 +0,0 @@
' Chinese zodiac - VBS
Animals = array( "Rat","Ox","Tiger","Rabbit","Dragon","Snake","Horse","Goat","Monkey","Rooster","Dog","Pig" )
Elements = array( "Wood","Fire","Earth","Metal","Water" )
YinYang = array( "Yang","Yin" )
Years = array( 1935, 1938, 1968, 1972, 1976, 1984, 2017 )
for i = LBound(Years) to UBound(Years)
xYear = Years(i)
yElement = Elements(((xYear - 4) mod 10) \ 2)
yAnimal = Animals( (xYear - 4) mod 12 )
yYinYang = YinYang( xYear mod 2 )
nn = ((xYear - 4) mod 60) + 1
msgbox xYear & " is the year of the " & yElement & " " & yAnimal & " (" & yYinYang & ").",, _
xYear & " : " & nn & "/60"
next