Fajny sierpień

31.08.03, 22:24

Skończył się sierpień. Fajny był. Miał 5 piątków, 5 sobót i 5 niedziel. Kiedy
taki sierpień zdarzył sie poprzednio? A kiedy będzie następny taki?
Oczywiście chodzi o te najbliższe sierpnie w przeszłości i w przyszłości.
Lubię takie sierpnie :).

Pozdrawiam
Tororo
    • reptar Re: Fajny sierpień? Jak dla kogo. 01.09.03, 08:23
      tororo napisał:

      > Skończył się sierpień. Fajny był. Miał 5 piątków, 5 sobót i 5 niedziel.
      > [...ciach...]
      > Lubię takie sierpnie :).


      A moja córka nie lubi takich sierpniów, bo ten układ oznacza, że szkoła zaczyna
      się 1 września. Gdyby było 5 śród, 5 czwartków i 5 piątków, to dzisiaj byłaby
      sobota i szkoła zaczęłaby się dopiero 3 września.
    • mmiga Re: Fajny sierpień 03.09.03, 11:39
      tororo napisał:

      >
      > Skończył się sierpień. Fajny był. Miał 5 piątków, 5 sobót i 5 niedziel. Kiedy
      > taki sierpień zdarzył sie poprzednio? A kiedy będzie następny taki?

      Lata minione (od 1900 roku) : 1902, 1913, 1919, 1924, 1930, 1941, 1947, 1952,
      1958, 1969, 1975, 1980, 1986, 1997
      Lata przyszle (do 2100 roku) : 2008, 2014, 2025, 2031, 2036, 2042, 2053, 2059,
      2064, 2070, 2081, 2087, 2092, 2098

      > Oczywiście chodzi o te najbliższe sierpnie w przeszłości i w przyszłości.
      > Lubię takie sierpnie :).
      >

      pozdrawiaMM
      • tororo Re: Fajny sierpień 03.09.03, 21:49
        mmiga napisał:


        > Lata minione (od 1900 roku) : 1902, 1913, 1919, 1924, 1930, 1941, 1947, 1952,
        > 1958, 1969, 1975, 1980, 1986, 1997
        > Lata przyszle (do 2100 roku) : 2008, 2014, 2025, 2031, 2036, 2042, 2053,
        2059,
        > 2064, 2070, 2081, 2087, 2092, 2098

        Wow. Brawo! Solidna dwustulenia robota:)
        Czy też, tak jak przy układaniu zagadki, wspomagałeś sie komputerowym
        kalendarzem?


        Pozdr
        Tororo
        • mmiga Re: Fajny sierpień 04.09.03, 08:00
          tororo napisał:
          > Wow. Brawo! Solidna dwustulenia robota:)

          Solidna trzyminutowa robota...

          > Czy też, tak jak przy układaniu zagadki, wspomagałeś sie komputerowym
          > kalendarzem?
          >

          pośrednio...
          poniżej kod, który można wkleić do VBA np. Worda lub Excela, a który daje takie
          rozwiązanie...
          <CODE>
          Public Function Sierpnie$()
          Dim lm$, lp$
          Dim i&

          lm = "Lata minione (od 1900 roku) : "
          lp = "Lata przyszłe (do 2100 roku) : "
          For i = 1900 To 2100
          If Weekday(DateSerial(i, 8, 31), 2) = 7 Then
          If i < 2003 Then lm = lm & i & ", "
          If i > 2003 Then lp = lp & i & ", "
          End If
          Next

          Sierpnie = Mid$(lm, 1, Len(lm) - 2) & Chr(13) & Chr(10) & Mid$(lp, 1, Len(lp) -
          2)

          End Function

          </CODE>

          pozdrawiaMM
Pełna wersja