Datum von YYDDDSSSSS in DDMMYYYYhhmmss wandeln

Hallo zusammen,
habe eine Access-2007-Datenbank, in der ich das Fertigungsdatum nach Eingabe des aufgedruckten Fertigungsdatums wie oben genannt umwandeln möchte. D.h.
Eingabe der 10 Ziffern erfolgt im Feld [FD_Motor_org] im Format YYDDDsssss.
Im Feld [FD] soll es nach Aktualisierung dann als DD.MM.YYYY hh:mm:ss abgelegt werden, so dass es jeder lesen kann
Habe bereits eine Excel-Datei für Umrechnung, allerdings wird es dort als einzelne Felder ausgegeben.

Julianisches FD aufgelöstes Datum
Tag Zeit Datum Zeit (hh mm ss)
12242 18755 29.08.2012 5 12 35

Wobei
A3 ist die Eingabe der 5 Ziffern für den Tag (YYDDD)
B3 ist dei EIngabe der 5 Ziffern für die Zeit in Sekunden (sssss)
C3=DATUM((WENN((0+LINKS(A3;2))<50;2000;1900)+LINKS(A3;2));1;RECHTS(A3;3))
D3=ABRUNDEN(UMWANDELN(B3;"sec";"hr");0)
E3=ABRUNDEN(UMWANDELN(B3-60*60*D3;"sec";"mn");0)
F3=B3-60*60*D3-60*E3

Habe mittlerweile 2 Tage dafür verwendet mich durchzugoogeln und finde keinen Hinweis der mir Verständlich genug ist.
Wäre super wenn mir jemand von Euch helfen könnte.
Merci und Gruß
Andreas

Edit:
Aktuelle Darstellung in Access
Bild der Excel-Berechnung

    Dim YY As Integer
    Dim DDD As Integer
    Dim SSSSS As Integer
    Dim jahr As Integer
    Dim stunden As Integer
    Dim minuten As Integer
    Dim sekunden As Integer
    
    YY = CInt(Mid(Me.YYDDDSSSSS, 1, 2))
    DDD = CInt(Mid(Me.YYDDDSSSSS, 3, 3))
    SSSSS = CInt(Mid(Me.YYDDDSSSSS, 6, 5))
    
    If YY < 50 Then
        jahr = 2000 + YY
    Else
        jahr = 1900 + YY
    End If

    sekunden = SSSSS Mod 60
    minuten = ((SSSSS - sekunden) / 60) Mod 60
    stunden = ((SSSSS - sekunden) / 60) \ 60
    
    MsgBox DateAdd("y", DDD, "01.01." & jahr) & " " & stunden & " " & minuten & " " & sekunden  

    Dim YY As Integer
    Dim DDD As Integer
    Dim SSSSS As Long
    Dim jahr As Integer
    Dim stunden As Integer
    Dim minuten As Integer
    Dim sekunden As Integer
    
    YY = CInt(Mid(Me.FD_Motor_org, 1, 2))
    DDD = CInt(Mid(Me.FD_Motor_org, 3, 3)) - 1
    SSSSS = CLng(Mid(Me.FD_Motor_org, 6, 5))
    
    If YY < 50 Then
        jahr = 2000 + YY
    Else
        jahr = 1900 + YY
    End If

    sekunden = SSSSS Mod 60
    minuten = ((SSSSS - sekunden) / 60) Mod 60
    stunden = ((SSSSS - sekunden) / 60) \ 60
    
    MsgBox DateAdd("y", DDD, "01.01." & jahr) & " " & stunden & " " & minuten & " " & sekunden  
    Me.FD = DateAdd("y", DDD, "01.01." & jahr) & " " & stunden & " " & minuten & " " & sekunden  

Me.FD = DateAdd("y", DDD, "01.01." & jahr) & " " & Format(stunden, "00") & ":" & Format(minuten, "00") & ":" & Format(sekunden, "00")