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
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
|
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<!--
* This file is part of the LibreOffice project.
*
* This Source Code Form is subject to the terms of the Mozilla Public
* License, v. 2.0. If a copy of the MPL was not distributed with this
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
*
* This file incorporates work covered by the following license notice:
*
* Licensed to the Apache Software Foundation (ASF) under one or more
* contributor license agreements. See the NOTICE file distributed
* with this work for additional information regarding copyright
* ownership. The ASF licenses this file to you under the Apache
* License, Version 2.0 (the "License"); you may not use this file
* except in compliance with the License. You may obtain a copy of
* the License at http://www.apache.org/licenses/LICENSE-2.0 .
-->
<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>
|
