diff options
| -rw-r--r-- | wizards/source/depot/Internet.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/depot/Internet.xba b/wizards/source/depot/Internet.xba index 9d2315f484a6..62522956fadc 100644 --- a/wizards/source/depot/Internet.xba +++ b/wizards/source/depot/Internet.xba @@ -57,10 +57,10 @@ Dim ChartSource as String sStockID = oFirstSheet.GetCellByPosition(SBCOLUMNID1, CurRow).String ChartSource = ReplaceString(HistoryChartSource, sStockID, "<StockID>") ChartSource = ReplaceString(ChartSource, iStartDay, "<StartDay>") - ChartSource = ReplaceString(ChartSource, iStartMonth, "<StartMonth>") + ChartSource = ReplaceString(ChartSource, cStr(iStartMonth-1), "<StartMonth>") ChartSource = ReplaceString(ChartSource, iStartYear, "<StartYear>") ChartSource = ReplaceString(ChartSource, iEndDay, "<EndDay>") - ChartSource = ReplaceString(ChartSource, iEndMonth, "<EndMonth>") + ChartSource = ReplaceString(ChartSource, cStr(iEndMonth-1), "<EndMonth>") ChartSource = ReplaceString(ChartSource, iEndYear, "<EndYear>") ChartSource = ReplaceString(ChartSource, sInterval, "<interval>") oStatusLine.SetValue(2) |