PDA

Vollständige Version anzeigen : Umwandlung eines julianischen Datumsformates


Sonja
23.10.2001, 20:30
Hallo Ihr,


ich brauche wieder einmal eure Hilfe.
Wie kann ich in einer Abfrage ein Julianisches Datum z.b. 01030 in das Datumsformat 30.01.2001 umwandeln.

Gibt es hierfuer eine Formatfunktion??

Vielen Dank im voraus fuer Eure Hilfe

Sonja

Mattes
24.10.2001, 17:59
Hi,

wie setzt sich Dein Beispiel zusammen?

WAG
25.10.2001, 11:34
Hi Sonja,
so eine Formatfunktion kenn ich nicht. Aber vielleicht hilft Dir das weiter

Option Base 1
Function DatumNeu(JDatum As String) As Date
Dim Jahr As Integer
Dim i As Integer
Dim Tage As Integer
Dim TageImMonat
Jahr = CInt(Left(JDatum, 2))
Tage = CInt(Right(JDatum, 3))
TageImMonat = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
TageImMonat(2) = Day(DateSerial(Jahr, 3, 0))
If Tage > 337 + TageImMonat(2) Then Exit Function
i = 1
Do While Tage > 0
If Tage > TageImMonat(i) Then
Tage = Tage - TageImMonat(i)
i = i + 1
Else
DatumNeu = DateSerial(Jahr, i, Tage)
Tage = 0
End If
Loop
End Function


Dieter

Anne Berg
25.10.2001, 11:57
Hallo Sonja,

wenn es sich tatsächlich um ein Datumsfeld handelt, kannst Du es beliebig formatieren, z.B. "yyddd", "dd.mm.yyyy". Die interne Darstellung ist davon völlig unabhängig.

Wenn es allerdings ein Textfeld ist, müßte man es mit Hilfe von String-Funktionen (left, right, mid) zerpflücken und umwandeln können.