x LuigiB ... strano comportamento di una semplice funzione

[gennaro]

Salve Sig Luigi, volevo sottoporle qst semplice script ed analizzare il mio output ... (SM v1.3.40)

Sub Main()


    For estr = EstrazioneFin To EstrazioneFin - 30 Step - 1


        Call CheGiornoE(estr,NomeGiorno)
        Scrivi estr & " " & NomeGiorno & " " & DataEstrazione(estr)


    Next 'estr


End Sub






Function CheGiornoE(idEstr,GetCheGiornoE_Nome) 'by LuigiB, adapted by Gennaro
    Dim sData
    sData = Replace(DataEstrazione(idEstr),".","/")
    Select Case WeekDay(sData)
    Case 3
    GetCheGiornoE_Nome = "Mar"
    Case 5
    GetCheGiornoE_Nome = "Gio"
    Case 7
    GetCheGiornoE_Nome = "Sab"
    End Select
End Function

mi fornisce...

8499 Mar 21.02.2012
8498 Sab 18.02.2012
8497 Gio 16.02.2012
8496 Mar 14.02.2012
8495 Mar 11.02.2012
8494 Mar 09.02.2012
8493 Mar 07.02.2012
8492 Mar 04.02.2012
8491 Gio 02.02.2012
8490 Mar 31.01.2012
8489 Sab 28.01.2012
8488 Gio 26.01.2012
8487 Mar 24.01.2012
8486 Sab 21.01.2012
8485 Gio 19.01.2012
8484 Mar 17.01.2012
8483 Sab 14.01.2012
8482 Sab 12.01.2012
8481 Sab 10.01.2012
8480 Sab 07.01.2012
8479 Mar 05.01.2012
8478 Gio 03.01.2012
8477 Sab 31.12.2011
8476 Gio 29.12.2011
8475 Mar 27.12.2011
8474 Sab 24.12.2011
8473 Gio 22.12.2011
8472 Mar 20.12.2011
8471 Sab 17.12.2011
8470 Gio 15.12.2011
8469 Mar 13.12.2011

...cosa accade ? eheheheh sbaglio qlkosa?

[LuigiB]

ciao qualche errore ineffetti c'è ma solo sul concetto di funzione , mi spiego le funzioni devono tornare un risultato senno tanto vale fare una sub.
Tu il risultato lo fai tornare dentro un parametro che passi alla funzione stessa.
Tuttavia questo errore non dovrebbe pregiudicare il risultato , ad ogni modo l'istruzione WeekDay è del vbscript non di spaziometria.
Qui in ufficio non ho il programma controllero meglio da casa.

[gennaro]

ok, appena puo'...

... quello e' il mio solito errore di concetto a cui provvedero'

Usando il weekday da solo, sembra funzionare

Sub Main()
	For n = 1 To 10
		Scrivi WeekdayName(WeekDay(n))
		Scrivi
	Next 'estr
End Sub

[LuigiB]

bhe comunque a weekday si passa una data non un numero ....

[gennaro]

Ok, ora contempliamo tutti i modi..

  Sub Main()
 For n = 0 To 10
  Scrivi Now + n
  Scrivi WeekDay(Now + n)
  Scrivi WeekdayName(WeekDay(Now + n))
  Scrivi("---")
 Next 'n
End Sub

PS: Filosofeggio solo per fissare in testa le basi di VB (per le procedure e le funzioni ... devo scrivere una PAGINETTA in stampatello ed una in corsivo

[LuigiB]

ehi Gennaro non fare esperimenti , semmai prima documentati sull'help del vbscript ...
now + n non significa nulla .... per sommare valori a date ci sono funzioni apposta !

[gennaro]

...uff, non ne ingarro una

[gennaro]

Ho isolato un caso emblematico per lo studio di tutti...

 Sub Main()
 Scrivi("Il 04/02/2012, usando le funzioni del VB, era " & WeekDayName(WeekDay(CDate(04/02/2012))))
 Scrivi
 Scrivi("Adesso calcoliamolo dal n° estrazione che era 8491")
 estr = 8491
 appo = DataEstrazione(estr)
 Scrivi estr & " " & appo & " ed era " & WeekDayName(WeekDay(Replace(appo,".","/")))
End Sub

[gennaro]

Luigi, forse ho scoperto ... la nostra data è GG/MM/AAAA invece VB ragiona in MM/GG/AAAA ...
Sto diventando più pignolo di Joe hihihihii

[gennaro]

Sperando di non essere tedioso, ma costruttivo... ecco la controprova

 Sub Main()
 Scrivi("Il 04/02/2012, usando le funzioni del VB, era " & WeekDayName(WeekDay("02/04/2012")))
 Scrivi
 Scrivi("Adesso calcoliamolo dal n° estrazione 8491")
 estr = 8491
 appo = DataEstrazione(estr)
 Scrivi estr & " " & appo & " ed era " & WeekDayName(WeekDay(Replace(appo,".","/")))
 Scrivi
 Scrivi("Facciamo controprova mettendo la data nella forma MM/GG/AAAA")
 datamia = Mese(estr) & "/" & giorno(estr) & "/" & Anno(estr)
 Scrivi datamia
 Scrivi WeekDayName(WeekDay(CDate(datamia)))
End Sub