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_zh" script:language="StarBasic">Option Explicit
Sub LoadChineseSimpleLanguage()
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 = "很遗憾，<History>功能仅可供美国市场使用！"
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://finance.yahoo.com/d/quotes.csv?s=<StockID>&f=sl1d1t1c1ohgv&e=.csv"
sMarket(0,4) = "http://ichart.finance.yahoo.com/table.csv?" &_
"s=<StockID>&d=<EndMonth>&e=<EndDay>&f=<Endyear>&g=d&" &_
"a=<StartMonth>&b=<StartDay>&c=<Startyear>&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) = "代码"
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>
|
