German Rechnen mit Datum

P

peternmb

Well-Known Member
Licensed User
Longtime User
Hallo,
bei der Updateprüfung in meiner App möchte ich dem Nutzer die Möglichkeit für 7 Tage Pause geben.
Ich speichere dafür eine Dummydatei, deren Datum ich dann auslese, nur klappt das mit dem Hinzurechnen der 7 Tage nicht.
B4X: 
 If File.LastModified(File.DirInternal,"Update.txt")+7 > DateTime.Date(DateTime.Now) Then
ich erhalte diese Fehlermeldung mit der ich nichts anfangen kann
java.lang.NumberFormatException: multiple points
Click to expand...
 

BlueVision

Well-Known Member
Licensed User
Longtime User
Das kann meiner Ansicht nach nicht so funktionieren, Du kannst da nicht einfach eine 7 hinzuaddieren. Ich denke das bekommst Du einfach mit dem "TimeAdd"-Befehl hin. Das müsste etwa in dieser Weise funktionieren (ich habe das jetzt extra nicht als Code markiert, weil er so natürlich nicht funktioniert und nur als Beispiel für Dich dienen soll). Entscheidend ist der Wert in Bold. Getestet habe ich das jetzt aber nicht, nur schnell hingeschmiert, weil bisher keine Antwort kam auf Deine Frage.

Zuerst weist Du der Variablen FutureDate den Wert zu:

Dim FutureDate As Long
FutureDate = File.LastModified(File.DirInternal,"Update.txt")

Dann fügst Du zu diesem Wert 7 Tage hinzu:

FutureDate = DateTime.Add(FutureDate, Years as Int, Months as Int, Days as Int)
Log("FutureDate is: " & DateTime.Date(FutureDate))

Anschließend musst Du diesen Wert nur noch mit DateTime.DateTime(Now) vergleichen. Klar kann man das auch in einer Codezeile hinbekommen, wäre hier jetzt aber nicht so übersichtlich.
 

DonManfred

Expert
Licensed User
Longtime User
peternmb said:
Ich speichere dafür eine Dummydatei, deren Datum ich dann auslese, nur klappt das mit dem Hinzurechnen der 7 Tage nicht.
Click to expand...
Das Datum was in der Datei steht zu VERHEIMLICHEN ist allergrößter MIST.
Wie zuum Teufel soll dir jemand helfen können wenn er ABSOLUT NULL INFORMATIONEN von Dir bekommt?

Du musst das Datum (in welcher Form auch immer es in der Datei steht)
- Zuerst in einen LONG-Wert umwandeln.
- Dann kannst Du mit den B4X Dateutils Befehlen mit einem Datum rechnen.

[B4X] DateUtils - Simplifies Date and Time Calculations

DateUtils is a code module with a set of useful date and time related methods. It complements DateTime api, it doesn't replace it. The methods included in DateUtils: 'Calculates the period between two date instances. 'This method returns a Period type with years, months, days, hours, minutes...
www.b4x.com

B4X: 
    Dim datum As String = "25.01.2026"
    DateTime.DateFormat = "dd.MM.yyyy"
    Dim datevalue As Long = DateTime.DateParse(datum)
    Dim p As Period
    p.Days = 7
    Dim newdate As Long = DateUtils.AddPeriod(datevalue, p)
    
    Log(DateTime.Date(newdate))

PS: Rechne nicht damit dass ich mir noch weiter irgendwelche Mühen gebe Dir zu Antworten.
 
Last edited:
P

peternmb

Well-Known Member
Licensed User
Longtime User
DonManfred said:
Das Datum was in der Datei steht zu VERHEIMLICHEN ist allergrößter MIST.
Wie zuum Teufel soll dir jemand helfen können wenn er ABSOLUT NULL INFORMATIONEN von Dir bekommt?

Du musst das Datum (in welcher Form auch immer es in der Datei steht)
Click to expand...
Ich verstehe nicht was du mit Verheimlichen meinst.
In der Datei steht nichts, die Information die ich speichere und mit der ich arbeiten bzw. rechnen möchte ist das Datum der Datei nicht der Inhalt.

Danke für den Hinweis auf DateUtils. Mir war nicht bekannt, dass ich dazu zusätzliche Funktionen benötige. Beim Programmieren unter Windows kann ich direkt mit dem Darltum rechnen wie in meinem Beispielversuch.

PS. Welche Informationen fehlen bei meiner Frage???
 

BlueVision

Well-Known Member
Licensed User
Longtime User
Ich denke DonManfred hat Deinen Post einfach falsch interpretiert. Du versteckst ja das Datum nicht in der Datei, sondern liest so wie ich das verstehe das Erstellungsdatum der Datei selbst aus. Wie auch immer, der Lösungsansatz von Don Manfred ist vielleicht auch etwas eleganter als der bei mir.
Ein Gedanke dazu noch:
Ich packe in meiner App gleich in den Namen einer Updatedatei das Datum. Das ist einfacher.
 
Last edited:
P

peternmb

Well-Known Member
Licensed User
Longtime User
Das Ausrechnen des Enddatums klappt prima, nur beim Vergleichen bekomme ich eine Fehlermeldung.
Ich finde dazu auch nichts hilfreiches in der Beschreibung von DateUtils.
B4X: 
            Dim d As Long
            d = File.LastModified(File.DirInternal,"Update.txt")
            Dim datum As String = DateTime.Date(d)
            DateTime.DateFormat = "dd.MM.yyyy"
            Dim datevalue As Long = DateTime.DateParse(datum)
            Dim p As Period
            p.Days = 7
            Dim newdate As Long = DateUtils.AddPeriod(datevalue, p)
            '
            Log("Dateidatum: " & DateTime.Date(d))
            Log("Heute: " & DateTime.Date(DateTime.Now))
            Log("Update ab: " & DateTime.Date(newdate))
            '
            If DateTime.Date(DateTime.Now) < DateTime.Date(newdate) Then
                Log("kein Update suchen")
            Else   
                Log("Update suchen")
            End If
 
P

peternmb

Well-Known Member
Licensed User
Longtime User
Ich konnte es jetzt viel einfacher mit der mir vorher unbekannten Funktion "DateUtils.PeriodBetweenInDay " lösen:
B4X: 
Dim d As Long = File.LastModified(File.DirInternal,"Update.txt")
Log("Dateidatum: " & DateTime.Date(d))
'
Dim heute As Long = DateTime.Now
Log("Heute: " & DateTime.Date(heute))
'
Dim zeit As Period
zeit=DateUtils.PeriodBetweenInDays(d,heute )
Log(zeit.days)
'      
If zeit.Days < 7 Then
    Log("kein Update suchen")
Else
    Log("Update suchen")
End If
 

BlueVision

Well-Known Member
Licensed User
Longtime User
Alles basiert auf sogenannten Ticks (Millisekunden seit Anno Knack, ich glaube das war der 1.1.1970 00:00:00 UTC). Dein Vergleich im Post #8 schlägt fehl, weil ein Datum dann prinzipiell ein String ist, der aus diesen Ticks errechnet wird. Für den Vergleich müsstest Du dann wieder die Strings vorher in Ticks umrechnen.
Im Post #9 ist das elegant gelöst und Du bekommst das Umwandlungsproblem gar nicht erst.
 
You must log in or register to reply here.

Similar Threads

German Probleme mit Google Play: Deaktivierungswarnung wegen "Paywall-Beschränkung" für App mit Abo
Replies
2
Views
2K
fredo
J
German Rechnen mit Ticks, bin ratlos
Replies
4
Views
2K
Joe73
J
German Datum Format Handling
Replies
2
Views
2K
corwin42
C
  • Question
Rechnen mit dem Datum
Replies
4
Views
3K
CatWeazle
C
K
German input/output rechnen
Replies
1
Views
2K
kgb666
K
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…