[VB] Week 53

[Verwijderd]

Beste Tweakers,

ik heb een programma die voor mij de resultaten laat zien.
Nu geeft hij voor 2008 (29,30,31 dec en 1,2,3,4 jan) weeknummer 53

Het gekke is dat dit niet op alle computers zo is. Op de ene computer geeft hij week 1 en op de andere week 53. Ik heb dit op een aantal computers geprobeerd.

Ik heb al gezocht maar kom telken op php uit.
Ik heb het programma niet zelf gemaakt, maar zou graag een oplossing hiervoor hebben.
Het lijkt wel of er iets geupdate moet worden. Want als het een instelling zou zijn of fout geprogrammeerd, dan moet het op elke computer zo zijn.

Kan iemand mij helpen?
Het programma is gemaakt in Visual Studio en maakt gebruik van xml.

[Stoffel]

Heb je wel een relevant stuk broncode of is het geheel al gecompileerd aangeleverd? Verder, het verschil kan goed liggen in welke datumnotatie een computer gebruikt, bijvoorbeeld US of Nederlands. Dat verklaart je week 53 nog niet meteen, maar wellicht weet je dan in welke richting je kunt zoeken.

[qanar]

Wat is de week van de 5e januari 2009 op een computer die week 53 weergeeft?

Ben het eens met Stoffel dat dit waarschijnlijk een windows instelling is.

[Verwijderd]

Ik heb er niet veel kaas van gegeten, maar volgens mij is het dit stukje code.

Visual Basic:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'set calandercontrols
        Dim pt As System.Drawing.Size
        'Dim pt As System.Drawing.Rectangle
        Dim min_date As Date
        Dim max_date As Date
        Me.WindowState = FormWindowState.Maximized
        pt = Me.Size
        'pt = Screen.PrimaryScreen.WorkingArea
        MC1.ShowTodayCircle = True
        MC1.BackColor = System.Drawing.Color.White
        Me.BackColor = MC1.BackColor
        MC1.Top = 0
        MC1.Left = pt.Width - (MC1.Width) - 10
        MC1.ShowWeekNumbers = True
        MC1.Top = (pt.Height - MC1.Height) / 2

        min_date = DateAdd(DateInterval.Month, -1, Now)
        max_date = DateAdd(DateInterval.Month, 2, Now)
        min_date = DateAdd(DateInterval.Day, ((DatePart(DateInterval.Day, min_date) - 1) * -1), min_date)
        MC1.MinDate = min_date
        MC1.SetDate(DateAdd(DateInterval.Month, 3, Now))
        MC1.SetDate(DateAdd(DateInterval.Month, -1, Now))
        MC1.SetDate(Now)
        MC1.Refresh()
        AMS.AutoSize = False
        AMS.Width = 120
        AMS.Height = 30
        AMSdes.AutoSize = False
        AMSdes.Width = AMS.Width
        AMSdes.Height = AMS.Height
        LDN.AutoSize = False
        LDN.Width = AMS.Width
        LDN.Height = AMS.Height
        LDNdes.AutoSize = False
        LDNdes.Width = AMS.Width
        LDNdes.Height = AMS.Height

        LDNdes.Text = "London"
        'AMSdes.Text = "Amsterdam"

        AMS.Left = 10
        AMS.Top = pt.Height - AMS.Height - 50
        AMSdes.Left = 10
        AMSdes.Top = AMS.Top - AMSdes.Height

        LDN.Left = AMS.Width + 20
        LDN.Top = AMS.Top
        LDNdes.Left = AMSdes.Width + 20
        LDNdes.Top = AMSdes.Top

        LDN.Visible = False
        LDNdes.Visible = False
        AMS.Visible = False
        AMSdes.Visible = False

MC1 System.Windows.Forms.MonthCalendar

[Verwijderd]

qanar schreef op dinsdag 16 december 2008 @ 13:56:
Wat is de week van de 5e januari 2009 op een computer die week 53 weergeeft?

Ben het eens met Stoffel dat dit waarschijnlijk een windows instelling is.

Dat is week 1.

edit; De weken schuiven dus allemaal op

[ Voor 7% gewijzigd door Verwijderd op 16-12-2008 14:05 ]

[418O2]

kijk hier eens naar.

[NMe]

[google=visual basic week number 53]
Eerste hit: BUG: Format or DatePart Functions Can Return Wrong Week Number for Last Monday in Year

Staat daar niks zinnigs in?

[Woy]

Het ligt er inderdaad aan welke definitie je voor de weeknummers gebruikt. Wikipedia: Weeknummer

Waarschijnlijk staat de Locale anders ingesteld op de computers die een ander resultaat geven.

edit:

Spuit 11

[ Voor 4% gewijzigd door Woy op 16-12-2008 14:08 ]

[? ?]

..

[ Voor 98% gewijzigd door ? ? op 25-01-2013 09:51 ]

[wasted247]

Edit: waaaay to slow

[ Voor 92% gewijzigd door wasted247 op 16-12-2008 14:20 ]

[Verwijderd]

Het is opgelost! Regio settings stonden op engels (VS) dit aangepast naar engel(UK) en nu is ie goed.
Iedereen bedankt.

[Haan]

Heb je dat aangepast op je pc? Of in de code (dmv Culture settings)? Ik hoop het laatste, want anders kom je misschien alsnog in de problemen als je programma op een andere pc gaat draaien