select in fpdf con data

[vic53]

nessuno che mi dia un valido aiutino?

a cosa servono queste istruzioni..

y=pdf.GetY(y)
conta = 1
end if
end if
if not rs.eof then
'imposto la nuova coordinata

dato che sono nel ciclo While not rs.eof ?
soprattutto la seconda end if di cui non vedo la if
poi le if inline senza end if non sarebbe meglio usare l'istruzione "select case..."
mi riferisco a blocchi in cui la variabile mesfin vale un numero anche se letterale e poi la fai diventare testo... mesfin da dove lo carichi? puoi usare un vettore di 12 elementi e puntarlo?
esempio

dim mese
mesi="GENNAIO;FEBBRAIO;MARZO;APRILE;MAGGIO;GI§UGNO ;LUGLIO;AGOSTO;SETTEMBRE;OTTOBRE;NOVEMBRE;DICEMBRE "
mese=split(mesi,";"-1,1)

dopo le istruzioni sopra mese(1) contiene "GENNAIO",
mese(2) contiene £FEBBRAIO" e cosi via...

quindi
il blocco sotto diventerebbe semplicemente

mesfin=mese(cInt(mesfin)) ...

in una sola istruzione...

if mesfin = "1" then mesfin = "GENNAIO" end if
if mesfin = "2" then mesfin = "FEBBRAIO" end if
if mesfin = "3" then mesfin = "MARZO" end if
if mesfin = "4" then mesfin = "APRILE" end if
if mesfin = "5" then mesfin = "MAGGIO" end if
if mesfin = "6" then mesfin = "GIUGNO" end if
if mesfin = "7" then mesfin = "LUGLIO" end if
if mesfin = "8" then mesfin = "AGOSTO" end if
if mesfin = "9" then mesfin = "SETTEMBRE" end if
if mesfin = "10" then mesfin = "OTTOBRE" end if
if mesfin = "11" then mesfin = "NOVEMBRE" end if
if mesfin = "12" then mesfin = "DICEMBRE" end if

...

ridisegnamo il codice?

la sera sono al computer fino alla mezzanotte

ciao
ciao

[vic53]

a cosa servono queste istruzioni..

y=pdf.GetY(y)
conta = 1
end if
end if
if not rs.eof then
'imposto la nuova coordinata

dato che sono nel ciclo While not rs.eof ?
soprattutto la seconda end if di cui non vedo la if
poi le if inline senza end if non sarebbe meglio usare l'istruzione "select case..." oppure altro come ti suggerisco sotto
mi riferisco a blocchi in cui la variabile mesfin vale un numero anche se letterale e poi la fai diventare testo... mesfin da dove lo carichi? puoi usare un vettore di 12 elementi e puntarlo?
esempio
dim mese
mesi=";GENNAIO;FEBBRAIO;MARZO;APRILE;MAGGIO;GIUGNO ;LUGLIO;AGOSTO;SETTEMBRE;OTTOBRE;NOVEMBRE;DICEMBRE ;"
mese=split(mesi,";"-1,1)

la stringa parte con ";" perchè split fa partire il vettore da zero...
per avere gennaio nell'elemento 1

dopo le istruzioni sopra mese(1) contiene "GENNAIO",
mese(2) contiene £FEBBRAIO" e cosi via...

quindi
il blocco sotto diventerebbe semplicemente

mesfin=mese(cInt(mesfin))
(cInt converte in intero se non mi ricordo male)

in una sola istruzione...


if mesfin = "1" then mesfin = "GENNAIO" end if
if mesfin = "2" then mesfin = "FEBBRAIO" end if
if mesfin = "3" then mesfin = "MARZO" end if
if mesfin = "4" then mesfin = "APRILE" end if
if mesfin = "5" then mesfin = "MAGGIO" end if
if mesfin = "6" then mesfin = "GIUGNO" end if
if mesfin = "7" then mesfin = "LUGLIO" end if
if mesfin = "8" then mesfin = "AGOSTO" end if
if mesfin = "9" then mesfin = "SETTEMBRE" end if
if mesfin = "10" then mesfin = "OTTOBRE" end if
if mesfin = "11" then mesfin = "NOVEMBRE" end if
if mesfin = "12" then mesfin = "DICEMBRE" end if



...

ridisegnamo il codice?

la sera sono al computer fino alla mezzanotte perche sto scrivendo una procedura di una ventina di programmi quindi ci sono quasi tutte le sere ...