collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 107
  • Punkt Versteckte: 1
  • Punkt Mitglieder: 4
  • Punkt Benutzer Online:

* Forenstatistik

  • stats Mitglieder insgesamt: 14326
  • stats Beiträge insgesamt: 70771
  • stats Themen insgesamt: 9534
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: Uhrzeit gerundet  (Gelesen 1730 mal)

Offline SG05

  • Access-Profi
  • **
  • Beiträge: 116
Uhrzeit gerundet
« am: Januar 26, 2012, 14:32:50 »
Hallo zusammen,

ich mochte über Standardwert im Feld "Ankunftszeit" ein Datum und eine Uhrzeit vorgeben.
Mit "Jetzt()" klappt es gut.

Was muss ich tun, wenn ich den Wert im 15 Minutentakt haben möchte ( Auf- bzw. Abrunden ist nicht so wichtig ).

Beispiel: "26.01.2012  14:26:15"    soll   "26.01.2012  14:30:00"  sein

Ist das Möglich?

Der Grund ist, dass ich mit zwei Schaltflächen ( Plus und Minus ) im 15 Minutentag die Zeit ändere.

VBA:  Ankunftzeit = Ankunftszeit + 0.0416668 ( Die Zahl habe ich ausprobiert und es klappt ganz gut )

Ich glaube, das meine Lösung von hinten durch Auge ist, weiss es aber nicht besser.......
 

Offline edgar.basler

  • Access-Profi
  • **
  • Beiträge: 171
Re: Uhrzeit gerundet
« Antwort #1 am: Januar 26, 2012, 15:36:53 »
1.) Die Minuten kann man sich durch  - minute(Ankunftszeit) - bestimmen.
2.) Dadurch kann man sich dann wenn-Befehle zusammenbasteln - in etwa so:

wenn Minute > 45 dann stunde = stunde + 1 / Minute = 0
wenn Minute > 30 dann Minute = 45
wenn Minute > 15 Minute = 30
ansonsten Minute = 15

Aus der Ferne kann ich es momentan nur "verbal" beschreiben.
 

Offline Stapi

  • Access-Meister
  • ***
  • Beiträge: 663
Re: Uhrzeit gerundet
« Antwort #2 am: Januar 27, 2012, 16:33:45 »
Hallo

Wenn du mit der Funktion Jetzt() arbeitest kannst du die Zeit zerlegen die entsprechende Minuten verändern und wieder zusammen setzen.

Dim dtmjetzt as Date
dim intStunde as Integer
dim intMinute as Integer
dim intSekunde as Integer

dtmjetzt = Now()

intStunde =Hour(dtmjetzt)
intMinute = Hour(dtmjetzt)
intSkunde = Hour(dtmjetzt)

Minuten enstrechend bearbeiten

'zusammensetzen

Debug.Print "TieSerial liefert: " & TimeSerial(intStunde, intMinute, intSekunde)

Gruß Stefan
Grüße aus dem schönen NRW
Stefan
 

 

Uhrzeit aufsplitten

Begonnen von Antai87Board Tabelle/Abfrage

Antworten: 2
Aufrufe: 2398
Letzter Beitrag Oktober 01, 2010, 11:14:37
von Antai87
Datum und Uhrzeit der Tabelle in Formular anzeigen?

Begonnen von immi1971Board Formular

Antworten: 5
Aufrufe: 6615
Letzter Beitrag Januar 18, 2011, 15:16:01
von immi1971
Code zur bestimmten Uhrzeit ausführen

Begonnen von nicsBoard Access Programmierung

Antworten: 5
Aufrufe: 3588
Letzter Beitrag Oktober 15, 2012, 08:31:44
von bahasu
Uhrzeit hat falsches Format

Begonnen von T417Board Bericht

Antworten: 5
Aufrufe: 2969
Letzter Beitrag Oktober 17, 2012, 18:38:56
von MzKlMu
Format eines neuen Tabellenfeldes per VBA auf Uhrzeit Lang setzen

Begonnen von traggerBoard Access Programmierung

Antworten: 7
Aufrufe: 3331
Letzter Beitrag Februar 27, 2013, 20:09:48
von MzKlMu