Datum

[raymondhvh]

Hey mensen het is vandaag 10-09-2010
en ik ben opzoek naar een code om dit te doen:
vandaag op 10-09-2010
is een code 5988
de code moet morgen op 11-09-2010 op
5989 staan.

en als eimand anders bvb de app het eerst opend op 02-10-2010
dan moet het 5988+22 zijn kan dit op een makkelijke manier?

bedankt!:thumb:

 

[old Hippy]

Zet dit in je Form1_Load

Textbox1.text=Today

 

[raymondhvh]

volgens mij heeft u de vraag niet gelezen

 

[old Hippy]

Dit rekend het aantal dagen uit tussen een begin en een eind datum
tel het resultaat bij je code

  Dim date1
        date1 =TextBox1.Text
        TextBox2.Text = DateDiff(DateInterval.Day, Now, date1) & " Dagen"
    End Sub

 

[raymondhvh]

bedankt dit werkt voor het aantal dagen,
ik zal zelf probeern de rest uit te zoeken


edit:
nu heb ik geprobeert er 5988 bij te voegen :

        Label1.Text = TextBox2.Text(+5988)

krijg ik de error. index ligt buite de matrix grenzen..

weet u wat dit is?? alvast bedankt!

 

[old Hippy]

H probeer dit

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim date1
        date1 =TextBox1.Text
        TextBox2.Text = DateDiff(DateInterval.Day, Now, date1, FirstDayOfWeek.Monday) + 1 & " Dagen"
      [COLOR="red"]  Dim code As Integer = "5988"
        TextBox3.Text = code + DateDiff(DateInterval.Day, Now, date1) + 1[/COLOR]
    End Sub

de +1 is om dat de datum bij 0 begint te tellen

 

[The Mighty Atom]

Dim code As Integer = "5988"

Een integer variable heeft geen aanhalingstekens nodig. Dus die kunnen weg, dus zo:

Dim code As Integer = 5988

 

[old Hippy]

Hellemaal gelijk
Klopt enthousiast typefoutje
groet Old hippy