생활 속의 명언 - 행복한 가족을 위한 가족 명언

삶속에서 느끼는 여러가지 힘든 과정을 생활속의 명언을 통해 극복하여 이기는 사람들이 많은 만큼

희망이라는 단어는 고통속의 진주처럼 달고 맛나다는 것을 먼저 이야기하면 포스팅을 해본다..

자식을 키우다 그역설과 부조리함에 웃게될 때가 있다.

하지만 때로는 그 순수함에 기뻐서 웃기도 한다. [ 바바라 샤피로 ]

제가 강조하고 싶은 것은 미소짓는 것이 어려울 때일 수록 서로에게 미소로 대해야 한다는 것입니다.

서로에게 미소를 베풀고 여러분의 가족을 위한 시간을 할애해야 합니다. [ 마더 테레사 ]

아이들은 부모를 사랑함으로써 출발하고 나이가 들면서 부모를 평가하면 때때로 부모를

용서하기도 한다. [ 오스카 와일드 ]

어머니가 아버지보다 자식을 더 사랑하는 이유는 아이가 자기 자식임을 더 확신하기

때문이다. [ 아리스토 텔레스 ]

처자식을 위할줄 모르느 남편은 집에 숫사자를 키우며 불행의 보금자리를 꾸미는 것과

같다. [ 제레미 테일러 ]

거울을 마주하면 당신 자신의 얼굴만 볼 수 있을 뿐이지만 당신의 아이를 마주하면 마침내

다른 모든 이들이 어떻게 당신을 보아왔는지 알 수 있다. [ 다니엘 래번 ]

우리가 부모가 됐을때 비로소 부모가 베푸는 사랑의 고마움이 어떤 것인지 절실히

깨달을 수 있다. [ 헨리 워드 비치 ]

쾌락과 궁궐 속을 다닐지라도, 아무리 초라해도 내집과 같은 곳이 없다. [ 존 하워드 페인 ]

만약 당신의 아들딸에게 단 하나의 재능만을 줄 수 있다면 열정을 주어라. [ 브루스 바튼 ]

부모는 그대에게 삶을 주고도이제 그들(자신)의 삶까지 주려고 한다. [ 척 팔라닉 ]

당신과 내가 할 가장 중요한 일을 우리의 집 울타리 안에 있을 것이다. [ 해롤드 비리 ]

사람들은 피가 물보다 진하다고 말하지. 아마 그렇기 때문에 남에게 쏟는 것 보다도 더 많은

에너지와 열정으로 가족과 싸우는 걸 거야. [ 데이비드 아셀 ]

[ 엑셀VBA ] 입력된 날짜의 마지막 날짜 구하기 - DateAdd 함수

대용량의 데이터를 다루는 작업을 하다보면 현재 날짜로 부터 첫날짜를 구하고 이 날짜로 부터 월의 마지막 날짜

를 구하여 월의 첫날과 마지막 날사이의 데이터 집게를 구하는 경우가 많은데 오늘을 이러한 날짜를 구하는

프로시져를  포스팅하고자 한다.

 DateAdd 함수를 사용하여 구하는 데  DateAdd의 구조는  DateAdd("기간", 더하거나 뺄 기간(정수), 지정한 날짜)

의 구조로 이루어져 있다.

    Dim StartDay$

    Dim tmpday $

    Dim EndDay $

     ActiveSheet.Cells(1 1).Value = Format(ActiveSheet.Year1.Value & "-" & ActiveSheet.Mon1.Value & "-01, "YYYY-MM-DD")
    '--> 먼저 Cells(1,1)에 Year1 , Mon1, Day1의 콤보박스로 부터 연 - 월 - 일을 받는다.

    '--> 그 다음 마지막 일을 01일로 정하여 다음달의 첫날을 구하기 위함.

     StartDay = ActiveSheet.Cells(1, 1).Value

    '--> StartDay을 위의 cells(1, 1)의 값을 정의
     tmpday = DateAdd("m", 1, StartDay)   '--> StartDay을 위의DateAdd함수를  이용하여 m(월) 을 1을 더해 다음달을 구함.

     EndDay = DateAdd("d", -1, tmpday)'--> tmpday 를 위의DateAdd함수를  이용하여 d(일) 을 1을 빼서 이번달 마지막날을 구함. 

     ActiveSheet.Cells(1 2).Value = ActiveSheet.Year1.Value & "-" & ActiveSheet.Mon1.Value & "-" & EndDay

    '--> cells(1,2)에 현재 달의 마지막 날짜를 구한다.

     여기서 Y(년), M(월), D(일), W(주)를 dateadd의 두번째 숫자입력을 통해 빼거나 더할 수 있다.

해당 함수를 잘 이용하여 업무에 잘쓰시길....

[ 엑셀VBA 5 ] 불량관리 프로그램 만들기 - 조건문 Select Case

엑셀VBA를 하다보면 여러가지 정해진 조건들을 한꺼번에 지정하려다 보며 중첩 IF문등으로는 한계를

경험하게 되는 데 12개월의 숫자로 받은 데이터를 디스플레이 및 문서를 위해 영문으로 표현한다것나

하는 부분 처럼 다양한 조건을 한가지 조건문으로 표현하기 어려운 경우 사용할 수가 있다.

예시) 1월 ~ 12월 데이터를 조회시는 숫자로 쓰다가 문서에 표시할때는 영어로 표현하는 예시이다.

     ActiveSheet.Cells(1, 1).Value = Month(Now()) ' 현재시트의 A1번에  현재날짜의 월값을 입력한다. --> 결과 12

[ 엑셀VBA ] 데이터의 형식

엑셀 VBA에서 데이터 형식의 종류는 숫자형식, 문자형식, 논리값, 기타 등이 있다.

1) 숫자지정 : Integer, Long, Single, Double

2) 논리값 지정: Boolean

3) 문자지정: String 등

4) 엑셀에 나타나는 다양한 개체들을 다루기위한 Object, Currency, Date, Variant등이 있다.

    여기서 데이터 형식을 지정하지 않으면 Variant로 지정된다.

비주얼 베이직의 데이터형 : Dim 변수명 [ As 데이터유형 ]

데이터 유형에는 기본적으로 byte, integer, long, boolean, single, double, currency,

   string( 가변길이 ), string*n( 고정길이 ), Variant, Date, Object,

   기타( 사용자 정의형 등.. )

정수 데이터 : Byte( 0 ~ 255 ), Integer( 16bit로 -32768 ~ +32767 ), Long( 32bit로 큰 숫자용 )

논리형 데이터 : True( '0'을 제외한 모든 값 ) / False( '0' )

실수( 부동소수점 )형 : 정밀도를 요구하는 작은 수나 아주 큰수로 Single( 4바이트 )이나

           Double( 8 바이트 )을 사용하면 된다.

통화( Currency )형 : 소수점 15자리와 소수 이하 4자리를 표현

예) -922,337,203,685,477.5808

문자열( String )형 : Dim str As String * 5 로 선언하고 5바이트를 초과하는 문자열을 대입하면

       에러는 발생치 않지만, 문자열의 우측이 자동으로 잘린다.

Variant 형 : 저장되는 데이터 유형에 따라 그때 그때 자동적으로 변수의 변환이 발생된다.

예) Variant 형은 작은 정수가 대입되면 Integer 형 같이 반응하다가도 큰 정수값이

     대입되면 Long형 같이 반응하며, 만일 실수값이 대입되면 Single( 혹은 

     Double )로 변신한다.  기타 날짜나 문자열, 개체의 참조가 지정될 수도 있다.

날짜( Date )형 : # ..... # 로 묶어서 표현해야 하며 100년 1월 1일부터 9999년 12월 31일까지의

  날짜와 0시 0분 0초부터 23시 59분 59초까지의 시간을 의미하는 8 바이트 수치

1.14 이사준비하기 - 이사견적 및 이사계약하기

인제 한달도 이사할 날이 남지않아 본격적으로 이사에 대한 계약을 하기위해 이사짐 무료견적을 불러본다.

보통 낮이나 저녁에 견적을 보러 오시는 데 방을 보여주면 아주 꼼꼼히 이사할 짐들을 체크한다.

물론, 실장님께서 이것 저것 체크해 주시는 말을 잘 듣고 가장 중요한 것은 아무래도 싸게 잘 여러곳의

견적을 받아서 가장 좋은 곳으로 결정하는 것이 좋은 방법이라고 하겠다.

이사 견적을 봉투에 고이 담아서 내어 준다.

견적계약을 한번에 싸인 - 가장 중요한 것은 내용을 꼼꼼히 챙겨 보는 것

이사시 청소가 무료인 업체도 있고,

그리고, 에어컨설치에 대하여 가격이 좀 싼 곳도 있고,

그리고, 이사 시 대형 쓰레기 봉투도 2개씩 필요하고,

계약에 있는 약관도 각각 조금씩 달라서 꼼꼼히 잘챙겨서 이사 잘 하시길 ...

언양 휴게소 암각화 박물관

어제 어머니를 뵈러 부산을 갔다오는 길에 들렀던 언양 휴게소, 이런 곳에 명소가 있을 줄이야 별거

아닌 것 처럼 보이지만 1개의 룸에 옹기종기 언양에 있는 암각화에 대한 정보들을 볼 수 있는 암각

화 박물관을 소개하고자 한다.

아기자기하게 꾸며진 암각화 박물관 - 사실 화장실의 문에도 암각화를 볼 수 있는 곳이 바깥에

포스트 되어 있었다.

언양에서 발견된 반구대 지역의 암각화 샘플~

암각화에 대한 내용이 소개되어 있다.

물고기등을 재미있게 캐릭터화 시켜서 좀더 가깝게 접근할 수 있도록 되어 있다.

저수지 한쪽에 새겨진 암각화 등 동영상으로도 디스플레이 되고 있어 감짝 놀랐다.

암각화 속에 어떤 동물들이 있는 지 그림으로 나와 있다.

물고기, 짐승, 거북이 등 다양한 이미지가 암각화에 새겨져 있다.

암각화가 새겨진 크기등도 설명되어 있다.

1개의 방으로 구성된 암각화 박물관이지만 그래도,

아주 알차게 구성되어 있고, 차를 타고 오가면서 게임정도 하는게

전부인 애들에게 유용한 교육의 정보도 될 수 있는 언양 휴게소를 한번 들러 볼것을 추천한다.