Da ist er wieder mit einen neuen Thema :D,
Jeder kennt ja nun inzwischen mein Stichtag Code....
quasi kann der Spieler Spielen und geld verdienen und nach 60 Minuten wird abgerechnet .... 1 Minute lang
Jetzt will ich in diesen Counter noch ein Tageszähler einbauen, habe z.b. unter dem 1 Stunden Countdown ein Datum 01.01.2000.
Eine Ganze Stunde soll im Spiel ein Monat ergeben, also ist eine Stunde vorbei (es wird Abgerechnet) dann haben wir den 01.02.2000.
Das so umzuschreiben ist ja kein problem, nur wie bekomm ich es hin das er 60 Minuten durch die Tage des Monats teilt.
Also Januar 31 Tage durch 60 minuten, heißt alle ca. 116 Sek. muss ein Tag + gerechnet werden. <--- Vom Prinzip her habe ich das auch schon Teils hinbekommen aber nicht jeder Monat hat 31 Tage .... es gibt mal 31, 30, 28, 29 ... Verflixte Tage
Hier die Aktion (ist nur ein Beispiel)
Jeder kennt ja nun inzwischen mein Stichtag Code....
VB.NET-Quellcode
quasi kann der Spieler Spielen und geld verdienen und nach 60 Minuten wird abgerechnet .... 1 Minute lang
Jetzt will ich in diesen Counter noch ein Tageszähler einbauen, habe z.b. unter dem 1 Stunden Countdown ein Datum 01.01.2000.
Eine Ganze Stunde soll im Spiel ein Monat ergeben, also ist eine Stunde vorbei (es wird Abgerechnet) dann haben wir den 01.02.2000.
Das so umzuschreiben ist ja kein problem, nur wie bekomm ich es hin das er 60 Minuten durch die Tage des Monats teilt.
Also Januar 31 Tage durch 60 minuten, heißt alle ca. 116 Sek. muss ein Tag + gerechnet werden. <--- Vom Prinzip her habe ich das auch schon Teils hinbekommen aber nicht jeder Monat hat 31 Tage .... es gibt mal 31, 30, 28, 29 ... Verflixte Tage
Hier die Aktion (ist nur ein Beispiel)
VB.NET-Quellcode
- If Not _showCountdown Then
- Label_Label160.Text = $"Stichtag in: {ots.ToString()}"
- If _Counter = 3484 Or _Counter = 3368 Or _Counter = 3252 Or _Counter = 3136 Or _Counter = 3020 Then
- SystemDatum = DateAdd("d", 1, SystemDatum) 'einen Tag addrieren Zeile eins
- SpielDatum.Text = CType(SystemDatum, String) 'einen Tag addrieren Zeile zwei
- End If
- Else
- Label_Label160.Text = $"Es wird abgerechnet: {ots.ToString()}"
- End If