1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Lang_ko" script:language="StarBasic">Option Explicit
Sub LoadKoreanLanguage()
sProductname = GetProductname
sOK = "~확인"
sCancel = "취소"
sColumnHeader = "열 머리글"
sInsertStockName = "주식 종목을 삽입해주십시오."
sTitle = "<PRODUCTNAME>: 주식 매수"
sTitle = ReplaceString(sTitle, sProductName, "<PRODUCTNAME>")
sMsgError = "입력 오류"
sMsgNoName = sInsertStockname
sMsgNoQuantity = "0 이하의 매수를 입력해주십시오."
sMsgNoDividend = "한 주당 배당분 또는 총배당분을 입력해주십시오."
sMsgNoExchangeRate = "정확한 환율을 입력해주십시오 (구주를 신주로 소급 시)."
sMsgNoValidExchangeDate = "유효한 배당 결제일을 입력해주십시오."
sMsgWrongExchangeDate = "배당 기준일이 경과하여 배당할 수 없습니다."
sMsgSellTooMuch = "이렇게 많은 주식을 팔 수 없습니다. 최대 매도수: "
sMsgConfirm = "확인 필요"
sMsgFreeStock = "공짜 주식을 입력하시겠습니까?"
sMsgTotalLoss = "주가 폭락세를 입력하시겠습니까?"
sMsgAuthorization = "안정성 조회"
sMsgDeleteAll = "모든 주가 움직임을 삭제하고 계좌 현황을 원래대로 하시겠습니까?"
cSplit = "주식 배당일 "
sHistory = "내역"
TransactTitle(1) = "주식 관리: 주식 매도"
TransactTitle(2) = "주식 관리: 주식 매수"
StockRatesTitle(1) = "주식 관리: 배당금 지불"
StockRatesTitle(2) = "주식 관리: 주식 배분"
StockRatesTitle(3) = sHistory
sDepotCurrency = "주식 계좌 통화"
sStockName = "주식 종목명"
TransactMode = LIFO ' Possible values: "FIFO" and "LIFO"
DateCellStyle = "결과, 날짜"
CurrCellStyle = "1"
sStartDate = "매매일:"
sEndDate = "만기일:"
sStartUpWelcome = "이 템플릿을 사용하여 주식 투자 관리를 효율적으로 할 수 있습니다."
sStartUpChooseMarket = "인터넷 업데이트를 위해 우선 관련 통화와 증권 장소를 선택하십시오."
sStartUpHint = "<내역> 기능은 미국 시장용으로만 사용할 수 있습니다."
sStartupHint = ReplaceString(sStartUpHint, sHistory, "<History>")
sNoInternetUpdate = "인터넷 업데이트 없음"
sMarketPlace = "증권 장소:"
sNoInternetDataAvailable = "인터넷 시세는 받을 수 없었습니다."
sCheckInternetSettings = "원인: <BR> 인터넷 설정을 점검해야만 합니다.<BR> 옳지 않은 암호<예를 들어 잘못된 문자 또는 종목 코드>를 입력했습니다."
sCheckInternetSettings = ReplaceString(sCheckInternetSettings, chr(13), "<BR>")
sMsgEndDatebeforeNow = "만기일은 오늘 날짜 전에 기입되어야 합니다."
sMsgStartDatebeforeEndDate = "매매일은 만기일 전에 기입되어야 합니다."
sMarket(0,0) = "미국 달러"
sMarket(0,1) = "$"
sMarket(0,2) = "뉴욕"
sMarket(0,3) = "http://quote.yahoo.com/d/quotes.csv?s=<StockID>&f=sl1d1t1c1ohgv&e=.csv"
sMarket(0,4) = "http://table.finance.yahoo.com/table.csv?" &_
"a=<StartMonth>&b=<StartDay>&c=<Startyear>&d=<EndMonth>&" &_
"e=<EndDay>&f=<Endyear>&s=<StockID>&y=0&g=<interval>&ignore=.csv"
sMarket(0,5) = "기호"
sMarket(0,6) = "en"
sMarket(0,7) = "US"
sMarket(0,8) = "409"
sMarket(0,9) = "44"
sMarket(0,10) = "1"
sMarket(1,0) = "유로"
sMarket(1,1) = chr(8364)
sMarket(1,2) = "프랑크푸르트"
sMarket(1,3) = "http://de.finance.yahoo.com/d/quotes.csv?s=<StockID>.F&f=sl1t1c1ghpv&e=.csv"
sMarket(1,5) = "WKN"
sMarket(1,6) = "de;nl;pt;el"
sMarket(1,7) = "DE;NL;PT;GR"
sMarket(1,8) = "407;413;816;408"
sMarket(1,9) = "59/9"
sMarket(1,10) = "1"
sMarket(2,0) = "영국 파운드"
sMarket(2,1) = "£"
sMarket(2,2) = "런던"
sMarket(2,3) = "http://uk.finance.yahoo.com/d/quotes.csv?s=<StockID>.L&m=*&f=sl1t1c1ghov&e=.csv"
sMarket(2,5) = "기호"
sMarket(2,6) = "en"
sMarket(2,7) = "GB"
sMarket(2,8) = "809"
sMarket(2,9) = "44"
sMarket(2,10) = "1"
sMarket(3,0) = "엔화"
sMarket(3,1) = "¥"
sMarket(3,2) = "도쿄"
sMarket(3,3) = ""
sMarket(3,5) = "코드"
sMarket(3,6) = "ja"
sMarket(3,7) = "JP"
sMarket(3,8) = "411"
sMarket(3,9) = ""
sMarket(3,10) = ""
sMarket(4,0) = "홍콩 달러"
sMarket(4,1) = "HK$"
sMarket(4,2) = "홍콩"
sMarket(4,3) = "http://hk.finance.yahoo.com/d/quotes.csv?s=<StockID>.HK&f=sl1d1t1c1ohgv&e=.csv"
sMarket(4,5) = "번호"
sMarket(4,6) = "zh"
sMarket(4,7) = "HK"
sMarket(4,8) = "C04"
sMarket(4,9) = "44"
sMarket(4,10) = "1"
sMarket(5,0) = "호주 달러"
sMarket(5,1) = "$"
sMarket(5,2) = "시드니"
sMarket(5,3) = "http://au.finance.yahoo.com/d/quotes.csv?s=<StockID>&f=sl1d1t1c1ohgv&e=.csv"
sMarket(5,5) = "기호"
sMarket(5,6) = "en"
sMarket(5,7) = "AU"
sMarket(5,8) = "C09"
sMarket(5,9) = "44"
sMarket(5,10) = "1"
' ****************************End of the default subset*********************************
CompleteMarketList()
LocalizedCurrencies()
With TransactModel
.lblStockNames.Label = sStockname
.lblQuantity.Label = "수량"
.lblRate.Label = "시세"
.lblDate.Label = "배당 결산일"
.hlnCommission.Label = "기타 지출"
.lblCommission.Label = "수수료"
.lblMinimum.Label = "최저 수수료"
.lblFix.Label = "약정 금액/기타 경비"
.cmdGoOn.Label = sOK
.cmdCancel.Label = sCancel
End With
With StockRatesModel
.optPerShare.Label = "배당분/주"
.optTotal.Label = "배당분 합계"
.lblDividend.Label = "금액"
.lblExchangeRate.Label = "환율(구주->신주)"
.lblColon.Label = ":"
.lblDate.Label = "환율일자"
.lblStockNames.Label = sStockname
.lblStartDate.Label = sStartDate
.lblEndDate.Label = sEndDate
.optDaily.Label = "~매일"
.optWeekly.Label = "~매주"
.hlnInterval.Label = "기간"
.cmdGoOn.Label = sOk
.cmdCancel.Label = sCancel
End With
End Sub
</script:module>
|
