verifica date

[diablobox]

Salve

Chi mi da una mano con questo script che ci sto impazzendo perche secondo me è corretto ma mi verifica solo e sempre l ultima condizione:

Session.LCID = 1040
mese_corrente = DatePart("m",Date())
anno_corrente = DatePart("yyyy",Date())
giorno = DatePart("d",Date())
if mese = 0 then mese = mese_corrente

anno = anno_corrente

mese = request.QueryString("mese")


if mese < mese_corrente then
anno = anno_corrente + 1
elseif mese = mese_corrente then
anno = anno_corrente
elseif mese > mese_corrente then
anno = anno_corrente
end if

miaData = 1 & "/" & mese & "/" & anno

il mese viene passato da un altra pagina.
Ma anche se il mese è minore del mese_corrente non cambia nulla...

CHI MI AIUTA??
grazie

[Sypher]

prova a convertirli in interi con Cint

[willybit]

Originariamente inviato da Sypher
prova a convertirli in interi con Cint

mi associo... mese preso da querystringa è una stringa

[SimoneVB]

Ciao !
Premetto che non ho capito lo scopo, comunque:

If mese = 0 Then mese = mese_corrente

puoi tranquillamente eliminarlo dato che dopo fai

mese = request.QueryString("mese")

In questa condizione:

if mese < mese_corrente then 
anno = anno_corrente + 1 
elseif mese = mese_corrente then 
anno = anno_corrente 
elseif mese > mese_corrente then 
anno = anno_corrente 
end if

anno = anno_corrente + 1 SOLO se mese < mese_corrente... in tutti gli altri casi anno = anno_corrente. Quindi

  If mese < mese_corrente Then
    anno = anno_corrente + 1
  Else
    anno = anno_corrente
  End If

In ogni caso la parte Else è inutile dato cha ad anno hai già assegnato anno_corrente.
Ecco come avrei scritto io il codice:

  Session.LCID = 1040
  mese_corrente = DatePart("m", Date)
  anno_corrente = DatePart("yyyy", Date)
  giorno = DatePart("d", Date)
    
  mese = request.QueryString("mese")
  anno = anno_corrente
  
  If mese < mese_corrente Then anno = anno_corrente + 1
  miaData = 1 & "/" & mese & "/" & anno

Ciao ciao
Simo

[Sypher]

if CInt(mese) < CInt(mese_corrente) then

[diablobox]

in effetti il codice e un po ingarbugliato..

ma piu o meno è lo stesso che hai proposto tu..

ho provato ad inserire il tuo codice piu la riga

if mese = 0 then mese = mese_corrente
in quanto puo capitare che il mese non sia passato da stringa e quindi risulti nulla e da errore..


Il risultato è che funziona tutto bene fino a quando il mese non è minore del mese corrente, e allora mi fa vedere l'anno uguale a quello corrente e non maggiorato di uno

[diablobox]

ALT!!
adesso funziona con il
if CInt(mese) < CInt(mese_corrente) then

Ringrazio tutti e due..

pero non capisco

se alla variabile do :
mese = 0


non la dichiaro gia come numero??

BOOOHHH

[willybit]

Originariamente inviato da diablobox
se alla variabile do :
mese = 0

non la dichiaro gia come numero??

ma se poi la reimposti con la Request.Querystring diventa una stringa

[SimoneVB]

Giusto, avevo scordato questo passaggio
if mese = 0 then mese = mese_corrente
Potresti fare direttamente
mese = CInt(request.QueryString("mese"))
ma occhio:qualche utente smanettone potrebbe provare a richiamare
tuapagina.asp?mese=ciccio

[Sypher]

Originariamente inviato da SimoneVB
Giusto, avevo scordato questo passaggio
if mese = 0 then mese = mese_corrente
Potresti fare direttamente
mese = CInt(request.QueryString("mese"))
ma occhio:qualche utente smanettone potrebbe provare a richiamare
tuapagina.asp?mese=ciccio

un bastardo