[Q] VB Date

11/09/2011 16:52 mrapc#1
Hallo Leute,

ich hab mal wieder eine frage unzwar will ich ein Programm mit einem Datagrindview machen, bei dem jede Zeile ein Datum ist.
Der Code an sich geht
PHP Code:
Dim Number As Integer = 0       '//Damit die Reihen immer eins weiter benannt werden//
        Dim Datum As Date               '//Das Datum//
        

        Number += 1                                                             '//Weil es schon die zweite Reihe ist//
        DataGridView1.ColumnCount += 1                                          '//Neue Reihe//

        DataGridView1.Columns(Number).HeaderText = (Datum.Date + "Hinfahrt")    '//Bennenen//

        Number += 1
        DataGridView1.ColumnCount += 1

        DataGridView1.Columns(Number).HeaderText = (Datum.Date + "Rückfahrt")

        Number += 1
        DataGridView1.ColumnCount += 1 
Jetzt soll aber schon der nächste tag kommen (Achja für die Leute die sagen Date ist nicht bestimmt hatte ich vorher nicht gemacht hab ich jetzt aber als 01.01.2012 fest gemacht.

Es soll also jetzt immer
01.02.2012 (Amerikanische Datumsangabe!)
Entstehen

also immer ein Tag mehr
und wenn der Monat voll ist ein Monat mehr
naja sollte klar sein
und das ganze bis das Jahr 2012 voll ist also bis 2013

Wie mach ich das?

Danke
MrAPC
11/09/2011 17:14 warfley#2
Du kannst die datetime klasse soweit ich weiss addieren
11/09/2011 18:41 mrapc#3
Alles voll daneben
Code:
        Datum.Date(+1)
        Datum.Date.Day(+1)
        Datum(+1)
        Datum += 1
        Datum + Date.FromFileTime + (0,1,0)
Mit Date + Date also
Code:
Dim Number As Integer = 0       '//Damit die Reihen immer eins weiter benannt werden
        Dim Datum As Date                '//Das Datum



        DataGridView1.ColumnCount += 1
        DataGridView1.Columns(0).HeaderText = ("Platz Nummer")


        

        Datum = Date.Today



        Number += 1                                                             '//Weil es schon die zweite Reihe ist
        DataGridView1.ColumnCount += 1                                          '//Neue Reihe

        DataGridView1.Columns(Number).HeaderText = (Datum.Date + "Hinfahrt")    '//Bennenen

        Number += 1
        DataGridView1.ColumnCount += 1

        DataGridView1.Columns(Number).HeaderText = (Datum.Date + "Rückfahrt")

        Number += 1
        DataGridView1.ColumnCount += 1



        Dim neuertag As New System.DateTime(0, 0, 1, 0, 0, 0, 0)
        Datum = Datum + neuertag





        DataGridView1.Columns(Number).HeaderText = (Datum.Date + "Hinfahrt")

        Number += 1
        DataGridView1.ColumnCount += 1

        DataGridView1.Columns(Number).HeaderText = (Datum.Date + "Rückfahrt")
habe ich zwar keine Fehler aber auch kein Erfolg er fängt garnicht erst an Zeilen zu erstellen
weil der Code
Dim neuertag As New System.DateTime(0, 0, 1, 0, 0, 0, 0)
Das irgendwie verhindert
11/09/2011 19:14 Kraizy​#4
Ich versteh deinen Mistcode nicht, erklär bitte nochmal genauer, was du erreichen willst..
11/10/2011 12:03 mrapc#5
Also
das ganze soll halt eine Tabelle sein
Bei der Oben die Daten stehen Hin und Rückfahrt
und Links werden dann Sitzplätze sein

Die daten soll der mir Automatisch schreiben damit ich das nicht machen brauch, hab zwar zeit aber nicht unendlich viel.

Plätz | 01.01.2012 (H) | 02.01.2012 (R) | 03.01.2012 |
-----+----------------+---------------+------------|
1 | BELEGT | FREI | |
-----+----------------+---------------+------------|

So ungefähr

Achja und danke das du meine Sachen als "Mistcode" bezeichnest