Date/Time: Verknüpfen Datum und Uhrzeit

[Andreas Bauer]

Hi zusammen,

nun schon eine 2. Frage zu Date/Time.

Angenommen ich habe 2 Felder:
a) StartDate, Typ Datum, nur Datum kann eingegeben werden
b) StartTime, Typ Datum, nur Uhrzeit kann eingegeben werden

Nun möchte ich in einem Variant das Datum von Feld (a) und die Uhrzeit von Feld (b) haben, um damit weiter berechnen etc. zu können.

In Formelsprache mache ich das so:

Code

_DateField := StartDate;
_TimeField := StartTime;
_Year := @Year(_DateField):
_Month := @Month(_DateField);
_Day := @Day(_DateField);
_Hour := @Hour(_TimeField);
_Minute := @Minute(_TimeField);
_Second := 0;
@Date( _Year ; _Month ; _Day ; _Hour ; _Minute ; _Second )

Ziel ist es, dass der Code auch auf anderen Kontinenten etc. mit anderen Zeitformaten funktioniert.

Gibt es da eine simple und vor allem *sichere* Script-Möglichkeit?

Ciao,
Andreas

[TMC]

Gute Frage  

Ich habe gerade mal nachgesehen, ein @Date - LS-Equivalent gibt es ja nicht, DateNumber lässt nur Jahr, Monat und Tag zu.

Gehen würde aber evtl:

Dim vResult as variant
Dim vFieldDate as Variant
Dim vFieldTime as Variant
Dim intYear as integer
Dim intMonth as integer
Dim intDay as integer
vFieldDate = doc.StartDate(0)
vFieldTime = doc.StartTime(0)

intYear = Year(vFieldDate)
intMonth = Month(vFieldDate)
intDay = Day(vFieldDate)

vResult = Datenumber(intYear,intMonth,intDay) + Fraction(vFieldTime)

Hier nutzen wir aus, dass DateNumber ein Datum + Uhrzeit zurückgibt, die Uhrzeit aber immer 0:00:00 ist. Also einfach die Zeit des Time-Feldes draufgezählt und schon sollte es klappen.

Hab das aber jetzt hier nur reingetippt, ich weiß daher nicht ob das wirklich so klappt.

[Andreas Bauer]

Vielen dank nachträglich, das klappte so.

Sorry für die späte Rückmeldung !

Andreas