Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Ostatni dzień miesiąca
Garf




Typ: neutral
Postów: 65
Zarejestrowany: Apr 2003
Ostatni dzień miesiąca

Problem jest na pierwszy rzut oka banalny: czy jest jakaś funkcja podająca ostatni dzień w zadanym miesiącu i roku (czyli ile ten miesiąc ma dni - uwzględniając wszystkie "kombinacje" w lutym). Zrobiłem własną funkcję znajdowania tego, ale wolałbym używać standardowych VB, o ile taka istnieje.


_____________________________________________
Garfield
Member of Blood Brothers Clan (R)

15-06-2003 19:57
Pokaż profil Garf  Wyślij email do Garf   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
to było jakoś takoś...


Sub nnnna()
    MsgBox DateSerial(Year(Date), Month(2) + 1, Day(30) - 1)
End Sub


Rzuć jeszcze okiem na moją stronkę

[Post edytowany dnia 16-06-2003 11:41 przez losmac]


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

16-06-2003 11:40
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

można dać też tablice np.

T(1)=31
T(2)=28
T(3)=31
.
.
.


z tym, że dla lutego trzeba sprawdzać czy dany rok jest przestępny


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

19-06-2003 09:35
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003



można dać też tablice np.

T(1)=31
T(2)=28
T(3)=31
.
.
.


z tym, że dla lutego trzeba sprawdzać czy dany rok jest przestępny



Tylko po co, skoro funkcja DateSerial sama dba o prawidłowość daty?


Poprawiam przesłaną podpowiedź:


MsgBox DateSerial(Year(Date), Month(Date) + 1, 1 - 1)


[Post edytowany dnia 19-06-2003 20:28 przez losmac]


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

19-06-2003 20:26
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wieloryb



Typ: neutral
Postów: 4
Zarejestrowany: Jul 2003
ostatni dzień

Proponowałbym najpierw dodać miesiąc, używając funkcji DateAdd a następnie odjęć otrzymany dzień tą samą funkcją


_____________________________________________
kilo stopy pod wodą ...

28-07-2003 13:53
Pokaż profil Wieloryb  Wyślij email do Wieloryb   Odwiedź stronę Wieloryb  
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1