Function vbfirstdayofweek()
 if Weekday(Date,1)<>Weekday(Date,0) then       
    vbfirstdayofweek = 1
  Else
    vbfirstdayofweek = 0
  End If
End Function

Function vbshortdatefmt()
  Dim fmtdate
  fmtdate = FormatDateTime(DateSerial(1999, 2, 3), 2)
  fmtdate = Replace(fmtdate, "1999", "Y")
  fmtdate = Replace(fmtdate, "99", "y")
  fmtdate = Replace(fmtdate, "1999", "Y")
  fmtdate = Replace(fmtdate, "02", "m")
  fmtdate = Replace(fmtdate, "2", "n")  
  fmtdate = Replace(fmtdate, "03", "d")
  fmtdate = Replace(fmtdate, "3", "j")
  vbshortdatefmt = fmtdate
End Function

Function vbmonthname(mnt)
  vbmonthname = MonthName(mnt)
End Function

Function vbdayname(day)
  vbdayname = WeekdayName(day)
End Function

Function use12hourtimeformat()
  Dim fmttime
  fmttime = FormatDateTime(TimeSerial(6,0,0),3)
  use12hourtimeformat=inStr(fmttime,"AM")>0
End Function