// **************************************************************************** //
// **                                                                        ** //
// ** Package : DateFunctions.pkg                                            ** //
// **                                                                        ** //
// ** Purpose : Global date functions                                        ** //
// **                                                                        ** //
// ** Author  : Ulbe Stellema                                                ** //
// **           Data Access Europe                                           ** //
// **                                                                        ** //
// ** Date    : september 28, 2002                                           ** //
// **                                                                        ** //
// **************************************************************************** //

// Function : Year
// Purpose  : Returns year
Function Year Global Date dDate Returns Integer
  DateTime dtDate

  Move (Cast(dDate,DateTime)) To dtDate
  Function_Return (DateGetYear(dtDate))
End_Function // Year

// Fucntion : Month
// Purpose  : Returns month
Function Month Global Date dDate Returns Integer
  DateTime dtDate

  Move (Cast(dDate,DateTime)) To dtDate
  Function_Return (DateGetMonth(dtDate))
End_Function // Month

// Function : Day
// Purpose  : Returns day
Function Day Global Date dDate Returns Integer
  DateTime dtDate

  Move (Cast(dDate,DateTime)) To dtDate
  Function_Return (DateGetDay(dtDate))
End_Function // Day

// Function : DayOfWeek
// Purpose  : Returns the day of the week
Function DayOfWeek Global Date dDate Returns Integer
  DateTime dtDate

  Move (Cast(dDate,DateTime)) To dtDate
  Function_Return (DateGetDayOfWeek(dtDate))
End_Function // DayOfWeek

// Function : DayOfYear
// Purpose  : Returns the day of the year
Function DayOfYear Date dDate Returns Integer
  DateTime dtDate

  Move (Cast(dDate,DateTime)) To dtDate
  Function_Return (DateGetDayOfYear(dtDate))
End_Function // DayOfYear