Datumsformat ändern

**Alina**

<<Moin Moin>>

Ich hahe folgendes Probelm:
Ich erstelle die Variable $sDate und möchte nun die Variable $_Datumsformat-5 "011710Afeb25-032" erstellen.
Am besten jetzt sich das an, was nun folgt. Ich glaube, für Euer Verständnis, meiner Problemdarstellung, ist das besser,

Wie bekomme ich die Variable $_Datumsformat-5 hin?

Spoiler anzeigen

AutoIt

#include <Date.au3>
$sDate = _Date_Time_DOSDateTimeToStr(0x3621, 0x944a)



#cs
Datumsformat-1 (ohne Zeitangabe)
TTMMJJJJ

Datumsformat-2 (ohne Zeitangabe)
JJJJMMTT

Datumsformat-3 (ohne Zeitangabe)
MMTTJJJJ

Datumsformat-4 (ohne Zeitangabe)
MMTTJJJJ

#ce



#cs
Datumsformat-5
011710Afeb25-032

Zusammenstellung
01 Tag
1710 Uhrzeit (StdMin)
A Zeitzone
feb Monat
25 Jahr
032 Tag im Jahr
#ce



#cs
Zeitzonen-Abkürzungen
Abkürzung Zeitverschiebung
A +1
B +2
C +3
D +4
E +5
F +6
G +7
H +8
I +9
K +10
L +11
M +12
N -1
O -2
P -3
Q -4
R -5
S -6
T -7
U -8
V -9
W -10
X -11
Y -12
Z Z+0
#ce



#cs
Monat

Januar jan
Februar feb
März mar
April apr
Mai may
Juni jun
Juli jul
August aug
September sep
Oktober oct
November nov
Dezember dec
#ce

Alles anzeigen

**Kanashius**

Hi

Ich muss zugeben, ich finde das Format sehr seltsam. Sowohl das verwenden der DOS-Time (Schaut ziemlich veraltet aus (jeder bit zählt )... Wer nutzt das heute noch???) als auch des Ziel-Formates... Keine Ahnung, wer damit etwas anfangen kann/will

Hier aber trotzdem eine Implementierung:

AutoIt

#include <Date.au3>
Global $iDateFormatOne = 1, $iDateFormatTwo = 2, $iDateFormatThree = 3, $iDateFormatFour = 4, $iDateFormatFive = 5

ConsoleWrite(">> "&_dateTimeConvert(0x3621, 0x944a)&@crlf)
ConsoleWrite(">> "&_dateTimeConvert(0x3621, 0x944a, $iDateFormatOne)&@crlf)
ConsoleWrite(">> "&_dateTimeConvert(0x3621, 0x944a, $iDateFormatTwo)&@crlf)
ConsoleWrite(">> "&_dateTimeConvert(0x3621, 0x944a, $iDateFormatThree)&@crlf)
ConsoleWrite(">> "&_dateTimeConvert(0x3621, 0x944a, $iDateFormatFour)&@crlf)
ConsoleWrite(">> "&_dateTimeConvert(0x3621, 0x944a, $iDateFormatFive)&@crlf)
ConsoleWrite(">> "&_dateTimeConvert(0x3621, 0x944a, $iDateFormatFive, 1)&@crlf)

ConsoleWrite(@crlf)

Local $sDateConverted = _dateTimeConvert(0x3a24, 0x944a, $iDateFormatFive)
If @error Then ConsoleWrite("Error formatting date: "&@error&":"&@extended)
ConsoleWrite("Formatted Date: "&$sDateConverted&@crlf)

; #FUNCTION# =======================================================================================
; Name ..........: _dateTimeConvert
; Description ...: Converts the given DosDate and DosTime to another format.
; Syntax ........: _dateTimeConvert($iDosDate=Default, $iDosTime=Default, $iWantedFormat = $iDateFormatOne, $iTimeZone=Default)
; Parameters ....: $iDosDate              - The DosDate (See _Date_Time_DOSDateTimeToArray($iDosDate, $iDosTime)) for details
;                  $iDosTime              - The DosTime (See _Date_Time_DOSDateTimeToArray($iDosDate, $iDosTime)) for details
;                  $iWantedFormat         - One of $iDateFormatOne (Default), $iDateFormatTwo, $iDateFormatThree, $iDateFormatFour, $iDateFormatFive
;                                           $iDateFormatOne = DDMMYYYY
;                                           $iDateFormatTwo = YYYYMMDD
;                                           $iDateFormatThree = MMDDYYYY
;                                           $iDateFormatFour = MMDDYYYY
;                                           $iDateFormatFive = DDHHMMZmmmYYd (with Z=TimeZone, mmm=Short name for month e.g. feb and d=day of the year)
;                                           TimeZone: A=UTC+1, B=UTC+2,... ,I=UTC+9, K=UTC+10, L=UTC+11, M=UTC+12, N=UTC-12, O=UTC-11,... , Y=UTC-12, Z=UTC-0
;                  $iTimeZone             - The TimeZone bias (hour) as an integer, e.g. 0=UTC, 1=UTC+1, 2=UTC+2, -1=UTC-1 (Default: Systems current timezone)
; Return values .: The formatted date/time
; Errors ........: 1 - Error calling _Date_Time_DOSDateTimeToArray. @extended contains the error code thrown by _QRCode_DrawQRCode.
;                  2 - Error formatting: Required parameter $iDosDate and/or $iDosTime was not set (e.g. Default).
;                  3 - Parameter $iWantedFormat does not match any possible target format.
; Author ........: Kanashius
; ==================================================================================================
Func _dateTimeConvert($iDosDate=Default, $iDosTime=Default, $iWantedFormat = $iDateFormatOne, $iTimeZone=Default)
	Local Static $arTimeZoneLetters = StringSplit("YXWVUTSRQPONZABCDEFGHIKLM", "", BitOR(1,2))
	Local Static $arMonth = ["jan", "feb", "mar", "apr", "may", "jun", "jul", "aug", "sep", "oct", "nov", "dec"]
	If $iTimeZone=Default Then $iTimeZone = _Date_Time_GetTimeZoneInformation()[1]/60*-1
	Local $arDate = _Date_Time_DOSDateTimeToArray($iDosDate, $iDosTime)
	If @error Then Return SetError(1, @error, -1)
	Switch $iWantedFormat
		Case $iDateFormatOne
			If $iDosDate=Default Then Return SetError(2, 1, -1)
			Return StringFormat("%02u%02u%04u", $arDate[1], $arDate[0], $arDate[2])
		Case $iDateFormatTwo
			If $iDosDate=Default Then Return SetError(2, 2, -1)
			Return StringFormat("%04u%02u%02u", $arDate[2], $arDate[0], $arDate[1])
		Case $iDateFormatThree, $iDateFormatFour
			If $iDosDate=Default Then Return SetError(2, 3, -1)
			Return StringFormat("%02u%02u%04u", $arDate[0], $arDate[1], $arDate[2])
		Case $iDateFormatFive
			If $iDosDate=Default Then Return SetError(2, 4, -1)
			If $iDosTime=Default Then Return SetError(2, 5, -1)
			Local $sTimeZoneLetter = $arTimeZoneLetters[12+$iTimeZone]
			Local $iYDay = 0
			For $i=1 To $arDate[0]-1 Step 1
				$iYDay+=_DateDaysInMonth($arDate[2], $i)
			Next
			$iYDay+=$arDate[1]
			Return StringFormat("%02u%02u%02u%s%s%02u%03u", $arDate[1], $arDate[3], $arDate[4], $sTimeZoneLetter, $arMonth[$arDate[0]-1], Mod($arDate[2], 100), $iYDay)
		Case Else
			Return SetError(3, 0, -1)
	EndSwitch
EndFunc

Alles anzeigen

Output:

Code

>> 01012007
>> 01012007
>> 20070101
>> 01012007
>> 01012007
>> 011834Ajan07001
>> 011834Ajan07001

Formatted Date: 011834Aapr09091

Ich hoffe das hilft dir weiter

PS: Falls du die Wahl hast würde ich aktuelle Standardformate nutzen. Z.B. ISO8601: 20250201T234550+0100

Peter S. Taler · *Ab 19-10-22 ergänzt um:*

Hmm,

ich habe den Beitrag von Alina gelesen, gebe aber zu, ich habe ihn nicht verstanden. Liegt vielleicht daran, dass ich bei Datum ein verbohrter Anhänger von day of the year bin...

Und mich frage ...zu was braucht man soetwas?

Lg

Peter

Datumsformat ändern

Ähnliche Themen

_DateDiff('s', ?, _NowCalc())