Calendier macro

Näemmä siinä on tuettu vain tuo sunnuntaista alkava viikko, johtuen paljon siitä että WeekDay()-funktio palauttaa sen mukaisen viikonpäivänumeron. Asian voi kuitenkin korjata.

1. Mene muokkaamaan makroa: Työkalut -> Makrot -> Makrojen hallinta -> OpenOffice.org Basic.

2. Valitse Omat makrot -> Calendrier -> Functions ja napsauta Muokkaa.

3. Editorissa muuta funktio InitStrings() seuraavanlaiseksi:

Sub InitStrings(sLanguage As String)
   
   Select Case sLanguage
   
      Case "fr"
         gaDays = Array("Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi")
         gaMois = Array("", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
         gsString(0) = "Afficher calendrier"      ' Main dialog title
         gsString(1) = "Cette fonction n'est pas supportée pour ce type de document"      ' Wrong document type error message

      Case "fi"
         gaDays = Array("Maanantai", "Tiistai", "Keskiviikko", "Torstai", "Perjantai", "Lauantai", "Sunnuntai")
         gaMois = Array("", "Tammikuu", "Helmikuu", "Maaliskuu", "Huhtikuu", "Toukokuu", "Kesäkuu", "Heinäkuu", "Elokuu", "Syyskuu", "Lokakuu", "Marraskuu", "Joulukuu")   
         gsString(0) = "Näytä kalenteri"         ' Main dialog title
         gsString(1) = "Tämä toiminto ei toimi tämän tyyppisessä asiakirjassa"      ' Wrong document type error message
      
      Case Else
         gaDays = Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday")
         gaMois = Array("", "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")   
         gsString(0) = "Show calendar"         ' Main dialog title
         gsString(1) = "This function doesn't work for that kind of document"      ' Wrong document type error message
         
   End Select
   
End Sub

4. Lisää yo. funktion jälkeen oma uusi funktio:

Function FinWeekDay(iDate As Date)
   iWeekDay = WeekDay(iDate)
   if iWeekDay > 1 then
      FinWeekDay = iWeekDay - 1
   else
      FinWeekDay = 7
   end if
End Function

5. Muuta moduulista kaikki WeekDay-funktiokutsut nimelle FinWeekDay (vaikka etsi- ja korvaa -toiminnolla)

6. Tallenna moduuli (Ctrl S)

7. Palaa OpenOfficen pääikkunaan ja käytä makroja Työkalut -> Lisäosat -valikosta.

Huomaa, että yo. korjaus myös suomentaa kalenterin.