エクセルã§æ¯Žå¹´ã€æ—¥ã«ã¡ãŒç•°ãªã‚‹ç¥æ—¥ï¼ˆæˆäººã®æ—¥ç‰ï¼‰ã®è¿”ã—方もã†å›žç”ã¯å‡ºã¦ã—ã¾ã£ã¦ã„るよã†ã ã‘ã©ã€å‚考ã¾ã§ã« 別ã®ã‚·ãƒ¼ãƒˆã«ç¥æ—¥ã‚’è¨å®šã™ã‚‹æ–¹æ³•ã˜ã‚ƒãªã„方法ã§ãªãã€ä¸Žãˆã‚‰ã‚ŒãŸæ—¥ä»˜ãŒç¥æ—¥ã‹ã©ã†ã‹ã‚’è¿”ã™éžå¸¸ã«è¦‹ã«ãã„モジュールを^^; ç¥æ—¥ã‚’表示ã•ã›ãŸã„セル　=国民ã®ç¥æ—¥(日付ãŒå…¥ã£ãŸã‚»ãƒ«,1) Public Function 国民ã®ç¥æ—¥(今日 As Date, chk_l As Integer) As String Dim å¹´ As Long 国民ã®ç¥æ—¥ = "" å¹´ = Year(今日) If Format(今日, "yyyymm") < 194807 Then Exit Function End If If Format(今日, "mmdd") = 101 Then 国民ã®ç¥æ—¥ = "元日" Exit Function End If If å¹´ < 2000 And Format(今日, "mmdd") = 115 Then 国民ã®ç¥æ—¥ = "æˆäººã®æ—¥
{{#tags}}- {{label}}
{{/tags}}