★☆괴수대백과사전☆★

한여름이라 무척덥습니다만 그래도 날씨는 좋습니다.

짝궁이 자주가는 청과물점이 있다.

나도 종종따라갔는데 그날따라 손님이 많지않아 비교적 한산했다.

그래서 평상시에는 들리지 않았을 청과물상에서 나오는 광고가 확연히 들어왔다.

"비트코인", "인공지능", "투자" 이 3가지 단어로 설명할 수 있는 광고가 나왔다.

처음에는 라디오 광고인줄 알았으나 동일한 광고가 무한반복되는 것을 보니 청과물상의 누군가가 

틀어놓은 것이 분명하다. 

사람들을 뒤흔드는 시류가 있다. 한때는 웰빙이었고 IT라는 단어가 마법의 단어이기도 했고 요즘은 비트코인이고

거기에 인공지능이라는 단어가 사람들을 현혹하는 단어가 된 모양이다.

무엇을 어떻게 하는지 설명도 없이 인공지능이 알아서 투자를 해주니 그저 좋다는 그광고를 보며

비트코인에 대해 불쾌한 감정을 가진사람으로서 거기에 밑도끝도 없는 인공지능투자라는 도깨비 방망이까지 얹었으니

불쾌함이 두배가 되었다. 짝궁은 청과물상을 계속 다니겠지만 나로서는 그 청과물상이 더이상 탐탁치 않다.

Dim rtn As String

Sub sub01()
        Call fncName(va)
        tmp= rtn
        Cells(1, 1) = tmp
End Sub

Public Function fncName(ByVal va As Integer) As String
    rtn = va
    fncName = rtn
End Function

1) sub01에서 fncName을 호출한다 

     (Sub가 Function을 호출한다)

2) Function은 return값이 있다.

3) 반환할 rtn변수를 선언해 두고 function에서 사용한다.

4) 반활할때 function의 이름에 반환할 변수를 대입해준다.

5)Function에 입력받을 변수에 ByVal을 반드시 선언해야 한다.

=============================

진짜 그지같네...

붉은 달이 떴습니다.~~~

보아라 이 영롱한 자태를~

쫀득쫀득하게 발에 착감긴다.