Makro erweitern

Function in Modul1, die mir jemand im Forum erstellt hat, würde ich gerne erweitern:
Es soll zusätzlich die Nachmittags-Anfangszeit überprüft werden. Eine Zeiteingabe vor 13:15
soll zwar stehen bleiben, aber die Berechnung soll erst ab 13:15 erfolgen. Dies soll für die Blä _
tter ab "Apr" gelten. Bei den Blättern "Jan,Feb,Mär" soll die eingegebene Zeit für die Berechnung gelten.
Option Explicit


Function arbdau(va, ve, na, ne)
Dim vorm As Date
Dim nachm As Date
Dim ArbBegVM As Date 'Arbeitsbeginn Vormittag
Select Case ActiveSheet.Name
Case "Jan", "Feb", "Mär"
ArbBegVM = 9 / 24
Case Else
ArbBegVM = 9.25 / 24
End Select
'Anfangszeit auf  0 And va > 0 Then vorm = ve - va
If ne > 0 And na > 0 Then nachm = ne - na
arbdau = vorm + nachm
End Function


Gruß

mike49