Function ConvertGreg(StartingGreg, Elapsed)
   'adds a specific number of days to a Gregorian date
   'StartingGreg is the Gregorian date to start with
   'Elapsed is the number of days to add

   ConvertGreg = DateAdd("d", Elapsed, StartingGreg)
   ConvertGreg = FormatDateTime(ConvertGreg, vbShortDate)
End Function

Function KislevOffset(StartRH, EndRH)
   Select Case DateDiff("d", StartRH, EndRH)
   Case 353, 383, 354, 384
      KislevOffset = 58
   Case 355, 385
      KislevOffset = 59
   End Select
End Function