Datum vergleichen!

Forumthread: Datum vergleichen!
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Datum vergleichen!

Datum vergleichen!

30.12.2005 12:58:59

Swen

Hallo an elle,
wie kann ich das Datum in strDate
mit dem aktuellen Datum vergeleichen!
Und wenn es älter als ein Tag ist soll eine msgbox anzeigen "zu alt"
z.B.
strName = 28.12.05 Date = 30.12.05 dann msgbox zeigen
strName = 29.12.05 Date = 30.12.05 dann msgbox nicht zeigen
strName = 30.12.05 Date = 30.12.05 dann msgbox nicht zeigen
gruß
swen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datum vergleichen!

30.12.2005 13:24:30

Peter
AW: Datum vergleichen!

01.01.2006 12:39:58

Swen
AW: Datum vergleichen!

01.01.2006 14:19:16

Peter
AW: Datum vergleichen!

01.01.2006 22:45:48

Swen

AW: Datum vergleichen!

30.12.2005 13:24:30

Peter

Hallo Swen,
zum Beispiel so:

Sub Datumsvergleich()
Dim strName  As Date
   strName = "28.12.2005"
   If strName < Date - 1 Then
      MsgBox "das Datum " & strName & " ist kleiner als das heutige Datum " & _
             "minus 1 Tag.", 64, "   Datumsabgleich"
   End If

End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

AW: Datum vergleichen!

01.01.2006 12:39:58

Swen

Hallo an alle,
und wie könnte ich schaun ob die Variable anmeldeUhrzeit älter als 10 Std ist!
gruß
swen

AW: Datum vergleichen!

01.01.2006 14:19:16

Peter

Hallo Swen,
z. B. so:
Dim AnmeldeUhrzeit  As Date
Dim AnmUhr_Min      As Integer
Dim AktUhr_Min      As Integer
   AnmeldeUhrzeit = "03:15:00"

   AnmUhr_Min = Hour(AnmeldeUhrzeit) * 60 + Minute(AnmeldeUhrzeit)
   AktUhr_Min = Hour(Now) * 60 + Minute(Now)

   If AnmUhr_Min < AktUhr_Min - 600 Then
      MsgBox "die Anmelde-Uhrzeit " & AnmeldeUhrzeit & " ist älter als 10 Stunden ", _
         64, "   Uhrzeit-Abgleich"
   End If

End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

AW: Datum vergleichen!

01.01.2006 22:45:48

Swen

.. klappt beides wunderbar!
vielen dank!
gruß
swen

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!