vba:classes:date:index
Differences
This shows you the differences between two versions of the page.
| Both sides previous revision Previous revision Next revision | Previous revision Last revision Both sides next revision | ||
|
vba:classes:date:index [04.01.2016 11:12:50] yaslaw |
vba:classes:date:index [30.03.2016 14:00:00] yaslaw |
||
|---|---|---|---|
| Line 1: | Line 1: | ||
| ~~DISCUSSION~~ | ~~DISCUSSION~~ | ||
| <const> | <const> | ||
| - | versiondt=1.4.1 | + | versiondt=1.8.0 |
| - | vdatedt=18.11.2015 | + | vdatedt=30.03.2016 |
| - | versiondi=1.3.0 | + | versiondi=1.5.0 |
| - | vdatedi=04.01.2016 | + | vdatedi=30.03.2016 |
| fnamedt=datetime.cls | fnamedt=datetime.cls | ||
| fnamedi=dateinterval.cls | fnamedi=dateinterval.cls | ||
| Line 45: | Line 45: | ||
| Dim dt2 As DateTime: Set dt2 = DateTime.serial(2014, 12, 4, 14, 30, 15) | Dim dt2 As DateTime: Set dt2 = DateTime.serial(2014, 12, 4, 14, 30, 15) | ||
| - | 'Dierenz berechnen | + | 'Differenz berechnen und formatiert ausgeben |
| Dim di As DateInterval: Set di = dt1.diff(dt2) | Dim di As DateInterval: Set di = dt1.diff(dt2) | ||
| - | |||
| - | 'Und ausgeben | ||
| Debug.Print di.format("E\s ge\ht \noc\h Y Ja\h\re, M \Mo\nate u\n\d D Tage") | Debug.Print di.format("E\s ge\ht \noc\h Y Ja\h\re, M \Mo\nate u\n\d D Tage") | ||
| + | --> 'Es geht noch 0 Jahre, 3 Monate und 12 Tage | ||
| - | 'Ausgabe: | + | 'Dasselbe mit der format2() Funktion (gibt es auch für DateTime) |
| - | 'Es geht noch 0 Jahre, 3 Monate und 12 Tage</code> | + | Debug.Print di.format2("Es geht noch {$Y} Jahre, {$M} Monate und {$D} Tage") |
| + | --> Es geht noch 0 Jahre, 3 Monate und 12 Tage | ||
| + | </code> | ||
| DateTime aus einem Datumsstring erstellen | DateTime aus einem Datumsstring erstellen | ||
| Line 59: | Line 60: | ||
| Ein kleines Einzeilerbeispiel, bei dem 3 Moante und 4 Tage zu einem defniertem Datum hinzugezählt wird | Ein kleines Einzeilerbeispiel, bei dem 3 Moante und 4 Tage zu einem defniertem Datum hinzugezählt wird | ||
| - | <code vb>?DateTime(#8/25/2014#).add("P3M4D").format("DD.MM.YYYY") | + | <code vb>?DateTime(#8/25/2014#).add("P3M4D").dateValue |
| 29.11.2014</code> | 29.11.2014</code> | ||
| Und dasselbe über die Serial-Methode des [[vba:classes:date:dateinterval:index]] | Und dasselbe über die Serial-Methode des [[vba:classes:date:dateinterval:index]] | ||
| - | <code vb>?DateTime(#8/25/2014#).add(DateInterval.serial(,3,4)).format("DD.MM.YYYY") | + | <code vb>?DateTime(#8/25/2014#).add(DateInterval.serial(,3,4)).dateValue |
| + | 29.11.2014</code> | ||
| + | |||
| + | Und nochmals dasselbe, mit der addSingleValue() Methode des DateTime Objektes | ||
| + | <code vb>?DateTime(#8/25/2014#).addSingleValue("M", 3).addSingleValue("D", 4).dateValue | ||
| 29.11.2014</code> | 29.11.2014</code> | ||
vba/classes/date/index.txt · Last modified: 28.06.2016 11:46:22 by yaslaw
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: GNU Free Documentation License 1.3
