Data da numero settimana

di
tomi
il
19 risposte

19 Risposte - Pagina 2

  • O
    oregon
    Super Famoso
    Iscritto da
    nov, 2011
    Messaggi:
    21747

    Re: Data da numero settimana

    Guarda che quel codice funziona solo per gli anni in cui il 1 gennaio è lunedì

    È pure sbagliato, non è .NET e mi sa che non l'hai neanche provato 

    Il codice corretto su cui basarti (ovviamente modificando quello che ti serve) è

            Dim D4 As DateTime
        Dim TD As Integer
        Dim FD As DateTime

        Dim Y = 2024				' Anno scelto
        Dim NW As Integer = 31		' Settimana selezioanta

        D4 = Date.Parse("04/01/" + Y.ToString())
        TD = -(D4.DayOfWeek - DayOfWeek.Monday) + (NW - 1) * 7
        FD = D4.AddDays(TD)

        MessageBox.Show(FD.ToString())
  • P
    pierovb
    Utente Attivo
    Iscritto da
    nov, 2021
    Messaggi:
    158

    Re: Data da numero settimana

    Che è poi lo stesso codice (visual basic 6.0) che ti avevo suggerito, con le dovute riserve che aveva sollevato Oregon, 

    8 post dietro.

    Dim LSett As Long
    LSett = Val(txtNsettimana.Text) - 1
    txtData.Text DateAdd("ww", LSett, DateSerial(Year(Date), 1, 1))
  • S
    sihsandrea
    Molto attivo
    Iscritto da
    feb, 2011
    Messaggi:
    1498

    Re: Data da numero settimana

    02/08/2024 - oregon ha scritto:

    D4 = Date.Parse("04/01/" + Y.ToString()) TD = -(D4.DayOfWeek - DayOfWeek.Monday) + (NW - 1) * 7 FD = D4.AddDays(TD)

    Che poi altro non è che il calcolo di cui parlavo.

    Intercetti il primo lunedì

    (D4.DayOfWeek - DayOfWeek.Monday)

     Aggiungi le settimane

    + (NW - 1) * 7

  • T
    tomi
    Pochi posts
    Iscritto da
    lug, 2024
    Messaggi:
    6

    Re: Data da numero settimana

    Si si come ti dicevo a parte i calcoli sempliciotti, io cercavo una funzione già implementata…

    comunque risolto grazie.

  • O
    oregon
    Super Famoso
    Iscritto da
    nov, 2011
    Messaggi:
    21747

    Re: Data da numero settimana

    Spero per te che abbia usato il codice corretto

Devi accedere o registrarti per scrivere nel forum
19 risposte