Date/Time Function

[thowe]

Moin!

gebe ich folgendes in das Direktfenster [STRG] + [G] ein:
Excel 365

Code: Alles auswählen

?Date
?Time

erhalte ich

2
3

Warum?

[thowe]

Moin,
nochmals ich!

bei folgendem Code

Code: Alles auswählen

Sub TESTS_Date()
'
    Dim datDate As Date
    datDate = Date
    Debug.Print "als Date:"; datDate

    Debug.Print "nur Funktionsaufruf:"; Date
End Sub

erhalte ich folgendes Ergebnis:

als Date:01.01.1900
nur Funktionsaufruf: 2

ist strange...

[thowe]

Hallo!

ich glaube ich habe es gefunden ich hatte in:

Code: Alles auswählen

Public Enum eColumnSessions
    ecsNone = 0
    [_First] = 1
    Number = [_First]
    DateActual
    TimeActual
    ...
    [_Last]
End Enum

vorher statt DateActual nur Date stehen und statt "TimeActual " nur Time stehen.
Nach Änderung keine Probleme!

LG thowe
NS: kann man das hier auf gelöst stellen?

[d'r Bastler]

Moin thowe,

gerne hätte ich Dir geantwortet. "Dein Wunsch war mir Befehl " Aber leider ist die entsprechende Extension, die ich vorerst finden konnte so asbach uralt, dass sie selbst auf der Software hier nicht läuft. Meine Suche geht aber natürlich weiter, denn ein GELÖST-Button fehlt mir auch schon lange.

Ansonsten hoffentlich dann mit dem Update ... ach ja - und wie spät ist es jetzt und heute?
Danke für die Lösung! (die wie eben getestet habe unter XL 2019/2021 nicht funktioniert. Schade. hätte man sich leicht als neuere Systax angewöhnen können)

lg

[thowe]

Hallo Heb,

was läuft da nicht?

Ich verwende hier die Enumeration für die Spalten. Kan so angewandt werden:

Code: Alles auswählen

With Worksheets("Tabelle1")
	.Cells(2, Number).Value = 1
	.Cells(2, DateActual).Value = Now()
	'....
End with

ACHTUNG Enumerationen beginnen mit "0". Daher siehst du auch in der Enumeration "ecsNone" = 0
Das [_First] [_Last] ist für das iterieren durch/über die Enumeration notwendig.

Wenn du zB das Format/die Ausgabe des Datum via Enumeration lösen willst, dann - so wie ich es verwende - zB:

Code: Alles auswählen

Enum eDateFormat
    'hier kein None!
    'man könnte auch schreiben FullDate = 0, OnlyDate = 1 ....
    'Das Wort Enumeration hat doch eine Bedeutung ...
    FullDate
    OnlyDate
    OnlyTime
    OnlyMonth
End Enum

und folgende Funktion:

Code: Alles auswählen

Option Explicit
Dim m_datTimestamp As Date


Function HELPERS_GetTimestamp(intDateFormat As Integer, Optional datDate As Date)
    
    If datDate = 0 Then
        m_datTimestamp = Now()
    Else
        m_datTimestamp = datDate
    End If
    Select Case intDateFormat
    
        Case 0 'FullDate
            HELPERS_GetTimestamp = m_datTimestamp
        Case 1 'Only Date
            HELPERS_GetTimestamp = Format(m_datTimestamp, "DD.MM.YYYY")
        Case 2 'Only Time
            HELPERS_GetTimestamp = Format(m_datTimestamp, "HH:MM:SS")
        Case 3 'Only Month
            HELPERS_GetTimestamp = Month(m_datTimestamp)
        Case Else 'FullDate
            HELPERS_GetTimestamp = m_datTimestamp
    End Select
    
End Function

Dann könnest du zB den ersten Code wie folgt schreiben:

Code: Alles auswählen

With Worksheets("Tabelle1")
	.Cells(2, Number).Value = 1
	.Cells(2, DateActual).Value = HELPERS_GetTimestamp(FullDate, Now())
	'oder a bissale kürzer .Cells(2, DateActual).Value = HELPERS_GetTimestamp(0, Now()) 'nur wer merkt sich schon die (E)Numeration...
	'....
End with

EDIT: ich bin mit der Date/Time Funktion nicht so bewandert, gibt es eine andere Möglichkeit NUR Datum oder NUR Zeit herauszukitzeln, statt mit "Format(....)"?
lg thowe

[d'r Bastler]

Moin thowe,

na ? ActualTime oder ? ActualDate im Direktfenster ... funzt in meinen Versionen nicht.

Mit ? Time bzw. ? Date werden 15:28:17 und 10.09.2024 geliefert - ohne jede weitere Zeile mehr - natürlich auch aus dem Code. Beides auf einmal bekommst Du mit Now : 10.09.2024 15:29:39

Code: Alles auswählen

Sub test()
MsgBox Time & vbNewLine & Date & vbNewLine & Now
End Sub

lg

[thowe]

*dongge*
lg