Datum und Zeitangaben!

Computer: Software & Programmierung Visual Basic
#1

Hy Forum!

Ich hab folgendes Problem.
Ich mach per normalen VB-Button eine Email auf. In dieser Email steht das Systemdatum. Jetzt hab ich aber das Problem:
Ich möchte wenn ich das Email angenommen zwischen 22:00 und 00:00 aufmach dann will ich das Datum vom aktuellen Tag drinnen haben, wenn ich es nach 00:00 aufmachen, dann soll das Datum vom gestrigen Tag drinnen stehn.
Hab schon einige If then abfragen gebastelt aber anscheinend dürfte da mit der Formatierung nicht ganz hinhaun…

Bitte um Hilfe…

Merci vielmals

Lg
Blacky

#2

Hi,

Ich hab folgendes Problem.
Ich mach per normalen VB-Button eine Email auf. In dieser
Email steht das Systemdatum. Jetzt hab ich aber das Problem:
Ich möchte wenn ich das Email angenommen zwischen 22:00 und
00:00 aufmach dann will ich das Datum vom aktuellen Tag
drinnen haben, wenn ich es nach 00:00 aufmachen, dann soll das
Datum vom gestrigen Tag drinnen stehn.
Hab schon einige If then abfragen gebastelt aber anscheinend
dürfte da mit der Formatierung nicht ganz hinhaun…

ich weiß ja nicht, was Du wie bisher versucht hast, deshalb fällt der Tipp eher allgemein aus. Sieh Dir mal Timevalue() und Datediff() an. Damit ist so etwas ganz einfach zu lösen.

Gruß, Rainer

#3

Hy Rainer!

Ich muss anmerken das ich ein ziemlicher neuling auf dem gebiet bin und wenns was zu machen gibt, einfach solang versuch bis es dann so klappt wie ich gern hätte! :smile:

hier ein auszug aus dem Code…
time1 = Format(Now, „hh:nn“)

If time1 = Format(Time, „22:00 23:59“) Then GoTo jetzt
If time1 = Format(Time, „00:00 05:59“) Then GoTo gestern
If time1 = Format(Time, „06:00 21:59“) Then GoTo jetzt

jetzt: sdate = Format(Now, „dd.mm.yyyy“)
gestern: sdate = Format(Now - 1, „dd.mm.yyyy“)

MsgBox („heutiges datum“ & sdate)

lg
Blacky

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Hallo,

Ich muss anmerken das ich ein ziemlicher neuling auf dem

das ist ja OK, dazu ist das Brett ja da.

hier ein auszug aus dem Code…
time1 = Format(Now, „hh:nn“)

OK, gut so.

If time1 = Format(Time, „22:00 23:59“) Then GoTo jetzt

??? Nein. Versuch mal …

If Hour(time1)

#5

Hallo,

ich habe mal ein Beispiel geschrieben, das Dir sicher helfen wird.

Option Explicit

Private Sub Command1\_Click()
 Dim tm As Date
 Dim tm0 As Date
 tm0 = TimeValue("01:00:00")
 tm = Now
 Label1.Caption = tm
 If Hour(tm0) 

Alles klar?

Gruß, Rainer
#6

Hy Rainer!
Besten Dank mal für die Hilfe!

Werd ich mir gleich mal anschaun. Sollte ich noch fragen haben werd ich mich gleich melden!

Danke für die Hilfe!

lg
Blacky

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#7

Hy Rainer!

Folgenden Code hab ich nun ausprobiert.
Private Sub Command1_Click()
Dim sdate As String, jetzt As String, gestern As String, time1 As Date

time1 = Format(Now, „hh:nn“)

If Hour(time1) > 2 Then GoTo jetzt
If Hour(time1) [Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#8

Hallo,

Folgenden Code hab ich nun ausprobiert.
Private Sub Command1_Click()
Dim sdate As String, jetzt As String, gestern As String, time1
As Date

OK, Du dimensionierst jetz und gestern als String …

time1 = Format(Now, „hh:nn“)

If Hour(time1) > 2 Then GoTo jetzt
If Hour(time1)

Option Explicit

Private Sub Command1_Click()
Dim time1 As Date
time1 = Now
If Hour(time1) >= 2 Then MsgBox „jetzt“
If Hour(time1)

Da ist kein ‚Format…‘ drin, so geht es. Ein ‚Goto‘ ist auch nicht drin, den Befehl habe ich seit 20 Jahren nicht mehr gebraucht, der sollte aus dem Basic entfernt werden. :smile:

Um das Datum zu verändern hatte ich Dir in dem Beispiel den Befehl Dateadd() gegeben, was hast Du gegen den? Verwende den ruhig, der funktioniert.

Gruß, Rainer

#9

Hy nochmals!

Das format hab ich deswegen genommen, damit VB zwischen datum und Zeit unterscheiden kann. Gibt sicherlich eine einfachere Methode… aber ich als anfänger kanns leider noch nicht besser.
Und das mit dem GoTo hab ich „irgendwo“ her. ich hab früher mal ein bischen auf VMS herumprogrammiert und von daher is mir der Befehl eingefallen.

Ich hab jetzt die Zeiten noch etwas erhöht und auf 4 gesetzt. Funktioniert jetzt wunderbar. Auch in den „Zeitreise“ tests hat der Code alles bestanden und entspricht voll und ganz meinen Ansprüchen.

Tja so schnell kanns gehn. Aber ich bin froh das der Code noch existiert! :smile:

Vielen Herzlichen dank nochmals für deine Hilfe… ich bin mir sicher ich werd dich bald wieder nerven! :smile:

lg
Blacky

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#10

Hallo,

Funktioniert jetzt wunderbar.

na prima!

Vielen Herzlichen dank nochmals für deine Hilfe… ich bin mir
sicher ich werd dich bald wieder nerven! :smile:

Du nervst nicht. :smile:

Gruß, Rainer