Zadn dan u mescu

na začetku določiš konstante:

januar=31
februar=...
itd.

Ja no cakte mau ........... to vem sam js nebi dulocval js bi kej tacga rabu:

LastDayOfMOnth funkcijo a u vb ju res ne mors kuko loopat cez dneve v mesecu,

al pa
for every day in januar al pa podobno

Zdej pa tole že rahlo trapast!

dni(Februar)=28
if (leto mod 4 = 0) then dni(Februar)=29

if (leto mod 100 = 0) then
dni(Februar)=28
if (leto mod 400 = 0) then dni(Februar)=29
end if

Kolikor jest vem - ne. Ampak ne poznam dost VB.

Je pa tko - takale funkcija je zmerej boljš, da je source obliki, kot pa črna škatla, ki ti samo vrne rezultat.

Pa ne mislim zato, da lažje popraviš program, če pride reforma koledarja - ampak za trening v razumevanju. In za vpogled, kako kakšna reč (tokrat Gregorijanski koledar) - deluje.

Kateri odstavek? Razen seveda tegale tvojga?

To boš najlažje naredu z for zanko.
Če želiš naprimer preverit koliko dni ima februar leta 2000, nardiš tole(tle je sam psevdokoda, če češ piš pa dobiš kodo):

v spremenljivko shraniš današnji datum.
Postaviš datum na 1.2.2000
greš u for zanko in da povečuješ za 1
nardiš if stavek ki precerva kdaj se je spremenu mesec in tako vgotoviš koliko dni ima mesec.
nato pa še datum postaviš nazaj na današnjega

Khm nisn to še sprobu.
Bom dons in če bo delal bom sem napisu funkcijo.
Če pa ne bo se pa tud oglasim

Majku vam! Jao!... Prej vprašite preden kaj butnete... človek hoče mau heca vi pa že kot, da vam "majku jebem v dupe" (<-to ni kletivca..khm..).

Mislim sem, da mogoče tale stavek ni potreben...
if (leto mod 100 = 0) then
dni(Februar)=28
if (leto mod 400 = 0) then dni(Februar)=29
end if

Če pa je ..potem pa naj bo... o.k.? Sem vam še kaj dolžn? Golaža je zmankal.

Ja hmmmmmmm k sm tole napisu sem se zavedu kok je moj vprasanje u bistvu neumno. Hvala bosko za idejo, pac z loop zanko pristevas dneve dokler je mesec u temu datumu enak tekocemu mesecu.

zaenkrat tole dela sam ce je datum 1. dan u mescu, ce ne pa mau spremenis pa das da bo datum zmer z 1.dnevom tekocega meseca.

strDatum = date
strDatumDanasnji = date
strDanasnjiMesec = month(strDatumDanasnji)
strDnevi = 0

strMesec = month(strDatum)

do while strMesec = month(strDatumDanasnji

strDatum = strDatum + 1
strMesec = month(strDatum)
strDnevi = strDnevi + 1

loop

kerga leta smo pa kok ma pol februar dni itak ni vazn k jih presteje.

OK...

Malo VB teorije...

Torej potrebujemo najprej tekoči mesec:

 
 Dim bytTekociMesec As Byte
 bytTekociMesec = Month(Date)
 
 

---

Dobro, sedaj pa je potrebno ugotoviti, koliko dni ima tekoči mesec... Torej potrebujemo današnji datum, in datum točno čez en mesec, njuna razlika v dnevih pa nam vrne število dni tekočega meseca.
Torej potrebujemo še spremenljivki datDanasnjiDatum in datDatumCezEnMesec.

 Dim datDanasnjiDatum As Date
 Dim datDatumCezEnMesec As Date
 
 datDanasnjiDatum = Date
 datDatumCezEnMesec = CDate( Day(Date) & "." & Month(Date) + 1 & "." & Year(Date))
 

---

Sedaj pa uporabimo VB funkcijo DateDiff za računanje razlike števila dni:

 Dim bytSteviloDni As Byte
 'funkcija vrne sicer podatkovni tip Long, vendar pa za stevilo dni v enem mesecu zadostuje Byte
 bytSteviloDni = CByt(DateDiff("d", datDanasnjiDatum, datDatumCezEnMesec))
 

---

Odlično, sedaj pa samo še sestavimo funkcijo...

 Option Explicit
 
 Public Function SteviloDniMeseca(Optional Mesec As Byte) As Byte
 Dim bytTekociMesec As Byte
 Dim datDanasnjiDatum As Date
 Dim datDatumCezEnMesec As Date
 Dim bytSteviloDni As Byte
 
 If (Mesec < 1) Or (Mesec > 12) Then bytTekociMesec = Month(Date)
 
 datDanasnjiDatum = Date
 datDatumCezEnMesec = CDate(Day(Date) & "." & Month(Date) + 1 & "." & Year(Date))
 
 
 bytSteviloDni = CByte(DateDiff("d", datDanasnjiDatum, datDatumCezEnMesec))
 
 SteviloDniMeseca = bytSteviloDni
 
 End Function
 

---

Tako nekako naj bi zadeva zgledala po moje... boljših predlogov bom vesel!

OK to pa zihr ni puding ub steno, skrajsana asp verzija webblotovega nasveta:

<%
datSedanjiDatum = date
datDatumCezEnMesec = DateAdd("m",1,datSedanjiDatum)
datRazlika = DateDiff("d",datSedanjiDatum,datDatumCezEnMesec)
%>

To zdej dela pa ni vazn kerga smo pa kaj je z februarjem

hehe v mojem zadnjem odgovoru sm dau asp kodo kr u uklepajih pa je ni pol izpisu no tkole sm mislu:

datSedanjiDatum = date
datDatumCezEnMesec = DateAdd("m",1,datSedanjiDatum)
datRazlika = DateDiff("d",datSedanjiDatum,datDatumCezEnMesec)
(meni razumljiva skrajsana verzija vebblotove skripte)

tkole dela zdej use super