Newsgroup: it.comp.lang.visual-basic
Titolo: funzione date

CIAO ,domanda per esperti:
ho un giorno della settimana,si riesce a sapere a quale settimana dell'anno
fa parte.
grazie mille
Alessia.
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 80,000 Newsgroups - 16 Different Servers! =-----

 dell'anno fa parte.
Intendi dire che hai una data, intesa come 17 aprile 2003, e vorresti sapere
a quale settimana dell'anno appartiene?
Se cosě č, potrebbe esserti utile la funzione format, potrebbe essere una
cosa del tipo
format(giorno, "ww")
ma poni attenzione al parametro firstweekofyear (o simili, non fidarti della
mia memoria)
Nota a margine: sicuramente questa risposta poteva essere trovata tramite
una ricerca su google gruppi, avevi provato?
Salutoni
Sergio

 fa parte.
Ho riletto la domanda almeno dieci volte...
Ma non ci salto fuori.
Ciao
Alberto

*Albe V°* ha scritto:

E' semplice, Albe: Oggi (secondo la function che mi sono scritto) cade nella
quindicesima settimana dell'anno.
Non mi pare sia così semplice realizzarlo. Ecco una mia function:
Function RICAVA_SETTIMANA(giorno, mese, anno, Optional data_fine_settimana =
0, Optional parametri = 0, Optional data_inizio_settimana = 0)
'   La settimana inizia dal Lunedi.
'   Settimana 0 indica che la stessa inizia nell'anno precedente rispetto
alla data passata
'   Vedi comunque bit 2^2
'   parametri   2^0 Nel calcolo del giorno di fine settimana
'                   considera la fine settimana al Sabato (Normalmente la
domenica)
'                   Se la data passata e' gia' oltre tale giorno restituisce
la data passata
'               2^1 Nel calcolo del giorno di fine settimana
'                   considera la fine settimana al Venerdi (Normalmente la
domenica)
'                   Se la data passata e' gia' oltre tale giorno restituisce
la data passata
'               2^2 Considera sempre 1 (non 0) il numero della prima
settimana dell'anno
'                   anche se la prima settimana dell'anno inizia nell'anno
precedente
    settimana = 0
    data_inizio_settimana = 0
    If anno <> 0 And mese <> 0 And giorno <> 0 Then
        data_corrente = DateSerial(anno - 1, 12, 31)
        Do
            data_corrente = DateAdd("d", 1, data_corrente)
            If Weekday(data_corrente, vbMonday) = 1 Then
                settimana = settimana + 1
                data_inizio_settimana = data_corrente
            End If
            If Year(data_corrente) > anno Then Exit Do          'Superato
anno indicato
            If Year(data_corrente) = anno Then
'                   Stesso anno passato
                If Month(data_corrente) > mese Then Exit Do     'Superato
mese indicato
                If Month(data_corrente) = mese Then
'                       Stesso anno/mese indicati
                    If Day(data_corrente) = giorno Then Exit Do 'Raggiunto
giorno indicato
                End If
            End If
        Loop
    End If
    If data_inizio_settimana = 0 Then
        Do
            data_corrente = DateAdd("d", -1, data_corrente)
            If Weekday(data_corrente, vbMonday) = 1 Then
                data_inizio_settimana = data_corrente
                Exit Do
            End If
        Loop
    End If
'       Calcola la data di fine settimana
    gfs = 7                                 'Domenica
    If (parametri And 2 ^ 0) Then gfs = 6   'Sabato
    If (parametri And 2 ^ 1) Then gfs = 5   'Venerdi
    data_corrente = DateSerial(anno, mese, giorno)
    If Weekday(data_corrente, vbMonday) < gfs Then
        For comodo = 1 To 7
            data_corrente = DateAdd("d", 1, data_corrente)
            If Weekday(data_corrente, vbMonday) = gfs Then Exit For
        Next comodo
    End If
    data_fine_settimana = data_corrente
    If (parametri And 2 ^ 2) Then
'           Verifica se il primo lunedi dell'anno passato corrisponde al
giorno 1
        settimana = settimana + IIf(Weekday(DateSerial(anno, 1, 1),
vbMonday) = 1, 0, 1)
    End If
    RICAVA_SETTIMANA = settimana
End Function

 fa parte.
    Visual Basic 6?
        Function DatePart( _
            Interval As String _
          , Date _
          , [FirstDayOfWeek As VbDayOfWeek = vbSunday] _
          , [FirstWeekOfYear As VbFirstWeekOfYear = vbFirstJan1])
            Membro di VBA.DateTime
            Restituisce la parte specificata di una data
        Function Format( _
            Expression _
          , [Format] _
          , [FirstDayOfWeek As VbDayOfWeek = vbSunday] _
          , [FirstWeekOfYear As VbFirstWeekOfYear = vbFirstJan1])
            Membro di VBA.Strings
            Formatta un'espressione
-- 
Ciao :o)
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto nel messaggio
news:3e9e6...@corp.newsgroups.com...


 Alessia.
VB6
MonthView1.Week
ecc...


VB.Net
MonthCalendar1.ShowWeekNumbers()

 wrote in message
3e9e6...@corp.newsgroups.com...
