diff options
38 files changed, 2 insertions, 2370 deletions
diff --git a/extras/source/templates/wizard/bitmap/brasil.gif b/extras/source/templates/wizard/bitmap/brasil.gif Binary files differdeleted file mode 100644 index 10de40697000..000000000000 --- a/extras/source/templates/wizard/bitmap/brasil.gif +++ /dev/null diff --git a/extras/source/templates/wizard/bitmap/china.gif b/extras/source/templates/wizard/bitmap/china.gif Binary files differdeleted file mode 100644 index 4d742ed0a7c7..000000000000 --- a/extras/source/templates/wizard/bitmap/china.gif +++ /dev/null diff --git a/extras/source/templates/wizard/bitmap/denmark.gif b/extras/source/templates/wizard/bitmap/denmark.gif Binary files differdeleted file mode 100644 index e0e336a22a6a..000000000000 --- a/extras/source/templates/wizard/bitmap/denmark.gif +++ /dev/null diff --git a/extras/source/templates/wizard/bitmap/finland.gif b/extras/source/templates/wizard/bitmap/finland.gif Binary files differdeleted file mode 100644 index a0251e50d8c7..000000000000 --- a/extras/source/templates/wizard/bitmap/finland.gif +++ /dev/null diff --git a/extras/source/templates/wizard/bitmap/france.gif b/extras/source/templates/wizard/bitmap/france.gif Binary files differdeleted file mode 100644 index c528c67b11a7..000000000000 --- a/extras/source/templates/wizard/bitmap/france.gif +++ /dev/null diff --git a/extras/source/templates/wizard/bitmap/germany.wmf b/extras/source/templates/wizard/bitmap/germany.wmf Binary files differdeleted file mode 100644 index 7c53f046552e..000000000000 --- a/extras/source/templates/wizard/bitmap/germany.wmf +++ /dev/null diff --git a/extras/source/templates/wizard/bitmap/greece.gif b/extras/source/templates/wizard/bitmap/greece.gif Binary files differdeleted file mode 100644 index 9bb33c3bfe51..000000000000 --- a/extras/source/templates/wizard/bitmap/greece.gif +++ /dev/null diff --git a/extras/source/templates/wizard/bitmap/italia.gif b/extras/source/templates/wizard/bitmap/italia.gif Binary files differdeleted file mode 100644 index cf729b0b9779..000000000000 --- a/extras/source/templates/wizard/bitmap/italia.gif +++ /dev/null diff --git a/extras/source/templates/wizard/bitmap/japan.gif b/extras/source/templates/wizard/bitmap/japan.gif Binary files differdeleted file mode 100644 index 0a7309738901..000000000000 --- a/extras/source/templates/wizard/bitmap/japan.gif +++ /dev/null diff --git a/extras/source/templates/wizard/bitmap/netherlands.gif b/extras/source/templates/wizard/bitmap/netherlands.gif Binary files differdeleted file mode 100644 index 5eeb4ea0e6ca..000000000000 --- a/extras/source/templates/wizard/bitmap/netherlands.gif +++ /dev/null diff --git a/extras/source/templates/wizard/bitmap/polska.gif b/extras/source/templates/wizard/bitmap/polska.gif Binary files differdeleted file mode 100644 index bdbe64a1cd99..000000000000 --- a/extras/source/templates/wizard/bitmap/polska.gif +++ /dev/null diff --git a/extras/source/templates/wizard/bitmap/portugal.gif b/extras/source/templates/wizard/bitmap/portugal.gif Binary files differdeleted file mode 100644 index 4951139dc90f..000000000000 --- a/extras/source/templates/wizard/bitmap/portugal.gif +++ /dev/null diff --git a/extras/source/templates/wizard/bitmap/russia.gif b/extras/source/templates/wizard/bitmap/russia.gif Binary files differdeleted file mode 100644 index 53aac1cfd987..000000000000 --- a/extras/source/templates/wizard/bitmap/russia.gif +++ /dev/null diff --git a/extras/source/templates/wizard/bitmap/spain.gif b/extras/source/templates/wizard/bitmap/spain.gif Binary files differdeleted file mode 100644 index 7fa821cf184c..000000000000 --- a/extras/source/templates/wizard/bitmap/spain.gif +++ /dev/null diff --git a/extras/source/templates/wizard/bitmap/sweden.gif b/extras/source/templates/wizard/bitmap/sweden.gif Binary files differdeleted file mode 100644 index 540c2a11a8ed..000000000000 --- a/extras/source/templates/wizard/bitmap/sweden.gif +++ /dev/null diff --git a/extras/source/templates/wizard/bitmap/taiwan.gif b/extras/source/templates/wizard/bitmap/taiwan.gif Binary files differdeleted file mode 100644 index 4258f5433f21..000000000000 --- a/extras/source/templates/wizard/bitmap/taiwan.gif +++ /dev/null diff --git a/extras/source/templates/wizard/bitmap/turkey.gif b/extras/source/templates/wizard/bitmap/turkey.gif Binary files differdeleted file mode 100644 index f001a0b5e9ee..000000000000 --- a/extras/source/templates/wizard/bitmap/turkey.gif +++ /dev/null diff --git a/extras/source/templates/wizard/bitmap/usa.gif b/extras/source/templates/wizard/bitmap/usa.gif Binary files differdeleted file mode 100644 index e15122b88ad0..000000000000 --- a/extras/source/templates/wizard/bitmap/usa.gif +++ /dev/null diff --git a/scp2/source/ooo/file_resource_ooo.scp b/scp2/source/ooo/file_resource_ooo.scp index 5cda7bced96e..8526d9791bdb 100644 --- a/scp2/source/ooo/file_resource_ooo.scp +++ b/scp2/source/ooo/file_resource_ooo.scp @@ -31,8 +31,6 @@ STD_RES_FILE( gid_File_Res_Basctl, basctl) STD_RES_FILE( gid_File_Res_Bib, bib ) -STD_RES_FILE( gid_File_Res_Cal, cal ) - STD_RES_FILE( gid_File_Res_Chartcontroller, chartcontroller ) STD_RES_FILE( gid_File_Res_Dba, dba) diff --git a/scp2/source/ooo/module_lang_template.scp b/scp2/source/ooo/module_lang_template.scp index 1dceb6d54681..c1235ffe1d22 100644 --- a/scp2/source/ooo/module_lang_template.scp +++ b/scp2/source/ooo/module_lang_template.scp @@ -53,7 +53,6 @@ Module gid_Module_Langpack_Resource_Template Styles = (TEMPLATEMODULE); Files = (gid_File_Res_Basctl, gid_File_Res_Bib, - gid_File_Res_Cal, gid_File_Res_Chartcontroller, gid_File_Res_Sdbt, gid_File_Res_Dbmm, diff --git a/wizards/AllLangResTarget_cal.mk b/wizards/AllLangResTarget_cal.mk deleted file mode 100644 index c5215f510809..000000000000 --- a/wizards/AllLangResTarget_cal.mk +++ /dev/null @@ -1,41 +0,0 @@ -# -*- Mode: makefile-gmake; tab-width: 4; indent-tabs-mode: t -*- -#************************************************************************* -# -# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -# -# Copyright 2000, 2011 Oracle and/or its affiliates. -# -# OpenOffice.org - a multi-platform office productivity suite -# -# This file is part of OpenOffice.org. -# -# OpenOffice.org is free software: you can redistribute it and/or modify -# it under the terms of the GNU Lesser General Public License version 3 -# only, as published by the Free Software Foundation. -# -# OpenOffice.org is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU Lesser General Public License version 3 for more details -# (a copy is included in the LICENSE file that accompanied this code). -# -# You should have received a copy of the GNU Lesser General Public License -# version 3 along with OpenOffice.org. If not, see -# <http://www.openoffice.org/license.html> -# for a copy of the LGPLv3 License. -# -#************************************************************************* - -$(eval $(call gb_AllLangResTarget_AllLangResTarget,cal)) - -$(eval $(call gb_AllLangResTarget_add_srs,cal,\ - cal/res \ -)) - -$(eval $(call gb_SrsTarget_SrsTarget,cal/res)) - -$(eval $(call gb_SrsTarget_add_files,cal/res,\ - wizards/source/schedule/schedule.src \ -)) - -# vim: set noet sw=4 ts=4: diff --git a/wizards/Module_wizards.mk b/wizards/Module_wizards.mk index 14cd3600a504..ae2b35d91827 100644 --- a/wizards/Module_wizards.mk +++ b/wizards/Module_wizards.mk @@ -29,7 +29,6 @@ $(eval $(call gb_Module_Module,wizards)) $(eval $(call gb_Module_add_targets,wizards,\ - AllLangResTarget_cal \ AllLangResTarget_dbw \ AllLangResTarget_eur \ AllLangResTarget_imp \ @@ -44,7 +43,6 @@ $(eval $(call gb_Module_add_targets,wizards,\ Zip_gimmicks \ Zip_import \ Zip_launcher \ - Zip_schedule \ Zip_share \ Zip_standard \ Zip_template \ diff --git a/wizards/Zip_schedule.mk b/wizards/Zip_schedule.mk deleted file mode 100644 index ec294746608e..000000000000 --- a/wizards/Zip_schedule.mk +++ /dev/null @@ -1,45 +0,0 @@ -# -*- Mode: makefile-gmake; tab-width: 4; indent-tabs-mode: t -*- -#************************************************************************* -# -# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -# -# Copyright 2000, 2011 Oracle and/or its affiliates. -# -# OpenOffice.org - a multi-platform office productivity suite -# -# This file is part of OpenOffice.org. -# -# OpenOffice.org is free software: you can redistribute it and/or modify -# it under the terms of the GNU Lesser General Public License version 3 -# only, as published by the Free Software Foundation. -# -# OpenOffice.org is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU Lesser General Public License version 3 for more details -# (a copy is included in the LICENSE file that accompanied this code). -# -# You should have received a copy of the GNU Lesser General Public License -# version 3 along with OpenOffice.org. If not, see -# <http://www.openoffice.org/license.html> -# for a copy of the LGPLv3 License. -# -#************************************************************************* - -$(eval $(call gb_Zip_Zip,basicsrvschedule,$(SRCDIR)/wizards/source/schedule)) - -$(eval $(call gb_Zip_add_files,basicsrvschedule,\ - BankHoliday.xba \ - CalendarMain.xba \ - CreateTable.xba \ - dialog.xlb \ - DlgCalendar.xdl \ - DlgControl.xba \ - GermanHolidays.xba \ - Language.xba \ - LocalHolidays.xba \ - OwnEvents.xba \ - script.xlb \ -)) - -# vim: set noet sw=4 ts=4: diff --git a/wizards/source/configshare/dialog.xlc b/wizards/source/configshare/dialog.xlc index b63ebd6d71d2..297b562dec80 100644 --- a/wizards/source/configshare/dialog.xlc +++ b/wizards/source/configshare/dialog.xlc @@ -4,10 +4,9 @@ <library:library library:name="FormWizard" xlink:href="$(INST)/share/basic/FormWizard/dialog.xlb/" xlink:type="simple" library:link="true" library:readonly="false"/> <library:library library:name="Template" xlink:href="$(INST)/share/basic/Template/dialog.xlb/" xlink:type="simple" library:link="true" library:readonly="false"/> <library:library library:name="Tools" xlink:href="$(INST)/share/basic/Tools/dialog.xlb/" xlink:type="simple" library:link="true" library:readonly="false"/> - <library:library library:name="Schedule" xlink:href="$(INST)/share/basic/Schedule/dialog.xlb/" xlink:type="simple" library:link="true" library:readonly="false"/> <library:library library:name="Gimmicks" xlink:href="$(INST)/share/basic/Gimmicks/dialog.xlb/" xlink:type="simple" library:link="true" library:readonly="false"/> <library:library library:name="ImportWizard" xlink:href="$(INST)/share/basic/ImportWizard/dialog.xlb/" xlink:type="simple" library:link="true" library:readonly="false"/> <library:library library:name="Euro" xlink:href="$(INST)/share/basic/Euro/dialog.xlb/" xlink:type="simple" library:link="true" library:readonly="false"/> <library:library library:name="Depot" xlink:href="$(INST)/share/basic/Depot/dialog.xlb/" xlink:type="simple" library:link="true" library:readonly="false"/> <library:library library:name="ScriptBindingLibrary" xlink:href="$(INST)/share/basic/ScriptBindingLibrary/dialog.xlb/" xlink:type="simple" library:link="true" library:readonly="false"/> -</library:libraries>
\ No newline at end of file +</library:libraries> diff --git a/wizards/source/configshare/script.xlc b/wizards/source/configshare/script.xlc index aaf1b0d9303e..13330d288e20 100644 --- a/wizards/source/configshare/script.xlc +++ b/wizards/source/configshare/script.xlc @@ -4,10 +4,9 @@ <library:library library:name="FormWizard" xlink:href="$(INST)/share/basic/FormWizard/script.xlb/" xlink:type="simple" library:link="true" library:readonly="false"/> <library:library library:name="Template" xlink:href="$(INST)/share/basic/Template/script.xlb/" xlink:type="simple" library:link="true" library:readonly="false"/> <library:library library:name="Tools" xlink:href="$(INST)/share/basic/Tools/script.xlb/" xlink:type="simple" library:link="true" library:readonly="false"/> - <library:library library:name="Schedule" xlink:href="$(INST)/share/basic/Schedule/script.xlb/" xlink:type="simple" library:link="true" library:readonly="false"/> <library:library library:name="Gimmicks" xlink:href="$(INST)/share/basic/Gimmicks/script.xlb/" xlink:type="simple" library:link="true" library:readonly="false"/> <library:library library:name="ImportWizard" xlink:href="$(INST)/share/basic/ImportWizard/script.xlb/" xlink:type="simple" library:link="true" library:readonly="false"/> <library:library library:name="Euro" xlink:href="$(INST)/share/basic/Euro/script.xlb/" xlink:type="simple" library:link="true" library:readonly="false"/> <library:library library:name="Depot" xlink:href="$(INST)/share/basic/Depot/script.xlb/" xlink:type="simple" library:link="true" library:readonly="false"/> <library:library library:name="ScriptBindingLibrary" xlink:href="$(INST)/share/basic/ScriptBindingLibrary/script.xlb/" xlink:type="simple" library:link="true" library:readonly="false"/> -</library:libraries>
\ No newline at end of file +</library:libraries> diff --git a/wizards/source/schedule/BankHoliday.xba b/wizards/source/schedule/BankHoliday.xba deleted file mode 100644 index e9af180aa32e..000000000000 --- a/wizards/source/schedule/BankHoliday.xba +++ /dev/null @@ -1,177 +0,0 @@ -<?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="BankHoliday" script:language="StarBasic">Option Explicit - -Sub Main() - Call CalAutopilotTable() -End Sub - - -Function CalEasterTable&(byval Year%) -Dim B%,C%,D%,E%,F%,G%,H%,I%,K%,L%,M%,N%,O%, nMonth%, nDay% - N = Year% mod 19 - B = int(Year% / 100) - C = Year% mod 100 - D = int(B / 4) - E = B mod 4 - F = int((B + 8) / 25) - G = int((B - F + 1) / 3) - H =(19 * N + B - D - G + 15) mod 30 - I = int(C / 4) - K = C mod 4 - L =(32 + 2 * E + 2 * I - H - K) mod 7 - M = int((N + 11 * H + 22 * L) / 451) - O = H + L - 7 * M + 114 - nDay = O mod 31 + 1 - nMonth = int(O / 31) - CalEasterTable& = DateSerial(Year, nMonth,nDay) -End Function - - -' Note: the following algorithm is valid only till the Year 2100. -' but I have no Idea from which date in the paste it is valid -Function CalOrthodoxEasterTable(ByVal iYear as Integer) as Long -Dim R1%, R2%, R3%, RA%, R4%, RB%, R5%, RC% -Dim lDate as Long - R1 = iYear mod 19 - R2 = iYear mod 4 - R3 = iYear mod 7 - RA =19 * R1 + 16 - R4 = RA mod 30 - RB = 2 * R2 + 4 * R3 + 6 * R4 - R5 = RB mod 7 - RC = R4 + R5 - lDate = DateSerial(iYear, 4,4) - CalOrthodoxEasterTable() = lDate + RC -End Function - - -Sub CalInitGlobalVariablesDate() -Dim i as Integer - For i = 1 To 374 - CalBankholidayName$(i) = "" - CalTypeOfBankHoliday%(i) = cHolidayType_None - Next -End Sub - - -Sub CalInsertBankholiday(byval CurDate as Long, byval EventName as String, ByVal iLevel as Integer) -Dim iDay - iDay =(Month(CurDate)-1)*31 +Day(CurDate) - - If 0 <> CalTypeOfBankHoliday(iDay) Then - If iLevel < CalTypeOfBankHoliday(iDay) Then - CalTypeOfBankHoliday(iDay) = iLevel - End If - Else - CalTypeOfBankHoliday(iDay) = iLevel - End If - - If CalBankHolidayName(iDay) = "" Then - CalBankHolidayName(iDay) = EventName - Else - CalBankHolidayName(iDay) = CalBankHolidayName(iDay) & " / " & EventName - End If -End Sub - -Function CalMaxDayInMonth(ByVal iYear as Integer, ByVal iMonth as Integer) as Integer -' delivers the maximum Day of a month in a certain year - Dim TmpDate as Long - Dim MaxDay as Long - - MaxDay = 28 - TmpDate = DateSerial(iYear, iMonth, MaxDay) - - While Month(TmpDate) = iMonth - MaxDay = MaxDay + 1 - TmpDate = TmpDate + 1 - Wend - Maxday = MaxDay - 1 - CalMaxDayInMonth() = MaxDay -End Function - - -Function CalGetIntOfShortMonthName(ByVal MonthName as String) as Integer -Dim i as Integer -Dim nMonth as Integer - - nMonth = Val(MonthName) - - If (1 <= nMonth And 12 >= nMonth) Then - CalGetIntOfShortMonthName = nMonth - Exit Function - End If - - MonthName = UCase(Trim(Left(MonthName, 3))) - - For i = 0 To 11 - If (UCase(cCalShortMonthNames(i)) = MonthName) Then - CalGetIntOfShortMonthName = i+1 - Exit Function - End If - Next - - ' Not Found - CalGetIntOfShortMonthName = 0 -End Function - - -Sub CalInsertOwnDataInTables(ByVal iSelYear as Integer) - ' inserts the individual data from the table into the previously unsorted list -Dim CurEventName as String -Dim CurEvMonth as Integer -Dim CurEvDay as Integer -Dim LastIndex as Integer -Dim i as Integer -Dim DateStr as String - LastIndex = Ubound(DlgCalModel.lstOwnData.StringItemList()) - For i = 0 To LastIndex - If GetSelectedDateUnits(CurEvDay, CurEvMonth, i) <> SBDATEUNDEFINED Then - CurEventName = CalGetNameOfEvent(i) - CalInsertBankholiday(DateSerial(iSelYear, CurEvMonth, CurEvDay), CurEventName, cHolidayType_Own) - End If - Next -End Sub - - -' Finds eg the first,second Monday in a month -' Note: in This Function the week starts with the Sunday -Function GetMonthDate(YearInt as Integer, iMonth as Integer, iWeekDay as Integer, iOffset as Integer) -Dim bFound as Boolean -Dim lDate as Long - ' 1st Tue in Nov : Election Day, Half - bFound = False - lDate = DateSerial(YearInt, iMonth, 1) - Do - If iWeekDay = WeekDay(lDate) Then - bFound = True - Else - lDate = lDate + 1 - End If - Loop Until bFound - GetMonthDate = lDate + iOffset -End Function - - -' Finds the next weekday after a fixed date -' e.g. Midsummerfeast in Sweden: next Saturday after 20th June -Function GetNextWeekDay(iYear as Integer, iMonth as Integer, iDay as Integer, iWeekDay as Integer) -Dim lDate as Long -Dim iCurWeekDay as Integer - lDate = DateSerial(iYear, iMonth, iDay) - iCurWeekDay = WeekDay(lDate) - While iCurWeekDay <> iWeekDay - lDate = lDate + 1 - iCurWeekDay = WeekDay(lDate) - Wend - GetNextWeekDay() = lDate -End Function - - -Sub AddFollowUpHolidays(ByVal lStartDate as Long, iCount as Integer, HolidayName as String, iType as Integer) -Dim lDate as Long - For lDate = lStartDate + 1 To lStartDate + 4 - CalInsertBankholiday(lDate, HolidayName, iType) - Next lDate -End Sub -</script:module>
\ No newline at end of file diff --git a/wizards/source/schedule/CalendarMain.xba b/wizards/source/schedule/CalendarMain.xba deleted file mode 100644 index 2deb51cca84d..000000000000 --- a/wizards/source/schedule/CalendarMain.xba +++ /dev/null @@ -1,302 +0,0 @@ -<?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="CalendarMain" script:language="StarBasic">Option Explicit - -Const _DEBUG = 0 - -' CalenderMain -Public sCurLangLocale as String -Public sCurCountryLocale as String -' This flag serves as a query if the individual Data should be saved -Public bCalOwnDataChanged as Boolean - -'BankHoliday Functions -Public CalBankholidayName$ (1 To 374) -Public CalTypeOfBankHoliday% (1 To 374) - -Public Const cHolidayType_None = 0 -Public Const cHolidayType_Full = 1 -Public Const cHolidayType_Half = 2 -Public Const cHolidayType_Own = 4 - -Public cCalSubcmdDeleteSelect_DeleteSelEntry$ -Public cCalSubcmdDeleteSelect_DeleteSelEntryTitle$ -Public cCalSubcmdSwitchOwnDataOrGeneral_Back$ -Public cCalSubcmdSwitchOwnDataOrGeneral_OwnData$ - -'Language -Public cCalLongMonthNames(11) as String -Public cCalShortMonthNames(11) as String - -Public sBitmapFilename$ -Public sCalendarTitle$, sMonthTitle$, sWizardTitle$, sError$ -Public cCalStyleWorkday$, cCalStyleWeekend$ - -Public CalChoosenLand as Integer - -Public oDocument as Object -Public oSheets as Object -Public oSheet as Object -Public oStatusLine as Object -Public bCancelTask as Boolean -Public oNumberFormatter as Object - -' BL* means "BundesLand" (for german states only) -Public CONST CalBLBayern = 1 -Public CONST CalBLBadenWuert = 2 -Public CONST CalBLBerlin = 3 -Public CONST CalBLBremen = 4 -Public CONST CalBLBrandenburg = 5 -Public CONST CalBLHamburg = 6 -Public CONST CalBLHessen = 7 -Public CONST CalBLMeckPomm = 8 -Public CONST CalBLNiedersachsen = 9 -Public CONST CalBLNordrheinWest = 10 -Public CONST CalBLRheinlandPfalz = 11 -Public CONST CalBLSaarland = 12 -Public CONST CalBLSachsen = 13 -Public CONST CalBLSachsenAnhalt = 14 -Public CONST CalBLSchlHolstein = 15 -Public CONST CalBLThueringen = 16 - -Public DlgCalendar as Object -Public DlgCalModel as Object -Public lDateFormat as Long -Public lDateStandardFormat as Long - - - -Sub CalAutopilotTable() -Dim BitmapDir as String -Dim iThisMonth as Integer - -'On Error Goto ErrorHandler - BasicLibraries.LoadLibrary("Tools") - bSelectByMouseMove = True - oDocument = ThisComponent - oStatusline = oDocument.GetCurrentController.GetFrame.CreateStatusIndicator - ToggleWindow(False) - sCurLangLocale = oDocument.CharLocale.Language - sCurCountryLocale = oDocument.CharLocale.Country - DlgCalendar = LoadDialog("Schedule", "DlgCalendar") - DlgCalModel = DlgCalendar.Model - LoadLanguage(sCurLangLocale) - CalInitGlobalVariablesDate() - BitmapDir = GetOfficeSubPath("Template","../wizard/bitmap") - DlgCalModel.imgCountry.ImageURL = BitmapDir & sBitmapFilename - CalChoosenLand = -2 - CalLoadOwnData() - - With DlgCalModel - .cmdDelete.Enabled = False - .lstMonth.StringItemList() = cCalShortMonthNames() - Select Case sCurLangLocale - Case cLANGUAGE_JAPANESE - .lstOwnData.FontName = "HG MinochoL" - .txtEvent.FontName = "HG MinchoL" - Case cLANGUAGE_CHINESE - If oDocument.CharLocale.Country = "CN" Then - .lstOwnData.FontName = "FZ Song Ti" - .txtEvent.FontName = "FZ Song Ti" - Else - .lstOwnData.FontName = "FZ Ming Ti" - .txtEvent.FontName = "FZ Ming Ti" - End If - Case "ko" - .lstOwnData.FontName = "Sun Gulim" - .txtEvent.FontName = "Sun Gulim" - End Select - .lstOwnEventMonth.StringItemList() = cCalShortMonthNames() - .optYear.State = 1 - .txtYear.Value = Year(Now()) - .txtYear.Tag = .txtYear.Value - .Step = 1 - End With - SetupNumberFormatter(sCurLangLocale, sCurCountryLocale) - CalChooseCalendar() ' month - iThisMonth = Month(Now) - DlgCalendar.GetControl("lstMonth").SelectItemPos(iThisMonth-1, True) - DlgCalendar.GetControl("lstHolidays").SelectItemPos(0,True) - DlgCalModel.cmdGoOn.DefaultButton = True - ToggleWindow(True) - DlgCalendar.GetControl("lblHolidays").Visible = sCurLangLocale = cLANGUAGE_GERMAN - DlgCalendar.GetControl("lstHolidays").Visible = sCurLangLocale = cLANGUAGE_GERMAN - fHeightCorrFactor = DlgCalendar.GetControl("imgCountry").Size.Height/198 - fWidthCorrFactor = DlgCalendar.GetControl("imgCountry").Size.Width/166 - DlgCalendar.Execute() - DlgCalendar.Dispose() - Exit Sub -ErrorHandler: - MsgBox(sError$, 16, sWizardTitle$) -End Sub - - -Sub SetupNumberFormatter(sCurLangLocale as String, sCurCountryLocale as String) -Dim oFormats as Object -Dim DateFormatString as String - oFormats = oDocument.getNumberFormats() - Select Case sCurLangLocale - Case cLANGUAGE_GERMAN - DateFormatString = "TT.MMM" - Case cLANGUAGE_ENGLISH - DateFormatString = "MMM DD" - Case cLANGUAGE_FRENCH - DateFormatString = "JJ/MMM" - Case cLANGUAGE_ITALIAN - DateFormatString = "GG/MMM" - Case cLANGUAGE_SPANISH - DateFormatString = "DD/MMM" - Case cLANGUAGE_PORTUGUESE - If sCurCountryLocale = "BR" Then - DateFormatString = "DD/MMM" - Else - DateFormatString = "DD-MMM" - End If - Case cLANGUAGE_DUTCH - DateFormatString = "DD/MMM" - Case cLANGUAGE_SWEDISH - DateFormatString = "MMM DD" - Case cLANGUAGE_DANISH - DateFormatString = "DD-MMM" - Case cLANGUAGE_POLISH - DateFormatString = "MMM DD" - Case cLANGUAGE_RUSSIAN - DateFormatString = "MMM DD" - Case cLANGUAGE_JAPANESE - DateFormatString = "M月D日" - Case cLANGUAGE_CHINESE - If sCurCountryLocale = "TW" Then - DateFormatString = "MMMMD" &"""" & "日" & """" - Else - DateFormatString = "M" & """" & "月" & """" & "D" &"""" & "日" & """" - End If - Case cLANGUAGE_GREEK - DateFormatString = "DD/MMM" - Case cLANGUAGE_TURKISH - DateFormatString = "DD/MMM" - Case cLANGUAGE_POLISH - DateFormatString = "MMM DD" - Case cLANGUAGE_FINNISH - DateFormatString = "PP.KKK" - End Select - - lDateFormat = AddNumberFormat(oFormats, DateFormatString, oDocument.CharLocale) - lDateStandardFormat = oFormats.getStandardFormat(com.sun.star.util.NumberFormat.DATE, oDocument.CharLocale) - -' lDateStandardFormat = AddNumberFormat(oFormats, StandardDateFormatString, oDocument.CharLocale) - oNumberFormatter = createUNOService("com.sun.star.util.NumberFormatter") - oNumberFormatter.attachNumberFormatsSupplier(oDocument) -End Sub - - -Function AddNumberFormat(oNumberFormats as Object, FormatString as String, oLocale as Object) as Long -Dim lLocDateFormat as Long - lLocDateFormat = oNumberFormats.QueryKey(FormatString, oLocale, True) - If lLocDateFormat = -1 Then - lLocDateFormat = oNumberFormats.addNew(FormatString, oLocale) - End If - AddNumberFormat() = lLocDateFormat -End Function - - -Sub CalChooseCalendar() - With DlgCalModel - .lstMonth.Enabled = .optMonth.State = 1 - .lblMonth.Enabled = .optMonth.State = 1 - End With -End Sub - - -Sub CalcmdCancel() - Call CalSaveOwnData() - DlgCalendar.EndExecute -End Sub - - -Sub CalcmdOk() - ' cmdOk is called when the Button 'Read' is clicked on - ' It is either given out a month or a year -Dim i, iSelYear as Integer -Dim SelYear as String -' DlgCalendar.Visible = False - - oSheets = oDocument.sheets - Call CalSaveOwnData() - UnprotectSheets(oSheets) - oSheets.RemovebyName(oSheets.GetbyIndex(0).Name) - iSelYear = DlgCalModel.txtYear.Value - Select Case sCurLangLocale - Case cLANGUAGE_GERMAN - If Ubound(DlgCalModel.lstHolidays.SelectedItems()) > -1 Then - CalChoosenLand = DlgCalModel.lstHolidays.SelectedItems(0) - Else - CalChoosenLand = 0 - End If - Call CalFindWholeYearHolidays_GERMANY(iSelYear, CalChoosenLand) - Case cLANGUAGE_ENGLISH - Call FindWholeYearHolidays_US(iSelYear) - Case cLANGUAGE_FRENCH - Call FindWholeYearHolidays_FRANCE(iSelYear) - Case cLANGUAGE_ITALIAN - Call FindWholeYearHolidays_ITA(iSelYear) - Case cLANGUAGE_SPANISH - Call FindWholeYearHolidays_SPAIN(iSelYear) - Case cLANGUAGE_PORTUGUESE - Call FindWholeYearHolidays_PORT(iSelYear) - Case cLANGUAGE_DUTCH - Call FindWholeYearHolidays_NL(iSelYear) - Case cLANGUAGE_SWEDISH - Call FindWholeYearHolidays_SWED(iSelYear) - Case cLANGUAGE_DANISH - Call FindWholeYearHolidays_DK(iSelYear) - Case cLANGUAGE_POLISH - Call FindWholeYearHolidays_PL(iSelYear) - Case cLANGUAGE_RUSSIAN - Call FindWholeYearHolidays_RU(iSelYear) - Case cLANGUAGE_JAPANESE - Call FindWholeYearHolidays_JP(iSelYear) - Case cLANGUAGE_CHINESE - If sCurCountryLocale = "TW" Then - Call FindWholeYearHolidays_TW(iSelYear) - Else - Call FindWholeYearHolidays_CN(iSelYear) - End If - Case cLANGUAGE_GREEK - Call FindWholeYearHolidays_GREEK(iSelYear) - Case cLANGUAGE_TURKISH - Call FindWholeYearHolidays_TRK(iSelYear) - Case cLANGUAGE_POLISH - Call FindWholeYearHolidays_PL(iSelYear) - Case cLANGUAGE_FINNISH - Call FindWholeYearHolidays_FI(iSelYear) - End Select - - Call CalInsertOwnDataInTables(iSelYear) - - If DlgCalModel.optYear.State = 1 Then - oSheets.RemovebyName(oSheets.GetbyIndex(0).Name) - oSheet = oSheets.GetbyIndex(0) - oSheet.Name = sCalendarTitle$ + " " + iSelYear - oDocument.AddActionLock - Call CalCreateYearTable(iSelYear) - ElseIf DlgCalModel.optMonth.State = 1 Then - Dim iMonth - iMonth = DlgCalModel.lstMonth.SelectedItems(0) + 1 - oSheets.RemovebyName(oSheets.GetbyIndex(1).Name) - oSheet = oSheets.GetbyIndex(0) - If sMonthTitle = "" Then - oSheet.Name = cCalLongMonthNames(iMonth-1) - Else - oSheet.Name = sMonthTitle + " " + cCalLongMonthNames(iMonth-1) - End If - oDocument.AddActionLock - Call CalCreateMonthTable(iSelYear, iMonth) - End If - - oDocument.RemoveActionLock - oSheet.protect("") - oStatusLine.End - DlgCalendar.EndExecute() - bCancelTask = True -End Sub -</script:module>
\ No newline at end of file diff --git a/wizards/source/schedule/CreateTable.xba b/wizards/source/schedule/CreateTable.xba deleted file mode 100644 index 6d472a84bca4..000000000000 --- a/wizards/source/schedule/CreateTable.xba +++ /dev/null @@ -1,133 +0,0 @@ -<?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="CreateTable" script:language="StarBasic">Option Explicit - -Public Const FirstDayRow = 5 ' Row on month sheet for first day of month -Public Const DateColumn% = 3 ' Column on month sheet with days -Public Const NewYearRow = 4 ' Row on year sheet for January 1st -Public Const NewYearColumn = 2 ' Column on year sheet for January 1st - - -Sub CalCreateYearTable(ByVal iSelYear as Integer) -' Completes the overview for whole year - -' Needed by StarOffice Calc and StarOffice Schedule -Dim CalDay as Integer -Dim CalMonth as Integer -Dim i as Integer -Dim s as Integer -Dim oYearCell as object -Dim iDate -Dim ColPos, RowPos as Integer -Dim oNameCell, oDateCell as Object -Dim iCellValue as Long -Dim oRangeFebCell, oCellAddress, oFebcell as Object -Dim oRangeBlank as Object -Dim sBlankStyle as String -' On Error Goto ErrorHandling - oStatusLine.Start("",140) 'GetResText(sProgress) - iDate = DateSerial(iSelYear,1,1) - oYearCell = oSheet.GetCellRangeByName("Year") - oYearCell.Value = iSelYear - - CalMonth = 1 - CalDay = 0 - s = 10 - oStatusLine.SetValue(s) - For i = 1 To 374 - CalDay = CalDay+1 - If CalDay = 32 Then - CalDay = 1 - CalMonth = CalMonth+1 - s = s + 10 - oStatusLine.SetValue(s) - End If - ColPos = NewYearColumn+(2*CalMonth) - RowPos = NewYearRow + CalDay - FormatCalCells(ColPos,RowPos,i) - Next - If NOT CalIsLeapYear(iSelYear) Then - ' Delete 29th February if necessary - oRangeFebCell = oSheet.GetCellRangeByName("Feb29") - oCellAddress = oRangeFebCell.RangeAddress - oFebCell = oSheet.GetCellByPosition(oCellAddress.StartColumn,oCellAddress.StartRow) - oFebCell.String = "" - ' Change the CellStyle according to the Range "Blank" - oRangeBlank = oSheet.GetCellRangebyName("Blank") - sBlankStyle = oRangeBlank.CellStyle - oRangeFebCell.CellStyle = sBlankStyle - End If - oStatusLine.SetValue(150) - ErrorHandling: - If Err <> 0 Then - MsgBox sError$, 16, sWizardTitle$ - End If -End Sub - - - -Sub CalCreateMonthTable(ByVal iSelYear as Integer, iSelMonth as Integer) -Dim oMonthCell, oDateCell as Object -Dim iDate as Date -Dim oAddress -Dim i, s as Integer -Dim iStartDay as Integer - -' Completes the monthly calendar -'On Error Goto ErrorHandling - oStatusLine.Start("",40) 'GetResText(sProgess) - ' Set month - oMonthCell = oSheet.GetCellRangeByName("Month") - - iDate = DateSerial(iSelYear,iSelMonth,1) - oMonthCell.Value = iDate - ' Inserting holidays - iStartDay = (iSelMonth - 1) * 31 + 1 - s = 5 - For i = iStartDay To iStartDay + 30 - oStatusLine.SetValue(s) - s = s + 1 - FormatCalCells(DateColumn+1,FirstDayRow + i - iStartDay,i) - Next - oDateCell = oSheet.GetCellbyPosition(DateColumn,FirstDayRow+i-iStartDay - 1) - oAddress = oDateCell.RangeAddress - - Select Case iSelMonth - Case 2,4,6,9,11 - oSheet.RemoveRange(oAddress, com.sun.star.sheet.CellDeleteMode.ROWS) - If iSelMonth = 2 Then - oAddress.StartRow = oAddress.StartRow - 1 - oAddress.EndRow = oAddress.StartRow - oSheet.RemoveRange(oAddress, com.sun.star.sheet.CellDeleteMode.ROWS) - If Not CalIsLeapYear(iSelYear) Then - oAddress.StartRow = oAddress.StartRow - 1 - oAddress.EndRow = oAddress.StartRow - oSheet.RemoveRange(oAddress, com.sun.star.sheet.CellDeleteMode.ROWS) - End If - End If - End Select - oStatusLine.SetValue(45) -ErrorHandling: - If Err <> 0 Then - MsgBox sError$, 16, sWizardTitle$ - End If -End Sub - - - -Sub FormatCalCells(ColPos,RowPos,i as Integer) -Dim oNameCell, oDateCell as Object -Dim iCellValue as Long - oDateCell = oSheet.GetCellbyPosition(ColPos-1,RowPos) - If oDateCell.Value <> 0 Then - iCellValue = oDateCell.Value - oDateCell.Value = iCellValue - If CalBankHolidayName$(i) <> "" Then - oNameCell = oSheet.GetCellbyPosition(ColPos,RowPos) - oNameCell.String = CalBankHolidayName$(i) - If CalTypeOfBankHoliday%(i) = cHolidayType_Full Then - oDateCell.CellStyle = cCalStyleWeekend$ - End If - End If - End If -End Sub</script:module>
\ No newline at end of file diff --git a/wizards/source/schedule/DlgCalendar.xdl b/wizards/source/schedule/DlgCalendar.xdl deleted file mode 100644 index 2936a5ebe6da..000000000000 --- a/wizards/source/schedule/DlgCalendar.xdl +++ /dev/null @@ -1,64 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd"> -<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="Dialog1" dlg:left="160" dlg:top="81" dlg:width="208" dlg:height="156" dlg:page="1" dlg:help-url="HID:WIZARDS_HID_DLGHOLIDAYCAL_DIALOG" dlg:closeable="true" dlg:moveable="true"> - <dlg:styles> - <dlg:style dlg:style-id="0" dlg:border="none"/> - <dlg:style dlg:style-id="1" dlg:font-name="Cumberland" dlg:font-stylename="Standard" dlg:font-family="modern" dlg:font-charset="ansi"/> - <dlg:style dlg:style-id="2" dlg:font-name="Cumberland" dlg:font-stylename="Standard" dlg:font-family="modern" dlg:font-charset="ansi"/> - </dlg:styles> - <dlg:bulletinboard> - <dlg:menulist dlg:id="lstHolidays" dlg:tab-index="0" dlg:left="6" dlg:top="17" dlg:width="95" dlg:height="12" dlg:page="1" dlg:help-url="HID:WIZARDS_HID_DLGHOLIDAYCAL_1_CMBSTATE" dlg:spin="true"/> - <dlg:fixedline dlg:id="hlnCalendar" dlg:tab-index="1" dlg:left="6" dlg:top="36" dlg:width="95" dlg:height="8" dlg:page="1" dlg:value="hlnCalendar"/> - <dlg:radiogroup> - <dlg:radio dlg:id="optYear" dlg:tab-index="2" dlg:left="12" dlg:top="47" dlg:width="81" dlg:height="10" dlg:page="1" dlg:help-url="HID:WIZARDS_HID_DLGHOLIDAYCAL_1_OPYEAR" dlg:value="optYear"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Schedule.CalendarMain.CalChooseCalendar?language=Basic&location=application" script:language="Script"/> - </dlg:radio> - <dlg:radio dlg:id="optMonth" dlg:tab-index="3" dlg:left="12" dlg:top="61" dlg:width="81" dlg:height="10" dlg:page="1" dlg:help-url="HID:WIZARDS_HID_DLGHOLIDAYCAL_1_OPMONTH" dlg:value="optMonth"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Schedule.CalendarMain.CalChooseCalendar?language=Basic&location=application" script:language="Script"/> - </dlg:radio> - </dlg:radiogroup> - <dlg:text dlg:id="lblHolidays" dlg:tab-index="4" dlg:left="6" dlg:top="6" dlg:width="96" dlg:height="8" dlg:page="1" dlg:value="lblHolidays"/> - <dlg:img dlg:style-id="0" dlg:id="imgCountry" dlg:tab-index="5" dlg:left="106" dlg:top="6" dlg:width="95" dlg:height="113" dlg:page="1" dlg:help-url="HID:WIZARDS_HID_DLGHOLIDAYCAL_1_PREVIEW"> - <script:event script:event-name="on-mousedown" script:macro-name="vnd.sun.star.script:Schedule.DlgControl.SelectState?language=Basic&location=application" script:language="Script"/> - <script:event script:event-name="on-mouseout" script:macro-name="vnd.sun.star.script:Schedule.DlgControl.MouseLeavesImage?language=Basic&location=application" script:language="Script"/> - <script:event script:event-name="on-mousemove" script:macro-name="vnd.sun.star.script:Schedule.DlgControl.CalMouseMoved?language=Basic&location=application" script:language="Script"/> - </dlg:img> - <dlg:fixedline dlg:id="hlnTime" dlg:tab-index="6" dlg:left="5" dlg:top="78" dlg:width="95" dlg:height="8" dlg:page="1" dlg:value="hlnTime"/> - <dlg:menulist dlg:id="lstMonth" dlg:tab-index="7" dlg:left="62" dlg:top="106" dlg:width="38" dlg:height="12" dlg:page="1" dlg:help-url="HID:WIZARDS_HID_DLGHOLIDAYCAL_1_EDMONTH" dlg:spin="true"/> - <dlg:text dlg:id="lblYear" dlg:tab-index="8" dlg:left="12" dlg:top="91" dlg:width="46" dlg:height="8" dlg:page="1" dlg:value="lblYear"/> - <dlg:text dlg:id="lblMonth" dlg:tab-index="9" dlg:left="12" dlg:top="108" dlg:width="46" dlg:height="8" dlg:page="1" dlg:value="lblMonth"/> - <dlg:fixedline dlg:id="FixedLine1" dlg:tab-index="10" dlg:left="6" dlg:top="125" dlg:width="196" dlg:height="4"/> - <dlg:button dlg:id="cmdCancel" dlg:tab-index="11" dlg:left="6" dlg:top="136" dlg:width="50" dlg:height="14" dlg:help-url="HID:WIZARDS_HID_DLGHOLIDAYCAL_0_CMDCANCEL" dlg:value="cmdCancel"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Schedule.CalendarMain.CalcmdCancel?language=Basic&location=application" script:language="Script"/> - </dlg:button> - <dlg:button dlg:id="cmdOwnData" dlg:tab-index="12" dlg:left="99" dlg:top="136" dlg:width="50" dlg:height="14" dlg:help-url="HID:WIZARDS_HID_DLGHOLIDAYCAL_0_CMDOWNDATA" dlg:value="cmdOwnData"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Schedule.DlgControl.CalmdSwitchOwnDataOrGeneral?language=Basic&location=application" script:language="Script"/> - </dlg:button> - <dlg:button dlg:id="cmdGoOn" dlg:tab-index="13" dlg:left="152" dlg:top="136" dlg:width="50" dlg:height="14" dlg:help-url="HID:WIZARDS_HID_DLGHOLIDAYCAL_0_CMDOK" dlg:value="cmdGoOn"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Schedule.CalendarMain.CalcmdOk?language=Basic&location=application" script:language="Script"/> - </dlg:button> - <dlg:text dlg:id="lblEvent" dlg:tab-index="14" dlg:left="12" dlg:top="17" dlg:width="67" dlg:height="8" dlg:page="2" dlg:value="lblEvent"/> - <dlg:fixedline dlg:id="hlnNewEvent" dlg:tab-index="15" dlg:left="6" dlg:top="6" dlg:width="196" dlg:height="8" dlg:page="2" dlg:value="hlnNewEvent"/> - <dlg:textfield dlg:style-id="1" dlg:id="txtEvent" dlg:tab-index="16" dlg:left="12" dlg:top="28" dlg:width="107" dlg:height="12" dlg:page="2" dlg:help-url="HID:WIZARDS_HID_DLGHOLIDAYCAL_2_EDEVENT"> - <script:event script:event-name="on-textchange" script:macro-name="vnd.sun.star.script:Schedule.OwnEvents.CheckInsertedDates?language=Basic&location=application" script:language="Script"/> - </dlg:textfield> - <dlg:numericfield dlg:id="txtOwnEventDay" dlg:tab-index="17" dlg:left="13" dlg:top="55" dlg:width="30" dlg:height="12" dlg:page="2" dlg:help-url="HID:WIZARDS_HID_DLGHOLIDAYCAL_2_EDEVENTDAY" dlg:decimal-accuracy="0" dlg:value-min="1" dlg:spin="true"> - <script:event script:event-name="on-textchange" script:macro-name="vnd.sun.star.script:Schedule.OwnEvents.CheckInsertedDates?language=Basic&location=application" script:language="Script"/> - </dlg:numericfield> - <dlg:menulist dlg:id="lstOwnEventMonth" dlg:tab-index="18" dlg:left="60" dlg:top="55" dlg:width="30" dlg:height="12" dlg:page="2" dlg:help-url="HID:WIZARDS_HID_DLGHOLIDAYCAL_2_EDEVENTMONTH" dlg:spin="true"> - <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:Schedule.OwnEvents.GetOwnMonth?language=Basic&location=application" script:language="Script"/> - </dlg:menulist> - <dlg:button dlg:id="cmdInsert" dlg:tab-index="19" dlg:left="99" dlg:top="70" dlg:width="50" dlg:height="14" dlg:page="2" dlg:help-url="HID:WIZARDS_HID_DLGHOLIDAYCAL_2_CMDINSERT" dlg:value="cmdInsert"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Schedule.OwnEvents.CalcmdInsertData?language=Basic&location=application" script:language="Script"/> - </dlg:button> - <dlg:button dlg:id="cmdDelete" dlg:tab-index="20" dlg:left="152" dlg:top="70" dlg:width="50" dlg:height="14" dlg:page="2" dlg:help-url="HID:WIZARDS_HID_DLGHOLIDAYCAL_2_CMDDELETE" dlg:value="cmdDelete"> - <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Schedule.DlgControl.CalcmdDeleteSelect?language=Basic&location=application" script:language="Script"/> - </dlg:button> - <dlg:menulist dlg:style-id="2" dlg:id="lstOwnData" dlg:tab-index="21" dlg:left="12" dlg:top="86" dlg:width="190" dlg:height="34" dlg:page="2" dlg:help-url="HID:WIZARDS_HID_DLGHOLIDAYCAL_2_LBOWNDATA"> - <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:Schedule.DlgControl.CalUpdateNewEventFrame?language=Basic&location=application" script:language="Script"/> - </dlg:menulist> - <dlg:text dlg:id="lblEventDay" dlg:tab-index="22" dlg:left="12" dlg:top="44" dlg:width="44" dlg:height="8" dlg:page="2" dlg:value="lblEventDay"/> - <dlg:text dlg:id="lblEventMonth" dlg:tab-index="23" dlg:left="60" dlg:top="44" dlg:width="44" dlg:height="8" dlg:page="2" dlg:value="lblEventMonth"/> - <dlg:numericfield dlg:id="txtYear" dlg:tab-index="24" dlg:left="62" dlg:top="89" dlg:width="38" dlg:height="12" dlg:page="1" dlg:help-url="HID:WIZARDS_HID_DLGHOLIDAYCAL_1_EDYEAR" dlg:decimal-accuracy="0" dlg:value-min="1582" dlg:value-max="9957" dlg:spin="true"/> - </dlg:bulletinboard> -</dlg:window>
\ No newline at end of file diff --git a/wizards/source/schedule/DlgControl.xba b/wizards/source/schedule/DlgControl.xba deleted file mode 100644 index b7a7c4c957ae..000000000000 --- a/wizards/source/schedule/DlgControl.xba +++ /dev/null @@ -1,148 +0,0 @@ -<?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="DlgControl" script:language="StarBasic">Option Explicit - -Dim CalBitmap As Object -Public bSelectByMouseMove as Boolean -Public fHeightCorrFactor as Double -Public fWidthCorrFactor as Double - - - -Sub Main() - Call CalAutopilotTable() -End Sub - - -Sub CalcmdDeleteSelect() -Dim MsgBoxResult as Integer -Dim bDoEnable as Boolean -Dim iSel as Integer -Dim MaxIndex as Integer - If Ubound(DlgCalModel.lstOwnData.SelectedItems()) > -1 Then - MsgBoxResult = MsgBox(cCalSubcmdDeleteSelect_DeleteSelEntry$, 4+32, cCalSubcmdDeleteSelect_DeleteSelEntryTitle$) - If MsgBoxResult = 6 Then - iSel = DlgCalModel.lstOwnData.SelectedItems(0) - DlgCalModel.lstOwnData.StringItemList() = RemoveSelected(DlgCalModel.lstOwnData) - ' Flag to store the new data - bCalOwnDataChanged = True - bDoEnable = Ubound(DlgCalModel.lstOwnData.StringItemList()) > -1 - DlgCalModel.cmdDelete.Enabled = bDoEnable - If bDoEnable Then - MaxIndex = Ubound(DlgCalModel.lstOwnData.StringItemList()) - If iSel > MaxIndex Then - iSel = MaxIndex - End If - DlgCalendar.GetControl("lstOwnData").SelectItemPos(iSel, True) - CalUpdateNewEventFrame() - Else - Call CalClearInputMask() - End If - End If - End If -End Sub - - -Sub CalSaveOwnEventControls() - With DlgCalModel - .txtOwnEventDay.Tag = .txtOwnEventDay.Value - .txtOwnEventMonth.Tag = .txtOwnEventMonth.Text - End With -End Sub - - -Sub CalMouseMoved(aEvent as object) -Dim ListIndex as Integer - Select Case sCurLangLocale - Case cLANGUAGE_GERMAN - If bSelectByMouseMove Then -' oStatusLine.SetText("Position: " & aEvent.X & " ; " & aEvent.Y) - ListIndex = CalGetGermanLandAtMousePos(CInt(aEvent.X/fWidthCorrFactor), CInt(aEvent.Y/fHeightCorrFactor)) - DlgCalendar.GetControl("lstHolidays").SelectItemPos(ListIndex, True) - End If - End Select -End Sub - - -Sub SelectState(aEvent as Object) -Dim ListIndex as Integer - Select Case sCurLangLocale - Case cLANGUAGE_GERMAN - If aEvent.ClickCount >= 1 Then - ListIndex = CalGetGermanLandAtMousePos(CInt(aEvent.X/fWidthCorrFactor), CInt(aEvent.Y/fHeightCorrFactor)) - DlgCalendar.GetControl("lstHolidays").SelectItemPos(ListIndex, True) - bSelectByMouseMove = False - End If - End Select -End Sub - - -Sub MouseLeavesImage - bSelectbyMouseMove = True -End Sub - - -Sub CalClearInputMask() -Dim NullList() as String - With DlgCalModel - .txtEvent.Text = "" - .txtOwnEventDay.SetPropertyToDefault("Value") - .cmdInsert.Enabled = False - End With - If Ubound(DlgCalModel.lstOwnData.StringItemList()) > -1 Then - If Ubound(DlgCalModel.lstOwnData.SelectedItems()) = -1 Then - DlgCalendar.GetControl("lstOwnData").SelectItemPos(0,True) - CalUpdateNewEventFrame() - End If - End If -End Sub - - -Sub CalmdSwitchOwnDataOrGeneral() - If DlgCalModel.Step = 1 Then - DlgCalModel.Step = 2 - DlgCalModel.cmdOwnData.Label = cCalSubcmdSwitchOwnDataOrGeneral_Back$ - DlgCalModel.cmdInsert.Enabled = DlgCalModel.txtEvent.Text <> "" -' ToggleYearBox() - Else - dim bla as boolean - DlgCalModel.Step = 1 - DlgCalendar.GetControl("lblHolidays").Visible = sCurLangLocale = cLANGUAGE_GERMAN - DlgCalendar.GetControl("lstHolidays").Visible = sCurLangLocale = cLANGUAGE_GERMAN - DlgCalModel.cmdOwnData.Label = cCalSubcmdSwitchOwnDataOrGeneral_OwnData$ - End If -End Sub - - -Sub ToggleInsertButton() - DlgCalModel.cmdInsert.Enabled = LTrim(DlgCalModel.txtEvent.Text) <> "" -End Sub - - -Sub CalUpdateNewEventFrame() -Dim bDoEnable as Boolean -Dim sSelectedItem -Dim ListIndex as Integer -Dim MaxSelIndex as Integer -Dim CurEvMonth as Integer -Dim CurEvDay as Integer -Dim DateStr as String - bDoEnable = False - With DlgCalModel - MaxSelIndex = Ubound(DlgCalModel.lstOwnData.SelectedItems()) - If MaxSelIndex > -1 Then - ListIndex = .lstOwnData.SelectedItems(MaxSelIndex) - .txtEvent.Text = CalGetNameofEvent(ListIndex) - If GetSelectedDateUnits(CurEvDay, CurEvMonth, ListIndex) <> SBDATEUNDEFINED Then - .txtOwnEventDay.Value = CurEvDay - DlgCalendar.GetControl("lstOwnEventMonth").SelectItemPos(CurEvMonth-1, True) - .cmdDelete.Enabled = True - .cmdInsert.Enabled = True - Else - Call CalClearInputMask() - .cmdDelete.Enabled = True - End If - End If - End With -End Sub -</script:module>
\ No newline at end of file diff --git a/wizards/source/schedule/GermanHolidays.xba b/wizards/source/schedule/GermanHolidays.xba deleted file mode 100644 index 7ce4357e9699..000000000000 --- a/wizards/source/schedule/GermanHolidays.xba +++ /dev/null @@ -1,132 +0,0 @@ -<?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="GermanHolidays" script:language="StarBasic">Option Explicit - -Sub Main() - Call CalAutopilotTable() -End Sub - -Function CalGetGermanLandAtMousePos(byval X as single, byval Y as single) as Integer - CalChoosenLand = 0 - If (X>73)And(X<130)And(Y>=117)And(Y<181) Then - CalChoosenLand = CalBLBayern - - ElseIf (X>41)And(X<89)And(Y>=136)And(Y<183) Then - CalChoosenLand = CalBLBadenWuert - - ElseIf (X>18)And(X<35)And(Y>136)And(Y<147) Then - CalChoosenLand = CalBLSaarland - - ElseIf (X>13)And(X<42)And(Y>111)And(Y<146) Then - CalChoosenLand = CalBLRheinlandPfalz - - ElseIf (X>15)And(X<=60)And(Y>=69)And(Y<112) Then - CalChoosenLand = CalBLNordrheinWest - - ElseIf (X>=42)And(X<78)And(Y>=95)And(Y<136) Then - CalChoosenLand = CalBLHessen - - ElseIf (X>=78)And(X<112)And(Y>=95)And(Y<117) Then - CalChoosenLand = CalBLThueringen - - ElseIf (X>=112)And(X<158)And(Y>=88)And(Y<114) Then - CalChoosenLand = CalBLSachsen - - ElseIf (X>77)And(X<84)And(Y>35)And(Y<42) Then - CalChoosenLand = CalBLHamburg - - ElseIf (X>56)And(X<60)And(Y>36)And(Y<41) Then - CalChoosenLand = CalBLBremen - - ElseIf (X>58)And(X<63)And(Y>44)And(Y<52) Then - CalChoosenLand = CalBLBremen - - ElseIf (X>52)And(X<95)And(Y>8)And(Y<40) Then - CalChoosenLand = CalBLSchlHolstein - - ElseIf (X>90)And(X<149)And(Y>23)And(Y<48) Then - CalChoosenLand = CalBLMeckPomm - - ElseIf (X>28)And(X<90)And(Y>35)And(Y<69) Then - CalChoosenLand = CalBLNiedersachsen - - ElseIf (X>60)And(X<90)And(Y>=69)And(Y<95) Then - CalChoosenLand = CalBLNiedersachsen - - ElseIf (X>=90)And(X<=115)And(Y>47)And(Y<95) Then - CalChoosenLand = CalBLSachsenAnhalt - - ElseIf (X>129)And(X<139)And(Y>60)And(Y<66) Then - CalChoosenLand = CalBLBerlin - - ElseIf (X>115)And(X<151)And(Y>=48)And(Y<88) Then - CalChoosenLand = CalBLBrandenburg - End If - CalGetGermanLandAtMousePos = CalChoosenLand -End Function - - - -Sub CalFindWholeYearHolidays_GERMANY(ByVal iSelYear as Integer, ByVal iCountry as Integer) - Dim So as Integer - Dim OsternDate&, VierterAdvent& - - If (iCountry < 1) Or (iCountry > 16) Then - iCountry = CalBLHamburg - End If - OsternDate& = CalEasterTable&(iSelYear) - So = 1 - - CalInsertBankholiday(DateSerial(iSelYear, 1, 1), "Neujahr", cHolidayType_Full) - - If (iCountry = CalBLBayern) Or (iCountry = CalBLBadenWuert) Or (iCountry = CalBLSachsenAnhalt) Then - CalInsertBankholiday(DateSerial(iSelYear, 1, 6), "Hl. 3 Könige", cHolidayType_Full) - End If - - CalInsertBankholiday(OsternDate&-2, "Karfreitag", cHolidayType_Full) - CalInsertBankholiday(OsternDate&, "Ostersonntag", cHolidayType_Full) - CalInsertBankholiday(OsternDate&+1, "Ostermontag", cHolidayType_Full) - CalInsertBankholiday(DateSerial(iSelYear, 5, 1), "Maifeiertag", cHolidayType_Full) - CalInsertBankholiday(OsternDate&+39, "Christi Himmelfahrt", cHolidayType_Full) - CalInsertBankholiday(OsternDate&+49, "Pfingstsonntag", cHolidayType_Full) - CalInsertBankholiday(OsternDate&+50, "Pfingstmontag", cHolidayType_Full) - - If (iCountry = CalBLBadenWuert) Or (iCountry = CalBLBayern) Or (iCountry = CalBLHessen) Or (iCountry = CalBLNordRheinWest) Or (iCountry = CalBLRheinlandPfalz) Or (iCountry = CalBLSaarland) Or (iCountry = CalBLSachsen) Or (iCountry = CalBLThueringen) Then - CalInsertBankholiday(OsternDate&+60, "Fronleichnam", cHolidayType_Full) - End If - - If (iCountry = CalBLBayern) Or (iCountry = CalBLSaarland) Then - CalInsertBankholiday(DateSerial(iSelYear, 8, 15), "Mariä Himmelfahrt", cHolidayType_Full) - End If - - CalInsertBankholiday(DateSerial(iSelYear, 10, 3), "Tag der dt. Einheit", cHolidayType_Full) - - If (iCountry=CalBLBrandenburg) Or (iCountry=CalBLMeckPomm) Or (iCountry=CalBLSachsenAnhalt) Or (iCountry=CalBLSachsen) Or (iCountry=CalBLThueringen) Then - CalInsertBankholiday(DateSerial(iSelYear, 10, 31), "Reformationstag", cHolidayType_Full) - End If - - If (iCountry = CalBLBadenWuert) Or (iCountry = CalBLBayern) Or (iCountry = CalBLNordRheinWest) Or (iCountry = CalBLRheinlandPfalz) Or (iCountry = CalBLSaarland) Or (iCountry = CalBLSachsen) Or (iCountry = CalBLThueringen) Then - CalInsertBankholiday(DateSerial(iSelYear, 11, 1), "Allerheiligen", cHolidayType_Full) - End If - - vierterAdvent = DateSerial(iSelYear, 12, 24) - While WeekDay(vierterAdvent) <> So - vierterAdvent = vierterAdvent - 1 - Wend - - If iCountry = CalBLSachsen Then - CalInsertBankholiday(vierterAdvent-32, "Buß- und Bettag", cHolidayType_Full) - Else - CalInsertBankholiday(vierterAdvent-32, "Buß- und Bettag", cHolidayType_Half) - End If - CalInsertBankholiday(vierterAdvent-21, "1. Advent", cHolidayType_Full) - CalInsertBankholiday(vierterAdvent-14, "2. Advent", cHolidayType_Full) - CalInsertBankholiday(vierterAdvent-7, "3. Advent", cHolidayType_Full) - CalInsertBankholiday(vierterAdvent, "4. Advent", cHolidayType_Full) - - CalInsertBankholiday(Dateserial(iSelYear, 12, 24), "Heiligabend", cHolidayType_Half) - CalInsertBankholiday(Dateserial(iSelYear, 12, 25), "1. Weihnachtstag", cHolidayType_Full) - CalInsertBankholiday(Dateserial(iSelYear, 12, 26), "2. Weihnachtstag", cHolidayType_Full) - CalInsertBankholiday(Dateserial(iSelYear, 12, 31), "Sylvester", cHolidayType_Half) -End Sub -</script:module>
\ No newline at end of file diff --git a/wizards/source/schedule/Language.xba b/wizards/source/schedule/Language.xba deleted file mode 100644 index 9fbf0942e94f..000000000000 --- a/wizards/source/schedule/Language.xba +++ /dev/null @@ -1,95 +0,0 @@ -<?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="Language" script:language="StarBasic">Option Explicit - - -Public Const cLANGUAGE_SYSTEM = "", cLANGUAGE_CHINESE = "zh", cLANGUAGE_DANISH = "da" -Public Const cLANGUAGE_DUTCH = "nl", cLANGUAGE_ENGLISH = "en", cLANGUAGE_FINNISH = "fi" -Public Const cLANGUAGE_FRENCH = "fr", cLANGUAGE_GERMAN = "de", cLANGUAGE_GREEK = "el" -Public Const cLANGUAGE_ITALIAN = "it", cLANGUAGE_JAPANESE = "ja", cLANGUAGE_NORWEGIAN = "no" -Public Const cLANGUAGE_POLISH = "pl", cLANGUAGE_PORTUGUESE = "pt", cLANGUAGE_RUSSIAN = "ru" -Public Const cLANGUAGE_SPANISH = "es", cLANGUAGE_SWEDISH = "sv", cLANGUAGE_TURKISH = "tr" - -Public BLNameList(0 To 16) as String - - -' R e s o u r c e s t r i n g c o n s t a n t s -' ------------------------------------------------- -' Dialog labels start at 1000 - -Sub LoadLanguage%(ByVal LangLocale) -Dim Dummy$ -Dim i as Integer -Const dlgMonth = 1200 -' Abreviated months start 1225 -Const dlgShortMonth = 1225 - If InitResources("schedule", "cal") Then - If LangLocale = cLANGUAGE_GERMAN Then - - ' Load all states - BLNameList(0) = GetResText(1100) - BLNameList(1) = "Bayern" - BLNameList(2) = "Baden-Württemberg" - BLNameList(3) = "Berlin" - BLNameList(4) = "Bremen" - BLNameList(5) = "Brandenburg" - BLNameList(6) = "Hamburg" - BLNameList(7) = "Hessen" - BLNameList(8) = "Mecklenburg-Vorpommern" - BLNameList(9) = "Niedersachsen" - BLNameList(10) = "Nordrhein-Westfalen" - BLNameList(11) = "Rheinland-Pfalz" - BLNameList(12) = "Saarland" - BLNameList(13) = "Sachsen" - BLNameList(14) = "Sachsen-Anhalt" - BLNameList(15) = "Schleswig Holstein" - BLNameList(16) = "Thüringen" - - DlgCalModel.lstHolidays.StringItemList() = BLNameList() - End If - sWizardTitle$ = GetResText(1300) - sError = GetResText(1301) - cCalSubcmdDeleteSelect_DeleteSelEntryTitle$ = GetResText(1302) - cCalSubcmdDeleteSelect_DeleteSelEntry$ = GetResText(1303) - DlgCalendar.Title = GetResText(1000) - - With DlgCalModel - cCalSubcmdSwitchOwnDataOrGeneral_OwnData$ = GetResText(1002) - cCalSubcmdSwitchOwnDataOrGeneral_Back$ = GetResText(1001) - .hlnTime.Label = GetResText(1011) - .lblYear.Label = GetResText(1012) - .cmdCancel.Label = GetResText(1005) - .cmdGoOn.Label = GetResText(1004) - .lblHolidays.Label = GetResText(1014) - sBitmapFilename = GetResText(1099) - sBitmapFilename = ReplaceString(sBitmapFileName, ".gif", ".bmp") - DlgCalModel.hlnCalendar.Label = GetResText(1006) - .optYear.Label = GetResText(1007) - .optMonth.Label = GetResText(1008) - .lblMonth.Label = GetResText(1013) - .cmdOwnData.Label = GetResText(1015) - .hlnNewEvent.Label = GetResText(1019) - .lblEvent.Label = GetResText(1019) - .lblEventDay.Label = GetResText(1021) - .lblEventMonth.Label = GetResText(1022) -' .lblEventYear.Label = GetResText(1023) -' .chkEventOnce.Label = GetResText(1020) - .cmdInsert.Label = GetResText(1016) - .cmdDelete.Label = GetResText(1017) - ' Load long month names - For i = 0 To 11 - cCalLongMonthNames(i) = GetResText(dlgMonth+i) - cCalShortMonthNames(i)= cCalLongMonthNames(i) - 'cCalShortMonthNames(i)= Left$(cCalLongMonthNames(i), 3) - cCalShortMonthNames(i)= RTrim(cCalShortMonthNames(i)) - Next - ' Load sheet names - sCalendarTitle = GetResText(1410) - sMonthTitle = GetResText(1411) - ' Load names of styles - cCalStyleWorkday$ = GetResText(1400) - cCalStyleWeekend$ = GetResText(1401) - End With - End If -End Sub -</script:module>
\ No newline at end of file diff --git a/wizards/source/schedule/LocalHolidays.xba b/wizards/source/schedule/LocalHolidays.xba deleted file mode 100644 index 0b347c03f031..000000000000 --- a/wizards/source/schedule/LocalHolidays.xba +++ /dev/null @@ -1,642 +0,0 @@ -<?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="LocalHolidays" script:language="StarBasic">Option Explicit - -Sub Main - Call CalAutopilotTable() -End Sub - - -Sub FindWholeYearHolidays_FRANCE(ByVal YearInt as Integer) -Dim lEasterDate& -Dim lDate& - CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Jour de l'an", cHolidayType_Full) - lEasterDate = CalEasterTable(YearInt) - CalInsertBankholiday(lEasterDate, "Pâques", cHolidayType_Full) - CalInsertBankholiday(lEasterDate + 1, "Lundi de Pâques", cHolidayType_Full) - CalInsertBankholiday(lEasterDate + 39, "Ascension", cHolidayType_Full) - CalInsertBankholiday(lEasterDate + 49, "Pentecôte", cHolidayType_Full) - CalInsertBankholiday(lEasterDate + 50, "Lundi de Pentecôte", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 5, 1), "Fête du travail", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 5, 8), "Victoire 1945", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 7, 14), "Fête Nationale", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 8, 15), "Assomption", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 11, 1), "Toussaint", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 11, 11), "Armistice ou Victoire 1918", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Noël", cHolidayType_Full) -End Sub - - -Sub FindWholeYearHolidays_SWED(ByVal YearInt as Integer) -Dim lDate& - CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Nyårsdagen", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 1, 6), "Trettondagen", cHolidayType_Full) - lDate = CalEasterTable(YearInt) - CalInsertBankholiday(lDate - 2, "Långfredagen", cHolidayType_Full) - CalInsertBankholiday(lDate, "Påskdagen", cHolidayType_Full) - CalInsertBankholiday(lDate + 1, "Annandag påsk", cHolidayType_Full) - CalInsertBankholiday(lDate + 39, "Kristi himmelfärds dag", cHolidayType_Full) - CalInsertBankholiday(lDate + 49, "Pingstdagen", cHolidayType_Full) - CalInsertBankholiday(lDate + 50, "Annandag pingst", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 5, 1), "1:a maj", cHolidayType_Full) - ' MidSummerfeast (next Sunday after 20th June) - CalInsertBankholiday(GetNextWeekday(YearInt, 6, 20, 7), "Midsommardagen", cHolidayType_Full) - CalInsertBankholiday(GetNextWeekDay(YearInt, 10, 31, 7), "Alla helgons dag", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Juldagen", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 12, 26), "Annandag jul", cHolidayType_Full) -End Sub - - - -Sub FindWholeYearHolidays_FI(ByVal YearInt as Integer) - Dim OsternDate& - ' New Year - CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Uudenvuodenpäivä", cHolidayType_Full) - ' "the three Magi" - CalInsertBankholiday(DateSerial(YearInt, 1, 6), "Loppiainen", cHolidayType_Half) - OsternDate = CalEasterTable(YearInt) - CalInsertBankholiday(OsternDate-2, "Pitkäperjantai", cHolidayType_Full) - CalInsertBankholiday(OsternDate, "Pääsiäispäivä", cHolidayType_Full) - CalInsertBankholiday(OsternDate+1, "2. pääsiäispäivä", cHolidayType_Full) - ' Ascension Day - CalInsertBankholiday(OsternDate+39, "Helatorstai", cHolidayType_Full) - ' First of May - CalInsertBankholiday(DateSerial(YearInt, 5, 1), "Vappu, suomalaisen työn päivä", cHolidayType_Full) - ' Mothers Day : 2nd Sunday in May, Full - CalInsertBankholiday(GetMonthDate(YearInt, 5,1,7), "Äitienpäivä", cHolidayType_Full) - ' MidSummerfeast (next Sunday after 20th June) - CalInsertBankholiday(GetNextWeekday(YearInt, 6, 20, 7), "Juhannus, Suomen lipun päivä", cHolidayType_Full) - ' Independance day - CalInsertBankholiday(DateSerial(YearInt, 12, 6), "Itsenäisyyspäivä", cHolidayType_Full) - ' Christmas - CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Joulupäivä", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 12, 26), "Tapaninpäivä", cHolidayType_Full) -End Sub - - - -Sub FindWholeYearHolidays_DK (ByVal YearInt as Integer) -Dim lDate&, VierterAdvent& - - 'New Year - CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Nytårsdag", cHolidayType_Full) - lDate = CalEasterTable (YearInt) - ' carnival - CalInsertBankholiday(lDate-49, "Fastelavn", cHolidayType_Half) - '"Maundy Tuesday - CalInsertBankholiday(lDate-3, "Skærtorsdag", cHolidayType_Full) - '"Good Friday " - CalInsertBankholiday(lDate-2, "Langfredag", cHolidayType_Full) - ' Easter Sunday - CalInsertBankholiday(lDate, "Påskesøndag", cHolidayType_Full) - ' Easter Monday - CalInsertBankholiday(lDate+1, "2. påskedag", cHolidayType_Full) - ' 4th Friday after Easter - CalInsertBankholiday(lDate+26, "Store bededag", cHolidayType_Full) - ' "Ascension Day - CalInsertBankholiday(lDate+39, "Kristi himmelfahrt", cHolidayType_Full) - ' "Whitsunday" - CalInsertBankholiday(lDate+49, "Pinsesøndag", cHolidayType_Full) - ' "Whitmonday" - CalInsertBankholiday(lDate+50, "2. pinsedag", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 6, 5), "Grundlovsdag", cHolidayType_Full) - 'Christmas Days - CalInsertBankholiday(DateSerial(YearInt, 12, 25), "1. juledag", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 12, 26), "2. juledag", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 1, 6), "Hellig 3 konger", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 3, 28), "Dr. Ingrid", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 4, 16), "Dr. Margrete", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 4, 16), "Palmesøndag", cHolidayType_Half) - ' "Liberation day" - CalInsertBankholiday(DateSerial(YearInt, 5, 5), "Befrielsesdag", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 5, 26), "Krpr. Frederik", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 6, 7), "Pr. Joachim", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 6, 11), "Pr. Henrik", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 6, 15), "Valdemarsdag", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 6, 24), "Skt. Hans", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 6, 30), "Prinsesse Alexandra", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 8, 28), "Pr. Nikolai", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 10, 24), "FN-dag", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 11, 11), "Morten Bisp", cHolidayType_Half) - ' all half (Memorial Days) - '"adventdays - VierterAdvent = DateSerial(YearInt, 12, 24) - While (Weekday(VierterAdvent) <> 1) - vierterAdvent = vierterAdvent - 1 - Wend - CalInsertBankholiday(vierterAdvent-21, "1. søndag i advent", cHolidayType_Half) - CalInsertBankholiday(vierterAdvent-14, "2. søndag i advent", cHolidayType_Half) - CalInsertBankholiday(vierterAdvent-7, "3. søndag i advent", cHolidayType_Half) - CalInsertBankholiday(vierterAdvent, "4. søndag i advent", cHolidayType_Half) - 'Christmas eve - CalInsertBankholiday(DateSerial(YearInt, 12, 24), "Juleaften", cHolidayType_Half) - '"New Year's eve" - CalInsertBankholiday(DateSerial(YearInt, 12, 31), "Nytårsaften", cHolidayType_Half) -End Sub - - -Sub FindWholeYearHolidays_ITA(ByVal YearInt as Integer) -Dim lDate& - CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Capodanno", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 1, 6), "Epifania", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 4, 25), "Festa della liberazione", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 8, 15), "Ferragusto", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 11, 1), "Tutti i Santi", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 12, 8), "Immacolata concezione", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Natale", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 12, 26), "Santo Stefano", cHolidayType_Full) - lDate = CalEasterTable(YearInt) - CalInsertBankholiday(lDate, "Pasqua", cHolidayType_Full) - CalInsertBankholiday(lDate+1, "Lunedì dell'Angelo", cHolidayType_Full) -End Sub - - - -Sub FindWholeYearHolidays_TRK(ByVal YearInt as Integer) -Dim lDate as Long - ' New Years' Day - CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Yılbaşı", cHolidayType_Full) - ' National Sovereignty and Children's Day - CalInsertBankholiday(DateSerial(YearInt, 4, 23), "Ulusal Egemenlik ve Çocuk Bayramı", cHolidayType_Full) - ' Ataturk Commemoration and Youth & Sports Day - CalInsertBankholiday(DateSerial(YearInt, 5, 19), "Atatürk'ü Anma, Gençlik ve Spor Bayramı", cHolidayType_Full) - ' Mothers Day : 2nd Sunday in May, Full - CalInsertBankholiday(GetMonthDate(YearInt, 5,1,7), "Anneler günü", cHolidayType_Full) - ' Fathers Day: 3rd Sunday in May, Full - CalInsertBankholiday(GetMonthDate(YearInt, 6,1,14), "Babalar Günü", cHolidayType_Full) - ' Victory Day - CalInsertBankholiday(DateSerial(YearInt, 8, 30), "Zafer Bayramı", cHolidayType_Full) - ' Republic Day - CalInsertBankholiday(DateSerial(YearInt, 10, 28), "Cumhuriyet Bayramı", cHolidayType_Full) - ' Republic Day - CalInsertBankholiday(DateSerial(YearInt, 10, 29), "Cumhuriyet Bayramı", cHolidayType_Full) - ' Commemoration Of Ataturk-Anniversary of Ataturk's Death - CalInsertBankholiday(DateSerial(YearInt, 11, 10), "Atatürk'ün Ölüm Günü", cHolidayType_Full) - CalculateturkishReligousHolidays(YearInt) -End Sub - - -Sub CalculateturkishReligousHolidays(iSelYear as Integer) -Dim lKurbanBayRamStartDate as Long -Dim lRamazanBayRamStartDate as Long - - Select Case iSelYear - Case 2002 - lKurbanBayRamStartDate = DateSerial(iSelYear, 2, 21) - lRamazanBayRamStartDate = DateSerial(iSelYear, 12, 4) - Case 2003 - lKurbanBayRamStartDate = DateSerial(iSelYear, 2, 10) - lRamazanBayRamStartDate = DateSerial(iSelYear, 11, 24) - Case 2004 - lKurbanBayRamStartDate = DateSerial(iSelYear, 1, 31) - lRamazanBayRamStartDate = DateSerial(iSelYear, 11, 13) - Case 2005 - lKurbanBayRamStartDate = DateSerial(iSelYear, 1, 19) - lRamazanBayRamStartDate = DateSerial(iSelYear, 11, 2) - Case 2006 - lKurbanBayRamStartDate = DateSerial(iSelYear, 12, 30) - CalInsertBankholiday(lKurbanBayRamStartDate, "Kurban Bayramı Arefesi", cHolidayType_Half) - CalInsertBankholiday(DateSerial(iSelYear, 12, 31), "Kurban Bayram", cHolidayType_Full) - - lKurbanBayRamStartDate = DateSerial(iSelYear, 1, 9) - lRamazanBayRamStartDate = DateSerial(iSelYear, 10, 22) - Case 2007 - lKurbanBayRamStartDate = DateSerial(iSelYear, 1, 1) - ' Note: The first day has already been in 2006!!! - AddFollowUpHolidays(lKurbanBayRamStartDate-1, 3, "Kurban Bayram", cHolidayType_Full) - lKurbanBayRamStartDate = DateSerial(iSelYear, 12, 19) - - lRamazanBayRamStartDate = DateSerial(iSelYear, 10, 11) - Case 2008 - lKurbanBayRamStartDate = DateSerial(iSelYear, 12, 7) - lRamazanBayRamStartDate = DateSerial(iSelYear, 9, 29) - Case Else - Exit Sub - End Select - 'Feast Of the Sacrifice Eve - CalInsertBankholiday(lKurbanBayRamStartDate, "Kurban Bayramı Arefesi", cHolidayType_Half) - 'Feast Of the Sacrifice - AddFollowUpHolidays(lKurbanBayRamStartDate, 4, "Kurban Bayram", cHolidayType_Full) - ' End of Ramadan Eve - CalInsertBankholiday(lRamazanBayRamStartDate, "Ramazan (Şeker) Bayramı Arefesi", cHolidayType_Half) - ' End of Ramadan - AddFollowUpHolidays(lRamazanBayRamStartDate, 3, "Ramazan (Şeker) Bayramı", cHolidayType_Full) -End Sub - - -Sub FindWholeYearHolidays_GREEK(ByVal YearInt as Integer) -Dim lDate as Long - ' New Year - CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Πρωτοχρονιά", cHolidayType_Full) - 'Schol Holiday - CalInsertBankholiday(DateSerial(YearInt, 12, 30), "Τριών Ιεραρχών", cHolidayType_Full) - ' This is both a National Holiday and a religious holiday - CalInsertBankholiday(DateSerial(YearInt, 3, 25), "Εθνική Εορτή Ευαγγελισμός Θεοτόκου", cHolidayType_Full) - ' Labor Day - CalInsertBankholiday(DateSerial(YearInt, 5, 1), "Πρωτομαγιά", cHolidayType_Full) - ' Assumption Day - CalInsertBankholiday(DateSerial(YearInt, 8, 15), "Κοίμηση της Θεοτόκου", cHolidayType_Full) - ' National Resistance Day - CalInsertBankholiday(DateSerial(YearInt, 10, 28), "Εθνική Εορτή", cHolidayType_Full) - ' School Holiday - CalInsertBankholiday(DateSerial(YearInt, 11, 17), "Επέτειος του Πολυτεχνείου", cHolidayType_Full) - ' Christmas Eve - CalInsertBankholiday(DateSerial(YearInt, 12, 24), "Παραμονή Χριστουγέννων", cHolidayType_Full) - ' Christmas Day - CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Χριστούγεννα", cHolidayType_Full) - ' Boxing Day - CalInsertBankholiday(DateSerial(YearInt, 12, 26), "Δεύτερη μέρα Χριστουγέννων", cHolidayType_Full) - lDate = CalOrthodoxEasterTable(YearInt) - ' Triodon - CalInsertBankholiday(lDate-70, "Αρχή Τριωδίου", cHolidayType_Full) - ' Meat Fare - CalInsertBankholiday(lDate-56, "Τσικνοπέμπτη", cHolidayType_Full) - ' First Day of Lent - CalInsertBankholiday(lDate-48, "Καθαρή Δευτέρα", cHolidayType_Full) - ' Saturday of Lazarus - CalInsertBankholiday(lDate-8, "Σάββατο του Λαζάρου", cHolidayType_Full) - ' Palm Sunday - CalInsertBankholiday(lDate-7, "Κυριακή των Βαΐων", cHolidayType_Full) - ' Monday before Easter - CalInsertBankholiday(lDate-6, "Μεγάλη Δευτέρα", cHolidayType_Full) - ' Tuesday before Easter - CalInsertBankholiday(lDate-5, "Μεγάλη Τρίτη", cHolidayType_Full) - ' Wednesday before Easter - CalInsertBankholiday(lDate-4, "Μεγάλη Τετάρτη", cHolidayType_Full) - ' Thursday before Easter - CalInsertBankholiday(lDate-3, "Μεγάλη Πέμπτη", cHolidayType_Full) - ' Good Friday - CalInsertBankholiday(lDate-2, "Μεγάλη Παρασκευή", cHolidayType_Full) - ' Saturday before Easter - CalInsertBankholiday(lDate-1, "Μεγάλο Σάββατο", cHolidayType_Full) - ' Easter Monday - CalInsertBankholiday(lDate+1, "Δευτέρα του Πάσχα", cHolidayType_Full) - ' Pentecost - CalInsertBankholiday(lDate+49, "Κυριακή της Πεντηκοστής", cHolidayType_Full) - ' Ascension Day - CalInsertBankholiday(lDate+39, "Του Αγίου Πνεύματος", cHolidayType_Full) - ' All Saints Day - CalInsertBankholiday(lDate+56, "Των Αγίων Πάντων", cHolidayType_Full) -End Sub - - - -Sub FindWholeYearHolidays_SPAIN(ByVal YearInt as Integer) -Dim lDate& - CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Año Nuevo", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 1, 6), "Reyes", cHolidayType_Full) - lDate = CalEasterTable(YearInt) - CalInsertBankholiday(lDate-2, "Viernes Santo", cHolidayType_Full) - CalInsertBankholiday(lDate+1, "Lunes de Pascua Florida", cHolidayType_Full) - CalInsertBankholiday(lDate+39, "Día de la Ascensión", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 5, 1), "Fiesta del Trabajo", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 8, 15), "Día de la Asunción", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 10, 12), "Fiesta de la Hispanidad", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 11, 1), "Todos los Santos", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 12, 6), "Día de la Constitución", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 12, 8), "La Inmaculada", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Navidad", cHolidayType_Full) -End Sub - - -Sub FindWholeYearHolidays_PORT(ByVal YearInt as Integer) -Dim lDate& - CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Ano Novo", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 1, 6), "Reis Magos", cHolidayType_Half) - lDate = CalEasterTable(YearInt) - CalInsertBankholiday(lDate-47, "Carnaval", cHolidayType_Full) - CalInsertBankholiday(lDate-7, "Domingo de Ramos", cHolidayType_Half) - CalInsertBankholiday(lDate-2, "Sexta-feira Santa", cHolidayType_Full) - CalInsertBankholiday(lDate, "Páscoa", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 4, 25), "25 de Abril", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 5, 1), "Dia do Trabalhador", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 5, 29), "Corpo de Deus", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 6, 10), "Dia de Camões e das Comunidades Portuguesas", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 6, 24), "S. João", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 6, 29), "S. Pedro", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 8, 15), "Assunção de Nossa Senhora", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 10, 5), "Implantação da República", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 11, 1), "Dia de Todos os Santos", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 12, 8), "Imaculada Conceição", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Natal", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 12, 1), "Restauração da Independência", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 12, 31), "Passagem de Ano", cHolidayType_Half) -End Sub - - -Sub FindWholeYearHolidays_NL(ByVal YearInt as Integer) -Dim lDate& - CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Nieuwjaarsdag", cHolidayType_Full) - lDate = CalEasterTable(YearInt) - CalInsertBankholiday(lDate, "1e Paasdag", cHolidayType_Full) - CalInsertBankholiday(lDate + 1, "2e Paasdag", cHolidayType_Full) - CalInsertBankholiday(lDate + 39, "Hemelvaartsdag", cHolidayType_Full) - CalInsertBankholiday(lDate + 49, "1e Pinksterdag", cHolidayType_Full) - CalInsertBankholiday(lDate + 50, "2e Pinksterdag", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 4, 30), "Koninginnedag", cHolidayType_Full) - ' Bevrijdingsdag is celebrated every 5th year - If YearInt Mod 5 = 0 then - CalInsertBankholiday(DateSerial(YearInt, 5, 5), "Bevrijdingsdag", cHolidayType_Full) - End if - CalInsertBankholiday(DateSerial(YearInt, 12, 6), "Sinterklaas", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 12, 25), "1e Kerstdag", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 12, 26), "2e Kerstdag", cHolidayType_Full) -End Sub - - -Sub FindWholeYearHolidays_PL (ByVal YearInt as Integer) - Dim lDate&, OsternDate& - ' New Year - CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Nowy Rok", cHolidayType_Full) - ' "the three Magi" - CalInsertBankholiday(DateSerial(YearInt, 1, 6), "Trzech Króli", cHolidayType_Half) - ' "Womens' Day" - CalInsertBankholiday(DateSerial(YearInt, 3, 8), "Dzień Kobiet", cHolidayType_Half) - OsternDate = CalEasterTable(YearInt) - CalInsertBankholiday(OsternDate-2, "Wielki Piątek", cHolidayType_Full) - CalInsertBankholiday(OsternDate, "Wielka Niedziela", cHolidayType_Full) - CalInsertBankholiday(OsternDate+1, "Lany Poniedziałek", cHolidayType_Full) - ' Ascension Day - CalInsertBankholiday(OsternDate+39, "Wniebowstąpienie", cHolidayType_Full) - ' Pentecost - CalInsertBankholiday(OsternDate+49, "Zielone Świątki", cHolidayType_Full) - ' Feast of Corpus Christi - CalInsertBankholiday(OsternDate+60, "Boże Ciało", cHolidayType_Full) - ' First of May - CalInsertBankholiday(DateSerial(YearInt, 5, 1), "Święto pracy", cHolidayType_Full) - ' Memorial day of constitution - CalInsertBankholiday(DateSerial(YearInt, 5, 3), "Dzień konstytucji 3-go maja", cHolidayType_Full) - ' "Childrens' day" - CalInsertBankholiday(DateSerial(YearInt, 6, 1), "Dzień Dziecka", cHolidayType_Half) - ' "Ascension Day" - CalInsertBankholiday(DateSerial(YearInt, 8, 15), "Matki Boskiej Zielnej", cHolidayType_Half) - ' "All Saints' Day " - CalInsertBankholiday(DateSerial(YearInt, 11, 1), "Wszystkich Świętych", cHolidayType_Full) - ' National day" - CalInsertBankholiday(DateSerial(YearInt, 11, 11), "Dzień Niepodległości", cHolidayType_Full) - ' Christmas Eve - CalInsertBankholiday(DateSerial(YearInt, 12, 24), "Wigilia", cHolidayType_Half) - ' Christmas - CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Boże Narodzenie", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 12, 26), "Boże Narodzenie", cHolidayType_Full) - ' "New Year's eve" - CalInsertBankholiday(DateSerial(YearInt, 12, 31), "Sylwester", cHolidayType_Half) -End Sub - - -Sub FindWholeYearHolidays_RU (ByVal YearInt as Integer) -Dim lDate& - ' New Year - CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Новый Год", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 1, 2), "Новый Год", cHolidayType_Full) - ' Russian Christmas" - CalInsertBankholiday(DateSerial(YearInt, 1, 7), "Рождество", cHolidayType_Full) - 'Day of Defender of Motherland - CalInsertBankholiday(DateSerial(YearInt, 2, 23), "День Защитника Отечества", cHolidayType_Full) - ' Woman Day - CalInsertBankholiday(DateSerial(YearInt, 3, 8), "Международный Женский День", cHolidayType_Full) - ' Spring and labor holiday - CalInsertBankholiday(DateSerial(YearInt, 5, 1), "Праздник Весны и Труда", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 5, 2), "Праздник Весны и Труда", cHolidayType_Full) - ' Victory of the second World War - CalInsertBankholiday(DateSerial(YearInt, 5, 9), "День Победы", cHolidayType_Full) - ' Independence Day - CalInsertBankholiday(DateSerial(YearInt, 6, 12), "День Независимости", cHolidayType_Full) - ' Day of Accord and Conciliation - CalInsertBankholiday(DateSerial(YearInt, 11, 7), "День Согласия и Примирения", cHolidayType_Full) - ' Constitution Day - CalInsertBankholiday(DateSerial(YearInt, 12, 12), "День Конституции", cHolidayType_Full) -End Sub - - -Sub FindWholeYearHolidays_US(ByVal YearInt as Integer) -Dim lDate as Long -Dim lFirstNov as Long -Dim lElectDate as Long - CalInsertBankholiday(DateSerial(YearInt, 1, 1), "New Year's Day", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 2, 2), "Groundhog Day", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 2, 14), "Valentine's Day", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 3, 17), "St Patrick's Day", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 4, 1), "April Fools' Day", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 4, 22), "Earth Day", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 5, 6), "Nurses' Day", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 6, 14), "Flag Day", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 6, 14), "Army Day", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 6, 19), "Juneteenth(Liberation of Slaves)", cHolidayType_Half) - - CalInsertBankholiday(DateSerial(YearInt, 7, 4), "Independence Day", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 8, 1), "Air Force Day", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 8, 4), "Coast Guard Day", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 9, 17), "Citizenship Day or Constitution Day", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 10, 16), "Bosses' Day", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 10, 26 ), "Mother-in-Law's Day", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 10, 27), "Navy Day", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 10, 31), "Halloween", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 11, 10), "Marine Corps Day", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 11, 11), "Veteran's Day", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 12, 7), "Pearl Harbor Remembrance Day", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 12, 24), "Christmas Eve", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Christmas Day", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 12, 31), "New Year's Eve", cHolidayType_Half) - - CalInsertBankholiday(CalEasterTable(YearInt), "Easter Sunday", cHolidayType_Half) - - ' Inauguration Day occurs every 4 years (1997, 2001) in the year following the presidential election - ' always on the 20th of January unless this is a Sunday in which case on Monday 21st January - If YearInt Mod 4 = 1 Then - lDate = DateSerial(YearInt, 1, 20) - If WeekDay(lDate) = 1 Then - CalInsertBankholiday(lDate + 1, "Inauguration Day", cHolidayType_Half) - Else - CalInsertBankholiday(lDate, "Inauguration Day", cHolidayType_Half) - End If - End If - ' First Tuesday in November, but only after the 1st of November and only on evenly numbered years - If YearInt Mod 2 = 0 Then - lFirstNov = DateSerial(YearInt, 11, 1) - lElectDate = GetMonthDate(YearInt, 11, 3, 0) - If lElectDate > lFirstNov Then - CalInsertBankholiday(lElectDate, "Election Day", cHolidayType_Half) - Else - CalInsertBankholiday(lElectDate + 7, "Election Day", cHolidayType_Half) - End If - End If - CalInsertBankholiday(GetMonthDate(YearInt, 1, 2, 14), "Martin Luther King Jr Day", cHolidayType_Full) - CalInsertBankholiday(GetMonthDate(YearInt, 2, 2, 14), "President's Day", cHolidayType_Full) - ' Mothers Day : 2nd Sunday in May, Full - CalInsertBankholiday(GetMonthDate(YearInt, 5,1,7), "Mother's Day", cHolidayType_Full) - - ' Wednesday of the last full week of April Administrative Professionals' Day (formerly Secretaries' Day) - CalInsertBankholiday(GetMonthDate(YearInt, 5, 7, -7)-3, "Administrative Professionals' Day", cHolidayType_Half) - - CalInsertBankholiday(GetMonthDate(YearInt, 5, 5, 0), "National Day of Prayer", cHolidayType_Half) - CalInsertBankholiday(GetMonthDate(YearInt, 5, 7, 14), "Armed Forces Day", cHolidayType_Half) - ' Fathers Day : 3rd Sunday in June - CalInsertBankholiday(GetMonthDate(YearInt, 6,1,14), "Father's Day", cHolidayType_Half) - - ' Last Monday in May: Menorial Day, Full - CalInsertBankholiday(GetMonthDate(YearInt, 6, 2, 0)-7, "Memorial Day", cHolidayType_Full) - CalInsertBankholiday(GetMonthDate(YearInt, 7, 1, 21), "Parents' Day", cHolidayType_Half) - CalInsertBankholiday(GetMonthDate(YearInt, 8, 1, 0), "Friendship Day", cHolidayType_Half) - - ' 1st Monday in Sep : Labor Day, Full - CalInsertBankholiday(GetMonthDate(YearInt, 9, 2, 0), "Labor Day", cHolidayType_Full) - ' Sunday after Labor Day Grandparents' Day - CalInsertBankholiday(GetMonthDate(YearInt, 9, 2, 0)+6, "Grandparents' Day", cHolidayType_Half) - - CalInsertBankholiday(GetMonthDate(YearInt, 10, 1, 0), "National Children's Day", cHolidayType_Half) - CalInsertBankholiday(GetMonthDate(YearInt, 10, 2, 7), "Columbus Day", cHolidayType_Full) - ' Sweetest Day: Third Saturday in October - CalInsertBankholiday(GetMonthDate(YearInt, 10, 7, 14), "Sweetest Day", cHolidayType_Half) - ' 4th Thu in Nov : Thanksgiving, Full - CalInsertBankholiday(GetMonthDate(YearInt, 11, 5, 21), "Thanksgiving", cHolidayType_Full) -End Sub - - -Sub FindWholeYearHolidays_JP(ByVal YearInt as Integer) -Dim lDate& - CalInsertBankholiday(DateSerial(YearInt, 1, 1), "元日", cHolidayType_Full) - ' 2nd Monday in January - CalInsertBankholiday(GetMonthDate(YearInt, 1, 2, 7), "成人の日", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 2, 11), "建国記念の日", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 3, 20), "春分の日", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 4, 29), "みどりの日", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 5, 3), "憲法記念日", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 5, 4), "国民の休日", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 5, 5), "こどもの日", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 9, 23), "秋分の日", cHolidayType_Full) - CalInsertBankholiday(GetMonthDate(YearInt, 10, 2, 7), "体育の日", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 11, 3), "文化の日", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 11, 23), "勤労感謝の日", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 12, 23), "天皇誕生日", cHolidayType_Full) - If YearInt > 2002 Then - CalInsertBankholiday(GetMonthDate(YearInt, 7, 2, 14), "海の日", cHolidayType_Full) - CalInsertBankholiday(GetMonthDate(YearInt, 9, 2, 14), "敬老の日", cHolidayType_Full) - Else - CalInsertBankholiday(DateSerial(YearInt, 7, 20), "海の日", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 9, 15), "敬老の日", cHolidayType_Full) - End If -End Sub - - -Sub FindWholeYearHolidays_TW(YearInt as Integer) - CalculateChineseNewYear(YearInt) - CalInsertBankholiday(DateSerial(YearInt, 1, 1), "元旦", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 2, 28), "和平紀念日", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 3, 8), "婦女節", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 3, 29), "革命先烈紀念日（青年節）", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 4, 4), "兒童節", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 4, 5), "民族掃墓節", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 5, 1), "勞動節", cHolidayType_Full) - CalInsertBankholiday(GetNextWeekDay(YearInt, 5, 19, 2), "佛陀誕辰紀念日", cHolidayType_Full) ' Just like Columbus Day - CalInsertBankholiday(DateSerial(YearInt, 6, 15), "端午節", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 9, 3), "軍人節", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 9, 21), "中秋節", cHolidayType_Full) - CalInsertBankholiday(GetNextWeekDay(YearInt, 9, 28, 2), "孔子誕辰紀念日（教師節）", cHolidayType_Full) ' Just like Columnbusday - CalInsertBankholiday(DateSerial(YearInt, 10, 10), "國慶日", cHolidayType_Full) - CalInsertBankholiday(DateSerial(YearInt, 10, 25), "臺灣光復節", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 10, 31), "先總統 蔣公誕辰紀念日", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 12, 11), "國父誕辰紀念日（中華文化復興節）", cHolidayType_Half) - CalInsertBankholiday(DateSerial(YearInt, 12, 25), "行憲紀念日", cHolidayType_Half) -End Sub - - -Sub FindWholeYearHolidays_CN(YearInt as Integer) - CalculateChineseNewYear(YearInt) - CalInsertBankholiday(DateSerial(YearInt, 1, 1), "元旦", cHolidayType_Full) ' New Year - CalInsertBankholiday(DateSerial(YearInt, 3, 8), "妇女节", cHolidayType_Half) ' Women's Day - CalInsertBankholiday(DateSerial(YearInt, 4, 5), "清明节", cHolidayType_Half) ' Day of the deads - CalInsertBankholiday(DateSerial(YearInt, 5, 1), "劳动节", cHolidayType_Full) ' International Labour Day - CalInsertBankholiday(DateSerial(YearInt, 6, 1), "儿童节", cHolidayType_Half) ' Children's Day - CalInsertBankholiday(DateSerial(YearInt, 8, 1), "建军节", cHolidayType_Half) ' Foundation of military - CalInsertBankholiday(DateSerial(YearInt, 10, 1), "国庆节", cHolidayType_Full) ' National festival day -End Sub - - -' Unfortunately I could not find a Routine to convert a 'Moon Date' into a gregorian date -Sub CalculateChineseNewYear(iSelYear as Integer) -Dim lDate as Long - Select Case iSelYear - Case 1995 - lDate = DateSerial(iSelYear, 1, 31) - Case 1996 - lDate = DateSerial(iSelYear, 2, 19) - Case 1997 - lDate = DateSerial(iSelYear, 2, 7) - Case 1998 - lDate = DateSerial(iSelYear, 1, 28) - Case 1999 - lDate = DateSerial(iSelYear,2, 16) - Case 2000 - lDate = DateSerial(iSelYear,2, 5) - Case 2001 - lDate = DateSerial(iSelYear, 1, 24) - Case 2002 - lDate = DateSerial(iSelYear,2, 12) - Case 2003 - lDate = DateSerial(iSelYear,2, 1) - Case 2004 - lDate = DateSerial(iSelYear, 1, 22) - Case 2005 - lDate = DateSerial(iSelYear,2, 9) - Case 2006 - lDate = DateSerial(iSelYear, 1, 29) - Case 2007 - lDate = DateSerial(iSelYear,2, 18) - Case 2008 - lDate = DateSerial(iSelYear,2, 7) - Case 2009 - lDate = DateSerial(iSelYear, 1, 26) - Case 2010 - lDate = DateSerial(iSelYear,2, 10) - Case 2011 - lDate = DateSerial(iSelYear,2, 3) - Case 2012 - lDate = DateSerial(iSelYear, 1, 23) - Case 2013 - lDate = DateSerial(iSelYear,2, 10) - Case 2014 - lDate = DateSerial(iSelYear, 1, 31) - Case 2015 - lDate = DateSerial(iSelYear,2, 19) - Case 2016 - lDate = DateSerial(iSelYear,2, 9) - Case 2017 - lDate = DateSerial(iSelYear, 1, 28) - Case 2018 - lDate = DateSerial(iSelYear,2, 16) - Case 2019 - lDate = DateSerial(iSelYear,2, 5) - Case 2020 - lDate = DateSerial(iSelYear, 1, 25) - Case Else - Exit Sub - End Select - Select Case sCurCountryLocale - Case "CN" - CalInsertBankholiday(lDate-1, "农历除夕", cHolidayType_Full) - CalInsertBankholiday(lDate, "春节初一", cHolidayType_Full) - CalInsertBankholiday(lDate+1, "春节初二", cHolidayType_Full) - CalInsertBankholiday(lDate+2, "春节初三", cHolidayType_Full) - - Case Else - CalInsertBankholiday(lDate-1, "農曆除夕", cHolidayType_Full) - CalInsertBankholiday(lDate, "春節初一", cHolidayType_Full) - CalInsertBankholiday(lDate+1, "春節初二", cHolidayType_Full) - CalInsertBankholiday(lDate+2, "春節初三", cHolidayType_Full) - End Select -End Sub - - -Function CalculateJapaneseSpringDay(iSelYear as Integer) - If (iSelYear > 1979) And (iSelYear < 2100) Then - CalculateJapaneseSpringDay() = Int(20.8431 + 0.242194)* (iSelYear-1980) - (Int((iSelYear-1980)/4)) - End If -End Function - - -Function CalculateJapaneseAutumnDay(iSelYear as Integer) - If (iSelYear > 1979) And (iSelYear < 2100) Then - CalculateJapaneseAutumnDay() = Int(23.8431 + 0.242194)* (iSelYear-1980) - (Int((iSelYear-1980)/4)) - End If -End Function</script:module>
\ No newline at end of file diff --git a/wizards/source/schedule/OwnEvents.xba b/wizards/source/schedule/OwnEvents.xba deleted file mode 100644 index f141c2ab0efe..000000000000 --- a/wizards/source/schedule/OwnEvents.xba +++ /dev/null @@ -1,217 +0,0 @@ -<?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="OwnEvents" script:language="StarBasic">Option Explicit - -Public Const SBDATEUNDEFINED as Double = -98765432.1 - -Sub Main - Call CalAutopilotTable() -End Sub - - -Sub CalSaveOwnData() -Dim FileName as String -Dim FileChannel as Integer -Dim i as Integer - If bCalOwnDataChanged Then - FileName = GetPathSettings("UserConfig", False) & "/" & "DATE.DAT" - SaveDataToFile(FileName, DlgCalModel.lstOwnData.StringItemList()) - End If -End Sub - - -Sub CalLoadOwnData() -Dim FileName as String -Dim LocList() as String - FileName = GetPathSettings("UserConfig", False) & "/DATE.DAT" - If LoadDataFromFile(FileName, LocList()) Then - DlgCalModel.lstOwnData.StringItemList() = LocList() - End If -End Sub - - -Function CalCreateDateStrOfInput() as String -Dim DateStr as String -Dim CurOwnMonth as Integer -Dim CurOwnDay as Integer -Dim FormatDateStr as String -Dim dblDate as Double -Dim iLen as Integer -Dim iDiff as Integer -Dim i as Integer - CurOwnDay = DlgCalModel.txtOwnEventDay.Value - CurOwnMonth = DlgCalendar.GetControl("lstOwnEventMonth").getselectedItemPos() + 1 - DateStr = DateSerial(0, CurOwnMonth, CurOwnDay) - dblDate = CDbl(DateValue(DateStr)) - FormatDateStr = oNumberFormatter.convertNumberToString(lDateFormat, dblDate) - iLen = Len(FormatDateStr) - iDiff = 16 - iLen - If iDiff > 0 Then - For i = 0 To iDiff - FormatDateStr = FormatDateStr + " " - Next i - Else - MsgBox("Invalid DateFormat: 'FormatDateStr'", 16, sWizardTitle) - CalCreateDateStrOfInput = "" - Exit Function - End If - DateStr = FormatDateStr & Trim(DlgCalModel.txtEvent.Text) - CalCreateDateStrOfInput = DateStr -End Function - - - -Sub CalcmdInsertData() -Dim MaxIndex as Integer -Dim UIDateStr as String -Dim DateStr as String -Dim NewDate as Double -Dim bInserted as Boolean -Dim i as Integer -Dim CurOwnDay as Integer -Dim CurOwnMonth as Integer -Dim CurOwnYear as Integer - CurOwnDay = DlgCalModel.txtOwnEventDay.Value - CurOwnMonth = DlgCalendar.GetControl("lstOwnEventMonth").getSelectedItemPos() + 1 - UIDateStr = CalCreateDateStrOfInput() - NewDate = GetDateUnits(CurOwnDay, CurOwnMonth, UIDateStr) - If UIDateStr = "" Then Exit Sub - MaxIndex = Ubound(DlgCalModel.lstOwnData.StringItemList()) - If MaxIndex = -1 Then - DlgCalendar.GetControl("lstOwnData").AddItem(UIDateStr, 0 + 1) - bInserted = True - Else - Dim CurEvMonth(MaxIndex) as Integer - Dim CurEvDay(MaxIndex) as Integer - Dim CurDate(MaxIndex) as Double - ' same Years("no years" are treated like same years) -> delete old entry and insert new one - i = 0 - Do - CurDate(i) = GetSelectedDateUnits(CurEvDay(i), CurEvMonth(i), i) - If CurDate(i) = NewDate Then - DlgCalendar.GetControl("lstOwnData").RemoveItems(i,1) - DlgCalendar.GetControl("lstOwnData").AddItem(UIDateStr, i) - bInserted = True - End If - i = i + 1 - Loop Until bInserted Or i > MaxIndex - - ' There exists already a date - If Not bInserted Then - i = 0 - Do - If (CurEvMonth(i) = CurOwnMonth) And (CurEvDay(i) = CurOwnDay) Then - bInserted = True - DlgCalendar.GetControl("lstOwnData").RemoveItems(i,1) - DlgCalendar.GetControl("lstOwnData").AddItem(UIDateStr, i) - End If - i = i + 1 - Loop Until bInserted Or i > MaxIndex - End If - - ' The date is not yet existing and will will be sorted in accordingly - If Not bInserted Then - i = 0 - Do - bInserted = NewDate < CurDate(i) - If bInserted Then - DlgCalendar.GetControl("lstOwnData").AddItem(UIDateStr, i) - End If - i = i + 1 - Loop Until bInserted Or i > MaxIndex - If Not bInserted Then - DlgCalendar.GetControl("lstOwnData").AddItem(UIDateStr, MaxIndex+1) - End If - End If - End If - bCalOwnDataChanged = True - Call CalClearInputMask() -End Sub - - -Function GetSelectedDateUnits(CurEvDay as Integer, CurEvMonth as Integer, i as Integer) as Double -Dim dblDate as Double -Dim DateStr as String - dblDate = SBDATEUNDEFINED - DateStr = DlgCalModel.lstOwnData.StringItemList(i) - If DateStr <> "" Then - dblDate = GetDateUnits(CurEvDay, CurEvMonth, DateStr) - End If - GetSelectedDateUnits() = dblDate -End Function - - -Function GetDateUnits(CurEvDay as Integer, CurEvMonth as Integer, DateStr) as Double -Dim bEventOnce as String -Dim LocDateStr as String -Dim dblDate as Double -Dim lDate as Long - LocDateStr = Mid(DateStr, 1, 15) - LocDateStr = Trim(LocDateStr) - - bEventOnce = True - On Local Error Goto NODATEFORMAT - dblDate = oNumberFormatter.convertStringToNumber(lDateFormat, LocDateStr) - lDate = Clng(dblDate) - CurEvMonth = Month(lDate) - CurEvDay = Day(lDate) - GetDateUnits() = dblDate - Exit Function - GetDateUnits() =SBDATEUNDEFINED -NODATEFORMAT: - If Err <> 0 Then - MsgBox("Error: Date : ' " & LocDateStr & "' is not a valid Format", 16, sWizardTitle) - Resume GETRETURNVALUE -GETRETURNVALUE: - GetDateUnits() = SBDATEUNDEFINED - End If -End Function - - -Function CalGetNameOfEvent(ByVal ListIndex as Integer) as String -Dim NameStr as String - NameStr = DlgCalModel.lstOwnData.StringItemList(ListIndex) - NameStr = Trim (Mid(NameStr, 16)) - CalGetNameOfEvent = NameStr -End Function - - - -Sub CheckInsertedDates(Optional ControlEnvironment, Optional CurOwnMonth as Integer) -Dim EvYear as Long -Dim EvDay as Long -Dim sEvMonth as String -Dim bDoEnable as Boolean -Dim ListboxName as String -Dim MaxValue as Integer - If Not IsMissing(ControlEnvironment) Then - CurOwnMonth = DlgCalendar.GetControl("lstOwnEventMonth").getSelectedItemPos()+1 - End If - EvYear = Year(Now()) - bDoEnable = CurOwnMonth <> 0 - If bDoEnable Then - MaxValue = CalMaxDayInMonth(EvYear, CurOwnMonth) - DlgCalModel.txtOwnEventDay.ValueMax = MaxValue - If DlgCalModel.txtOwnEventDay.Value > MaxValue Then - DlgCalModel.txtOwnEventDay.Value = MaxValue - End If - bDoEnable = DlgCalModel.txtOwnEventDay.Value <> 0 - If bDoEnable Then - bDoEnable = Ubound(DlgCalModel.lstOwnEventMonth.SelectedItems()) > -1 - If bDoEnable Then - bDoEnable = LTrim(DlgCalModel.txtEvent.Text) <> "" - End If - End If - End If - DlgCalModel.cmdInsert.Enabled = bDoEnable -End Sub - - -Sub GetOwnMonth() -Dim EvYear as Integer -Dim CurOwnMonth as Integer - EvYear = year(now()) - CurOwnMonth = DlgCalModel.lstOwnEventMonth.SelectedItems(0) + 1 - DlgCalModel.txtOwnEventDay.ValueMax = CalMaxDayInMonth(EvYear, CurOwnMonth) - CheckInsertedDates(,CurOwnMonth) -End Sub</script:module>
\ No newline at end of file diff --git a/wizards/source/schedule/delzip b/wizards/source/schedule/delzip deleted file mode 100644 index e69de29bb2d1..000000000000 --- a/wizards/source/schedule/delzip +++ /dev/null diff --git a/wizards/source/schedule/dialog.xlb b/wizards/source/schedule/dialog.xlb deleted file mode 100644 index b1afde681e7e..000000000000 --- a/wizards/source/schedule/dialog.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> -<library:library xmlns:library="http://openoffice.org/2000/library" library:name="Schedule" library:readonly="true" library:passwordprotected="false"> - <library:element library:name="DlgCalendar"/> -</library:library> diff --git a/wizards/source/schedule/schedule.src b/wizards/source/schedule/schedule.src deleted file mode 100644 index ff57ffec8102..000000000000 --- a/wizards/source/schedule/schedule.src +++ /dev/null @@ -1,348 +0,0 @@ -/* - * 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 . - */ -#define dlgCalTitle 1000 -#define dlgCalTitleBack 1001 -#define dlgCalTitleOwnData 1002 -#define dlgSchdlTitle 1003 -#define dlgOK 1004 -#define dlgCancel 1005 -#define dlgCalFrameOption 1006 -#define dlgCalOptionYear 1007 -#define dlgCalOptionMonth 1008 -#define dlgSchdlDescription 1009 -#define dlgSchdlCountry 1010 -#define dlgTime 1011 -#define dlgYear 1012 -#define dlgCalMonth 1013 -#define dlgSpecificBankholidays 1014 -#define dlgCalOwnData 1015 -#define dlgCalInsert 1016 -#define dlgCalDelete 1017 -#define dlgCalNewEvent 1018 -#define dlgCalEvent 1019 -#define dlgCalEventOnce 1020 -#define dlgCalEventDay 1021 -#define dlgCalEventMonth 1022 -#define dlgCalEventYear 1023 - -// Bitmap file is 1099 -#define dlgBitmapFile 1099 - -// Names of states start at 1100 -#define dlgState 1100 - -// Months start at 1200 -#define dlgMonth 1200 - -// Messages start at 1300 -#define msgCalErrorTitle 1300 -#define msgCalError 1301 -#define msgCalRemoveTitle 1302 -#define msgCalRemove 1303 - -// Styles start at 1400 -#define stlWorkday 1400 -#define stlWeekend 1401 - -// Sheet names start at 1410 -#define nameCalYear 1410 -#define nameCalMonth 1411 - -#define sProgress 1500 - -// -------------------------------------------------------------------- - -String dlgCalTitle -{ -Text [ en-US ] = "%PRODUCTNAME Calendar"; -}; - -String dlgCalTitleBack -{ -Text [ en-US ] = "Back"; -}; - -String dlgCalTitleOwnData -{ -Text [ en-US ] = "Personal Data"; -}; - -String dlgSchdlTitle -{ -Text [ en-US ] = "Add Holidays to Calendar"; -}; - -String dlgOK -{ -Text [ en-US ] = "Create"; -}; - -String dlgCancel -{ -Text [ en-US ] = "Cancel"; -}; - -String dlgCalFrameOption -{ -Text [ en-US ] = "Calendar"; -}; - -String dlgCalOptionYear -{ -Text [ en-US ] = "~Year Overview"; -}; - -String dlgCalOptionMonth -{ -Text [ en-US ] = "~Month"; -}; - -String dlgSchdlDescription -{ -Text [ en-US ] = "Add holidays for"; -}; - -String dlgSchdlCountry -{ -Text [ en-US ] = "USA"; -}; - -String dlgTime -{ -Text [ en-US ] = "Time Frame"; -}; - -String dlgYear -{ -Text [ en-US ] = "Year"; -}; - -String dlgCalMonth -{ -Text [ en-US ] = "Month"; -}; - -String dlgSpecificBankholidays -{ -Text [ en-US ] = "-"; -}; - -String dlgCalOwnData -{ -Text [ en-US ] = "Personal Data"; -}; - -String dlgCalInsert -{ -Text [ en-US ] = "~Insert"; -}; - -String dlgCalDelete -{ -Text [ en-US ] = "~Delete"; -}; - -String dlgCalNewEvent -{ -Text [ en-US ] = "New Event"; -}; - -String dlgCalEvent -{ -Text [ en-US ] = "Event"; -}; - -String dlgCalEventOnce -{ -Text [ en-US ] = "One-Time"; -}; - -String dlgCalEventDay -{ -Text [ en-US ] = "Day"; -}; - -String dlgCalEventMonth -{ -Text [ en-US ] = "Month"; -}; - -String dlgCalEventYear -{ -Text [ en-US ] = "Year"; -}; - -// -------------------------------------------------------------------- - -String dlgBitmapFile -{ -Text [ en-US ] = "usa.bmp"; - -}; - -// -------------------------------------------------------------------- - -String dlgState -{ -Text [ en-US ] = "Public holidays"; -}; - - -// -------------------------------------------------------------------- - -String dlgMonth -{ -Text [ en-US ] = "January"; -}; - -String dlgMonth+1 -{ -Text [ en-US ] = "February"; -}; - -String dlgMonth+2 -{ -Text [ en-US ] = "March"; -}; - -String dlgMonth+3 -{ -Text [ en-US ] = "April"; -}; - -String dlgMonth+4 -{ -Text [ en-US ] = "May"; -}; - -String dlgMonth+5 -{ -Text [ en-US ] = "June"; -}; - -String dlgMonth+6 -{ -Text [ en-US ] = "July"; -}; - -String dlgMonth+7 -{ -Text [ en-US ] = "August"; -}; - -String dlgMonth+8 -{ -Text [ en-US ] = "September"; -}; - -String dlgMonth+9 -{ -Text [ en-US ] = "October"; -}; - -String dlgMonth+10 -{ -Text [ en-US ] = "November"; -}; - -String dlgMonth+11 -{ -Text [ en-US ] = "December"; -}; - -// -------------------------------------------------------------------- - -String msgCalErrorTitle -{ -Text [ en-US ] = "Yearly / Monthly Calendar"; -}; - -String msgCalError -{ -Text [ en-US ] = "An error occurred while creating the calendar."; -}; - -String msgCalRemoveTitle -{ -Text [ en-US ] = "Delete event entries"; -}; - -String msgCalRemove -{ -Text [ en-US ] = "Delete the selected entries?"; -}; - -// -------------------------------------------------------------------- - -String stlWorkday -{ -Text [ en-US ] = "Workweek"; -}; - -String stlWeekend -{ -Text [ en-US ] = "Weekend"; -}; - -// -------------------------------------------------------------------- - -String nameCalYear -{ -Text [ en-US ] = "Calendar"; -}; - -String nameCalMonth -{ -Text [ en-US ] = "Month"; -}; - - - -String sProgress -{ -Text [ en-US ] = "Progress:"; -}; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/wizards/source/schedule/script.xlb b/wizards/source/schedule/script.xlb deleted file mode 100644 index 96dd8da57fc1..000000000000 --- a/wizards/source/schedule/script.xlb +++ /dev/null @@ -1,12 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> -<library:library xmlns:library="http://openoffice.org/2000/library" library:name="Schedule" library:readonly="true" library:passwordprotected="false"> - <library:element library:name="OwnEvents"/> - <library:element library:name="CalendarMain"/> - <library:element library:name="BankHoliday"/> - <library:element library:name="DlgControl"/> - <library:element library:name="Language"/> - <library:element library:name="CreateTable"/> - <library:element library:name="GermanHolidays"/> - <library:element library:name="LocalHolidays"/> -</library:library> |
