| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
goooofy
Anmeldungsdatum: 12.09.2005
Beiträge: 69
|
 Verfasst am: 12.05.2011, 15:20 Titel: Datumsberechnung |
 |
|
Hallo,
ich möchte zur Systemzeit DATE und TIME eine bestimmte Anzahl an Minuten hinzuaddieren und die daraus resultierende neue Zeit (und ggf. neues Datum) erhalten.
Beispiel:
05-12-2011 23:02:55 + 120 Minuten = 05-13-2011 01:02:55
Hat jemand einen Vorschlag, wie man das einfach machen könnte? |
|
| Nach oben |
|
 |
MOD
Fleißiger Referenzredakteur
Anmeldungsdatum: 10.09.2007
Beiträge: 1003
|
| Verfasst am: 12.05.2011, 15:54 Titel: |
|
|
Bei sowas einfach mal in die Referenz schauen, da steht alles nötige drin und es sind genügend Links und Beispiele gegeben, um sich was zu basteln:
| Code: | #Include Once "vbcompat.bi"
Dim As Double a
a = DateValue(Date) + TimeValue(Time) + TimeValue("02:00")
Print Format(a, "dd.mm.yyyy hh:mm:ss")
Sleep |
|
|
| Nach oben |
|
|
goooofy
Anmeldungsdatum: 12.09.2005
Beiträge: 69
|
| Verfasst am: 13.05.2011, 08:31 Titel: |
|
|
Dank dir für die Inspiration 
Dein Beispiel bzw. das aus der Referenz funktioniert übrigens NICHT, da DATEVALUE das Datums-Format, das DATE liefert (mm-dd-yyyy), nicht akzeptiert. Vielleicht könnte man das mal in der Ref korrigieren...
So funktioniert es:
| Code: | #INCLUDE Once "vbcompat.bi"
Dim As Double a
a = DateValue(MID(DATE,4,2)+"."+LEFT(DATE,2)+"."+RIGHT(DATE,4)) + TimeValue(TIME) + TimeValue("23:00")
Print Format(a, "dd.mm.yyyy hh:mm:ss")
SLEEP |
|
|
| Nach oben |
|
|
MOD
Fleißiger Referenzredakteur
Anmeldungsdatum: 10.09.2007
Beiträge: 1003
|
| Verfasst am: 13.05.2011, 10:52 Titel: |
|
|
| Das Verhalten ist mir in meinem Test gestern nicht aufgefallen, aber du hast Recht. Allerdings steht diese Information bereits in der Referenz unter DateValue. Die Arten der akzeptierten Strings sind gelistet. |
|
| Nach oben |
|
|
volta
Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192
|
| Verfasst am: 14.05.2011, 20:18 Titel: |
|
|
so umgeht man diese Problematik:
| Code: | #Include Once "vbcompat.bi"
Dim As Double a = Now + TimeValue("02:00")
Print Format(a, "dd.mm.yyyy hh:mm:ss")
Sleep |
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater. |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
