Hi!
Ich muss mir eine Funktion schreiben, die mit tageweise ein Datum nach unten zählt! Wenn ich allerdings einen INT-Wert vom Datentyp Date abziehe, lade ich bei 1983!!!
Kann mir jemand ein kleinen Typ geben???
Vielen Dank und Gruß
Carlos
hi
obwohl deine frage ziemlich unklar definiert ist, nehme ich an, dass du folgendes erreichen willst
Sub DatumMinusTage()
Dim m_date As Date
Dim m_days As Long
m_date = Now
MsgBox m_date
m_days = 3
m_date = m_date - m_days
MsgBox m_date
End Sub
gruss
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi,
wenn du mit nem Datum rechnen willst nimm
DateAdd(interval, number, date)
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
DatePart(interval, date[,firstdayofweek[, firstweekofyear]])
DateSerial(year, month, day)
weitere Infos in der MSDN.
Wenn ich dich richtig verstanden habe willst du:
Dim dtmVorher As Date
Dim dtmNachher As Date
dtmVorher = DateSerial(2000, 5, 28)
dtmNachher = DateAdd(„d“, -1, dtmVorher)
Viele Grüße
Andreas
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi Andreas!!
Ich danke dir für den Tip, ich denke damit dürfte mir geholfen sein!
Gruß -=Carlos=-