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_it" script:language="StarBasic">Option Explicit
Sub LoadItalianLanguage()
sProductname = GetProductname
sOK = "~OK"
sCancel = "Annulla"
sColumnHeader = "Intestazione colonna"
sInsertStockName = "Inserite un nome di azioni"
sTitle = "<PRODUCTNAME>: Gestione delle azioni"
sTitle = ReplaceString(sTitle, sProductName, "<PRODUCTNAME>")
sMsgError = "Errore dati immessi"
sMsgNoName = sInsertStockname
sMsgNoQuantity = "Inserite il numero delle azioni"
sMsgNoDividend = "Inserite un dividendo a unità oppure un dividendo totale"
sMsgNoExchangeRate = "Indicate un corretto tasso di cambio (vecchie azioni -> nuove azioni)."
sMsgNoValidExchangeDate = "Indicate la data di frazionamento delle azioni."
sMsgWrongExchangeDate = "Il frazionamento non è possibile perché sono ancora in atto transazioni dopo la data indicata."
sMsgSellTooMuch = "Non potete vendere così tante azioni. Massimo: "
sMsgConfirm = "È necessaria una conferma"
sMsgFreeStock = "Confermate la digitazione di azioni gratuite?"
sMsgTotalLoss = "Confermate la digitazione di perdita totale?"
sMsgAuthorization = "Domanda di sicurezza"
sMsgDeleteAll = "Eliminare tutti i movimenti e ripristinare la panoramica dei depositi?"
cSplit = "Frazionamento delle azioni il: "
sHistory = "Cronologia"
TransactTitle(1) = "Vendita di azioni"
TransactTitle(2) = "Acquisto di azioni"
StockRatesTitle(1) = "Pagamento dei dividendi"
StockRatesTitle(2) = "Frazionamento azioni"
StockRatesTitle(3) = sHistory
sDepotCurrency = "Valuta deposito"
sStockName = "Nome delle azioni"
TransactMode = LIFO ' Possible values: "FIFO" and "LIFO"
DateCellStyle = "Risultato data"
CurrCellStyle = "1"
sStartDate = "Data d'inizio:"
sEndDate = "Data finale:"
sStartUpWelcome = "Questo modello vi permette una gestione efficace delle vostre azioni."
sStartUpChooseMarket = "Selezionate la valuta di riferimento e la Borsa per il collegamento Internet."
sStartUpHint = "La funzione <History> è disponibile solo per il mercato americano."
sStartupHint = ReplaceString(sStartUpHint, sHistory, "<History>")
sNoInternetUpdate = "Senza aggiornamento Internet"
sMarketPlace = "Borsa:"
sNoInternetDataAvailable = "Impossibile ricevere le quotazioni Internet"
sCheckInternetSettings = "Possibili cause: <BR> le impostazioni Internet devono essere modificate.<BR> Avete indicato un indice (ad es. simbolo o codice) errato per le azioni."
sCheckInternetSettings = ReplaceString(sCheckInternetSettings, chr(13), "<BR>")
sMsgEndDatebeforeNow = "La data finale dev'essere anteriore alla data odierna."
sMsgStartDatebeforeEndDate = "La data d'inizio deve precedere la data finale."
sMarket(0,0) = "Dollaro USA"
sMarket(0,1) = "$"
sMarket(0,2) = "New York"
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) = "Simbolo"
sMarket(0,6) = "en"
sMarket(0,7) = "US"
sMarket(0,8) = "409"
sMarket(0,9) = "44"
sMarket(0,10) = "1"
sMarket(1,0) = "Euro"
sMarket(1,1) = chr(8364)
sMarket(1,2) = "Francoforte"
sMarket(1,3) = "http://de.finance.yahoo.com/d/quotes.csv?s=<StockID>.F&f=sl1t1c1ghpv&e=.csv"
sMarket(1,5) = "Numero identificazione titoli"
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) = "Sterlina inglese"
sMarket(2,1) = "£"
sMarket(2,2) = "Londra"
sMarket(2,3) = "http://uk.finance.yahoo.com/d/quotes.csv?s=<StockID>.L&m=*&f=sl1t1c1ghov&e=.csv"
sMarket(2,5) = "Simbolo"
sMarket(2,6) = "en"
sMarket(2,7) = "GB"
sMarket(2,8) = "809"
sMarket(2,9) = "44"
sMarket(2,10) = "1"
sMarket(3,0) = "Yen"
sMarket(3,1) = "¥"
sMarket(3,2) = "Tokyo"
sMarket(3,3) = ""
sMarket(3,5) = "Codice"
sMarket(3,6) = "ja"
sMarket(3,7) = "JP"
sMarket(3,8) = "411"
sMarket(3,9) = ""
sMarket(3,10) = ""
sMarket(4,0) = "Dollaro Hong Kong"
sMarket(4,1) = "HK$"
sMarket(4,2) = "Hong Kong"
sMarket(4,3) = "http://hk.finance.yahoo.com/d/quotes.csv?s=<StockID>&f=sl1d1t1c1ohgv&e=.csv"
sMarket(4,5) = "Numero"
sMarket(4,6) = "zh"
sMarket(4,7) = "HK"
sMarket(4,8) = "C04"
sMarket(4,9) = "44"
sMarket(4,10) = "1"
sMarket(5,0) = "Dollaro australiano"
sMarket(5,1) = "$"
sMarket(5,2) = "Sydney"
sMarket(5,3) = "http://au.finance.yahoo.com/d/quotes.csv?s=<StockID>&f=sl1d1t1c1ohgv&e=.csv"
sMarket(5,5) = "Simbolo"
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 = "Quantità"
.lblRate.Label = "Quotazione"
.lblDate.Label = "Data della transazione"
.hlnCommission.Label = "Spese extra"
.lblCommission.Label = "Commissioni"
.lblMinimum.Label = "Commissione minima"
.lblFix.Label = "Importo fisso/Spese"
.cmdGoOn.Label = sOK
.cmdCancel.Label = sCancel
End With
With StockRatesModel
.optPerShare.Label = "Dividendo/Azione"
.optTotal.Label = "Dividendo totale"
.lblDividend.Label = "Importo"
.lblExchangeRate.Label = "Tasso di cambio (vecchio->nuovo)"
.lblColon.Label = ":"
.lblDate.Label = "Data di cambio:"
.lblStockNames.Label = sStockname
.lblStartDate.Label = sStartDate
.lblEndDate.Label = sEndDate
.optDaily.Label = "~Giornaliero"
.optWeekly.Label = "~Settimanale"
.hlnInterval.Label = "Durata"
.cmdGoOn.Label = sOk
.cmdCancel.Label = sCancel
End With
End Sub
</script:module>
|
