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")