Supportnet / Forum / Datenbanken
funktion jetzt() formatieren
Frage
Hallo nochmal,
ich möchte die Ausgabe der jetzt() Funktion formatiert bekommen und zwar möchte ich diese einfach als Zahl ohne "." und ":" ausgegeben bekommen. Kennt jemand eine Funktion, Makro oder ähnliches, die das bewerkstelligen kann? Hilfe und Danke
mfg
Fruitmaker
Antwort 1 von TomKelly
Hallo Fruitmaker
Versuch mal folgende Zeile:
IIf(Day(Now()) < 10, "0", "") & Day(Now()) & IIf(Month(Now()) < 10, "0", "") & Month(Now()) & Year(Now())
Gruss
TomKelly
Versuch mal folgende Zeile:
IIf(Day(Now()) < 10, "0", "") & Day(Now()) & IIf(Month(Now()) < 10, "0", "") & Month(Now()) & Year(Now())
Gruss
TomKelly
Antwort 2 von erik
Ich würde über den Like Operator jedes Zeichen prüfen, ob es eine Zahl wäre und sie zu einem neuen String aufbauen.
Diese Funktion erfüllt deinen Zweck und ist für andere Zwecke wiederverwendbar.
Public Function StripNonNumerics(Value As Variant) As Variant
Dim strValue As String
Dim strChar As String
Dim strFilter As String
Dim i As Long
strFilter = "[0-9]"
strValue = CStr(Value)
For i = 1 To Len(strValue)
strChar = Mid(strValue, i, 1)
If strChar Like strFilter Then
StripNonNumerics = StripNonNumerics & strChar
End If
Next
End FunctionDiese Funktion erfüllt deinen Zweck und ist für andere Zwecke wiederverwendbar.
Antwort 3 von Fruitmaker
Was außer 1000 Dank könnte ich sagen...
also 1000 Dank für die schnelle Hilfe
bis bald
Fruitmaker
also 1000 Dank für die schnelle Hilfe
bis bald
Fruitmaker