이런개병진같은 정말 병신이다
옛날에 10억짜리 집을팔아서 엔으로 바꾸면 1.4억엔이됀다.
그러나 이젠 환율이 2배가됐기 때문에 7천만엔이된다
하지만 집값이 10억인가? 아니다
6억 7억이다. 그러면 7천만엔에서 30퍼센트나 40퍼센트 손해 본다는건데
이젠 5천만엔이나 4천만엔 밖에안됀다.
결국 1.4억엔이 5천만엔 4천만엔된거다
개병신짓한거지 한마디로
꼴통처럼 움켜쥐고 투자를 못해서
1억엔 가량 날려먹은건데
1억엔이면 지금 엔을 원으로 바꾸면 얼만줄알아?
15억이넘어 최소로처도 10억이야 넌 안자서 10억날렸어
관리가 어렵다고? 우끼지마라
한 1억이면 매일마다 일본여행하면서 부동산에게 마껴서 관리 실컷하고
자빠지는돈이야 세금이 든다고? 지랄낫네 세금을 10억식뜯어가겠냐?
아 조낸 멍청해 머리가 돌아도 한참돌았어
Function DrawRactangle(startrow As Integer, startcol As Integer, perhour As Integer, aftertime As Variant, howlongtime As Variant)
'startrow는 startcol과는다르다 지금 몇번째 줄에 쓸차레다를 알려주는 정보
'startcol은 처음에 그래프그린게 몇번째칼럼이였다라는것을 알려준다
'perhour는 몇칸을 한시간으로 칠꺼냐다. 예)perhour=2 이면 2칸이 1시간이다.
'aftertime은 처음 그래프 그린후부터 몇시간 지났다는것을 알려준다.
'howlongtime은 aftertime부터 그래프를 그려서 얼마나 시간동안 그릴것인가를 알려준다
Dim minuteendandstartwidth As Integer
Dim startx As Integer
Dim starty As Integer
Dim height As Variant
Dim length As Integer
startcol = startcol - 1 '시작 컬럼 값이 0부터가 아니고 1부터라서 1을 빼준다
starty = ThisWorkbook.ActiveSheet.Range(Cells(1, 1), Cells(startrow - 1, 1)).height + 1
startx = ThisWorkbook.ActiveSheet.Range(Cells(1, 1), Cells(1, startcol + perhour * hour(aftertime))).width _
+ ThisWorkbook.ActiveSheet.Range(Cells(1, startcol + 1 + perhour * hour(aftertime)), Cells(1, startcol + perhour * (1 + hour(aftertime)))).width / 60 * Minute(aftertime) _
+ 1
''''여기까지가 시작위치정하게된것
''''높이
heigth = ThisWorkbook.ActiveSheet.Cells(startrow, 1).Rows.RowHeight - 3
'''''길이
length = ThisWorkbook.ActiveSheet.Range(Cells(1.1), Cells(1, startcol + perhour * hour(aftertime + howlongtime))).width _
+ ThisWorkbook.ActiveSheet.Range(Cells(1, startcol + 1 + perhour * hour(aftertime + howlongtime)), Cells(1, startcol + perhour * (hour(aftertime + howlongtime) + 1))).width / 60 * Minute(aftertime + howlongtime) _
- startx
ActiveSheet.Shapes.AddShape(msoShapeRectangle, startx, starty, length, heigth). _
Select
End Function
