Function Yamada() As Integer() Dim ddd_keka As Integer() = { 2022, 10, 27, 11, 32, 24 } Return ddd_keka End Function