Vba - Calcolo Data da un numero settimana

Question

Buongiorno a tutti,

Non so come fare con il vba questa cosa (anzi , 2) :

ho un numero settimana e vorrei trasformarla in una data .

Il file di input purtroppo arriva da un portale e non è molto strutturato, da questo devo creare un csv, ho visto che è un file di forecast, quindi potrebbe esserci il nr.settimana, esempio 5 ma riferita all’anno 2017(non specificato in nessun modo nel file)  .

Oltre al problema numero 1 , cioè da numero settimana a data,  per capire se devo andare nell’anno dopo pensavo di calcolare il numero settimana in base alla data odierna (partendo dal lunedì) e se il numero settimana è maggiore di quello del file allora è anno successivo.

Quindi il problema numero 2 è come prendere il numero settimana dalla data odierna

Grazie a tutti

Answer 1

Ciao IL CREM,

Il codice del punto 1 è proprio quello che mi serve, ho fatto alcune prove ed ho visto che non sempre è precisissimo, o magari va specificato qualcosa , esempio  settimana 44 la data che mi dovrebbe restituire è 31/10/2016 (ogni lunedì) invece il codice restituisce 4/11/2016

Manca qualcosa ?

Se guardi la guida VBA per la funzione DatePart vedrai qualcosa del genere (adattata dalla mia versione inglese):

A titolo solo di esempio:

'=========>>

Public Sub m2()

    Dim s As String

    Dim iFirstWeekOfYear As Long

    Dim iFirstDayOfWeek As Long

    s = "31/10/2016"

    For iFirstWeekOfYear = 0 To 3

        For iFirstDayOfWeek = 0 To 7

            MsgBox " Numero Settimana " _

                 & DatePart("ww", CDate(s), iFirstDayOfWeek, iFirstWeekOfYear) _

                 & vbNewLine _

                 & "Argomento firstDayOfWeek = " & iFirstDayOfWeek _

                 & vbNewLine _

                 & "Argomento firstWeekOfYear = " & iFirstWeekOfYear

        Next iFirstDayOfWeek

    Next iFirstWeekOfYear

End Sub

'<<=========

===

Regards,

Norman

Answer 2

Buongiorno,

innanzitutto grazie,

Il codice del punto 1 è proprio quello che mi serve, ho fatto alcune prove ed ho visto che non sempre è precisissimo, o magari va specificato qualcosa , esempio  settimana 44 la data che mi dovrebbe restituire è 31/10/2016 (ogni lunedì) invece il codice restituisce 4/11/2016

Manca qualcosa ?

Answer 3

Non ho capito.

Puoi, per favore, postare la stringa della tua data? Grazie.

Ad ogni modo, a solo titolo di esempio:

(1)

Public Sub m()

    Dim lng As Long

    lng = 41

    MsgBox DateAdd("ww", lng, DateSerial(Year(Date), 1, 1))

End Sub

(2)

Public Sub m()

    Dim s As String

    s = "07/10/2016"

    MsgBox DatePart("ww", CDate(s))

End Sub

Vedi DateAdd e DatePart nella guida del vb di Excel.