ASPは指定年の干支を算出する
374 ワード
Function Zodiac(ByVal s)
If s > 0 Then
Dim ZodiacList
ZodiacList = Array(" ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ")
Zodiac = ZodiacList(s Mod 12)
End If
End Function
' :
Response.Write Zodiac("2011")