Pytanie o date!!!



Masz problem? Zapytaj na forum elektroda.pl

Poprzedni Następny
Wiadomość
Spis treści
From: "Wojtek" <klimwoj_at_nospam_friko6.onet.pl>
Subject: Pytanie o date!!!
Date: Sun, 4 May 2003 18:30:19 +0200


Czesc!!!
Kiedys na grupie ktos podawal wzor na wyliczenie daty, moze ktos to ma?
Dzieki




========
Path: news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!newsfeed.gazeta.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mai

Poprzedni Następny
Wiadomość
Spis treści
From: "Marcin" <mwiazani_at_nospam_poczta.fm>
Subject: Re: Pytanie o date!!!
Date: Sun, 4 May 2003 19:32:10 +0200


A moze chcesz gotowa procedurke na wylicznie daty. Mam taka napisana w
bascomie.
Pozdr.
MW

Użytkownik "Wojtek" <klimwoj_at_nospam_friko6.onet.pl> napisał w wiadomości
news:b93f7p$853$1_at_nospam_atlantis.news.tpi.pl...
Czesc!!!
Kiedys na grupie ktos podawal wzor na wyliczenie daty, moze ktos to ma?
Dzieki






========
Path: news-archive.icm.edu.pl!news.icm.edu.pl!mimuw.edu.pl!news.mimuw.edu.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mai

Poprzedni Następny
Wiadomość
Spis treści
From: "Wojtek" <klimwoj_at_nospam_friko6.onet.pl>
Subject: Re: Pytanie o date!!!
Date: Sun, 4 May 2003 20:31:32 +0200



Użytkownik "Marcin" <mwiazani_at_nospam_poczta.fm> napisał w wiadomości
news:b93irh$8gk$1_at_nospam_nemesis.news.tpi.pl...
A moze chcesz gotowa procedurke na wylicznie daty. Mam taka napisana w
bascomie.
Pozdr.
MW

Użytkownik "Wojtek" <klimwoj_at_nospam_friko6.onet.pl> napisał w wiadomości
news:b93f7p$853$1_at_nospam_atlantis.news.tpi.pl...
Czesc!!!
Kiedys na grupie ktos podawal wzor na wyliczenie daty, moze ktos to ma?
Dzieki
Kurcze!!!
Mialem zacmienie przy tym pytaniu, chodzi o wyliczenie roku przestepnego
Ps. Procedurke chetnie zobacze, dzieki
Wojtek




========
Path: news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.gazeta.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mai

Poprzedni Następny
Wiadomość
Spis treści
From: "Marcin" <mwiazani_at_nospam_poczta.fm>
Subject: Re: Pytanie o date!!!
Date: Sun, 4 May 2003 21:13:45 +0200


wlasnie ta procedurka wszystko wylicza
ponizej przedstawiam jej kod:

If Zezw = 1 Then
'kod realizujący (oblicz) wiecznego kalendarza

Zezw = 0
'flaga zezw zezwala na zwiększenie

Incr Dni

Incr Dni_t
'dni oraz dni tygodnia

If Dni_t = 8 Then
'jeżeli dni_t = 8 to

Dni_t = 1
'przypisz jej wartość 1

End If

If Dni = 29 Then
'jeżeli dni=29 to

If Mies = 2 Then
'oraz miesiącem jest luty

Temp4 = Lata Mod 4
'to oblicz czy jest to rok zwykły czy przestępny

If Lata = 0 Then

Temp4 = Stulecia Mod 4

End If

If Temp4 > 0 Then
'jeśli temp4>0 to rok jest przestępny

Call Inc_mies
'procedura zwiększenia miesięcy

End If

End If

End If

If Dni = 30 Then
'jeśli dni=30

If Mies = 2 Then
'oraz jest luty to

Call Inc_mies
'wywołaj procedurę zwiększenia miesięcy

End If

End If

If Dni = 31 Then
'jeśli dni=31

If Mies = 4 Or Mies = 6 Or Mies = 9 Or Mies = 11 Then 'oraz są
miesiące 4 lub 6 lub 9 lub 11 to

Call Inc_mies
'wywolaj procedure zwiekszenia miesiecy

End If

End If

If Dni = 32 Then
'jesli dni=32 to

Call Inc_mies
'wywolaj procedure zwiekszenia miesiecy

End If

End If
'koniec kodu realizujacego wieczny kalendarz



Sub Inc_mies
'Procedura zwiekszenia miesiecy

Dni = 1
'dni=1

Incr Mies
'zwieksz miesiace

If Mies = 13 Then
'jezeli mies=13 to

Mies = 1
'przypisz mies wartosc 1

Incr Lata
'zwieksz lata

If Lata = 100 Then
'jesli lata=100 to

Lata = 0
'wyzeruj lata oraz

Incr Stulecia
'zwieksz stulecia

End If

End If

End Sub
'Koniec procedury



Pozdr. Serd

MW



Użytkownik "Wojtek" <klimwoj_at_nospam_friko6.onet.pl> napisał w wiadomości
news:b93mb7$jmj$1_at_nospam_nemesis.news.tpi.pl...

Użytkownik "Marcin" <mwiazani_at_nospam_poczta.fm> napisał w wiadomości
news:b93irh$8gk$1_at_nospam_nemesis.news.tpi.pl...
A moze chcesz gotowa procedurke na wylicznie daty. Mam taka napisana w
bascomie.
Pozdr.
MW

Użytkownik "Wojtek" <klimwoj_at_nospam_friko6.onet.pl> napisał w wiadomości
news:b93f7p$853$1_at_nospam_atlantis.news.tpi.pl...
Czesc!!!
Kiedys na grupie ktos podawal wzor na wyliczenie daty, moze ktos to
ma?
Dzieki
Kurcze!!!
Mialem zacmienie przy tym pytaniu, chodzi o wyliczenie roku przestepnego
Ps. Procedurke chetnie zobacze, dzieki
Wojtek






========
Path: news-archive.icm.edu.pl!news.icm.edu.pl!mimuw.edu.pl!news.mimuw.edu.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mai

Poprzedni Następny
Wiadomość
Spis treści
From: "Maciej Zaręba" <zarebama_at_nospam_wp.pl>
Subject: Re: Pytanie o date!!!
Date: Sun, 4 May 2003 21:50:10 +0200



Czesc!!!
Kiedys na grupie ktos podawal wzor na wyliczenie daty, moze ktos to
ma?
Dzieki
Kurcze!!!
Mialem zacmienie przy tym pytaniu, chodzi o wyliczenie roku przestepnego
Ps. Procedurke chetnie zobacze, dzieki
Wojtek


Ja niedawno robiłem coś takiego dla kalendarza od 2000 do 2099 roku. Jeśli
dziesiątki i jedności lat masz zapisane w jednym bajcie to wystarczy że
sprawdzisz dwa pierwsze bity. Jeśli oba są 0 to jest to rok przestępny ;)




========
Path: news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.gazeta.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mai

Poprzedni Następny
Wiadomość
Spis treści
From: "Pawel Sokolowski" <PawelSokolowski_at_nospam_gmx.net>
Subject: Re: Pytanie o date!!!
Date: Sun, 4 May 2003 23:21:11 +0200


Kurcze!!!
Mialem zacmienie przy tym pytaniu, chodzi o wyliczenie roku przestepnego
Ps. Procedurke chetnie zobacze, dzieki
Wojtek

Lata przestepne sa co 4 lata, oprocz rownych setek, ktore sa nieprzestepne,
za wyjatkiem rownych 400-ek, ktore sa przestepne.
Jasne ;)

Pozdrawiam
Pawel sokolowski





========
Path: news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news2.icm.edu.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mai

Poprzedni Następny
Wiadomość
Spis treści
From: "Wojtek" <klimwoj_at_nospam_friko6.onet.pl>
Subject: Re: Pytanie o date!!!
Date: Mon, 5 May 2003 17:22:31 +0200



Użytkownik "Pawel Sokolowski" <PawelSokolowski_at_nospam_gmx.net> napisał w wiadomości
news:b940a8$1od$1_at_nospam_atlantis.news.tpi.pl...
Kurcze!!!
Mialem zacmienie przy tym pytaniu, chodzi o wyliczenie roku przestepnego
Ps. Procedurke chetnie zobacze, dzieki
Wojtek

Lata przestepne sa co 4 lata, oprocz rownych setek, ktore sa
nieprzestepne,
za wyjatkiem rownych 400-ek, ktore sa przestepne.
Jasne ;)

Pozdrawiam
Pawel sokolowski

To jest to:))))
Dzieki



========
Path: news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news2.icm.edu.pl!newsfeed.gazeta.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mai

Poprzedni Następny
Wiadomość
Spis treści
From: "Jd." <jdubowski_at_nospam_interia.pl>
Subject: Re: Pytanie o date!!!
Date: Sun, 4 May 2003 19:45:20 +0200



Użytkownik "Wojtek" <klimwoj_at_nospam_friko6.onet.pl> napisał w wiadomości
news:b93f7p$853$1_at_nospam_atlantis.news.tpi.pl...
Czesc!!!
Kiedys na grupie ktos podawal wzor na wyliczenie daty, moze ktos to ma?

Jakiej daty?
--
==========###-###-###-###==============
Jaroslaw Dubowski, Bytom jdubowski_at_nospam_interia.pl
==========###-###-###-###==============




========
Path: news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.gazeta.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mai