gebe ich folgendes in das Direktfenster [STRG] + [G] ein:
Excel 365
Code: Alles auswählen
?Date
?Time
Warum?2
3
Code: Alles auswählen
?Date
?Time
Warum?2
3
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
ist strange...als Date:01.01.1900
nur Funktionsaufruf: 2
Code: Alles auswählen
Public Enum eColumnSessions
ecsNone = 0
[_First] = 1
Number = [_First]
DateActual
TimeActual
...
[_Last]
End Enum
Code: Alles auswählen
With Worksheets("Tabelle1")
.Cells(2, Number).Value = 1
.Cells(2, DateActual).Value = Now()
'....
End with
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
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
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
Code: Alles auswählen
Sub test()
MsgBox Time & vbNewLine & Date & vbNewLine & Now
End Sub
Mitglieder in diesem Forum: Ahrefs [Bot] und 0 Gäste