Newsgroup: it.comp.lang.visual-basic
Titolo: utilizzo di un calendario !

Ciao a tutti, spero che non siate già tutti in vacanza (-:
Questo è il problema :
- Ho l'esigenza che il mio programma possa sapere che il giorno 1 settembre
è sabato, che il 15 agosto è mercoledì (e festivo) ecc...
Per adesso io ho ovviato a questo utilizzando righe di codice preimpostate
da me, solo che ogni volta che cambia l'anno devo mettermi lì a riscrivere
tutto con il rischio di sbagliare.
Se conoscete qualche ocx o dll o qualsiasi altra cosa che possa essermi
d'aiuto Vi sarò infinitamente grata.



Per quanto riguarda il giorno della settimana, puoi usare la funzione format:
giorno=format(now,"dddd")
Per quanto riguarda le festività, a parte la Pasqua (per determinare la quale trovi un algoritmo sul
Sito Comune) le altre sono ricorrenze fisse, cioè sempre alla stessa data. Quindi basta un select...
(occhio che però le feste nazionali variano di nazione in nazione...)
Ciao,
Moreno
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 ha scritto nel messaggio
news:fgtfmto20b323dt32...@4ax.com...


Grazie ancora e ciao
non ti seguo... format(cdate("15/08/2001","dddd") ti restituisce "Wednesday", che è il giorno della
settimana di ferragosto.
dim i as integer
For i = 1 To 31
    On Error Resume Next
    Debug.Print i & " - " & Format(CDate(i & "/02/2001"), "dddd")
Next
ti restituisce tutti i giorni della settimana del mese di febbraio.....
Ho messo l'On Error Resume Next poiché Febbraio non ha 31 giorni: magari potresti sostituire "31"
con il valore di ritorno di una funziona che dato mese ed anno (se bisestile) ti ritorna il numero
di giorni...
dov'è che mi son perso?


 l'esigenza di sapere a priori come cadranno i giorni di quel mese.
Mese = 3
Anno = 2001
Data = cdate("01/" & Mese & "/" & 2001)
Do While Month(data) = Mese
    Debug.Print format(Data, "dddd") & " - " & Data
    Data = Data + 1
Loop
Ciao
Enrico

 ha scritto nel messaggio
news:3d2gmtobqcs8bt431...@4ax.com...


 > giorno=format(now,"dddd")
per caso hai provato anche
    giornodelgiudizio = format(c:, ":P:P:P:P")
?
:)

 wrote in message
news:9k96es$3e1kq$3...@ID-51318.news.dfncis.de...

:-))

 Data = cdate("01/" & Mese & "/" & 2001)
Data = cdate("01/" & Mese & "/" & Anno)


 > Next
anch'io mi ero fatto una funzioncina, ma volendo usare getlocaleinfo, ti
restituisce anche i giorni della settimana in italiano:
LOCALE_SABBREVDAYNAME7
LOCALE_SABBREVDAYNAME6
LOCALE_SABBREVDAYNAME5
LOCALE_SABBREVDAYNAME4
LOCALE_SABBREVDAYNAME3
LOCALE_SABBREVDAYNAME2
LOCALE_SABBREVDAYNAME1
se ti serve un esempio su come usarla, ti mando un mini vbp che mi ero
fatto a partire da un post di hal1961.
ciao, a.

Te ne sarei grata .
grazie e ciao
goldgirl19@hotmail


 ha scritto nel messaggio
news:Lf7a7.84432$Pb6.4...@news1.tin.it...


... User unknown

rimandato ora.
Lo so che è una scusa per iniziare una conversazione con la signorina, però magari potrebbe tornar
utile anche a qualcun altro... perché non lo posti sul ng? :-)
MSVB(I) 
 :-)


  :-)
perche' non mi serve nessuna scusa per iniziare una conversazione con
te...
(interpretala come preferisci :)
cmq, c'e' una megamatrice con ca 90 lokinfo. sul ng diventa un post
pesantino, anche se il vbp e' mini e gnocchissimo.
anzi, ho guardato ora, sono 2 (200 righe...), e non mi ricordo manco se
la seconda e' usata...
quando il wm torna glielo mando, magari previa
strconv(localeinfo.vbp, vbBeautyCase)
ciao, a.

strconv(localeinfo.vbp, vbBeautyCase)
OK... scherzavo comunque... :-)


Sara ha scritto:

La funzione WeekDay ti restituisce il giorno della settimana.
Es: WeekDay(#8/2/2001#) = 5 (considera che 0 = dom, 1 = lun, ...)
Se hai VB6 puoi ottenere anche il nome.
WeekDayName(WeekDay(#8/2/2001#), , vbSunday)
NOTA: #8/2/2001# e' il 2 agosto 2001, non l' 8 febbraio 2001!
Per determinare se un giorno e' festivo puoi usare una Select
su tutte le possibili date festive (i giorni festivi sono sempre
gli stessi, a parte Pasqua).
-- 
Samuele Battarra
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/leggiminews.html