Permalink
Branch: master
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
874 lines (633 sloc) 29.1 KB

CPowerTime Class

A CPowerTime object contains a date and time value, allowing easy calculations. The date and time value is stored as a 64-bit value representing the number of 100-nanosecond intervals since January 1, 1601. A nanosecond is one-billionth of a second.

The following static const member variables are provided to simplify calculations (number of 100-nanosecond intervals):

CPowerTime_Millisecond    10000ull
CPowerTime_Second         CPowerTime_Millisecond * 1000
CPowerTime_Minute         CPowerTime_Second * 60
CPowerTime_Hour           CPowerTime_Minute * 60
CPowerTime_Day            CPowerTime_Hour * 24
CPowerTime_Week           CPowerTime_Day * 7
Name Description
Constructors Create new CPowerTime objects initialized to the specified value.
CAST Operator Returns the CPowerTime value as an unsigned long integer.
LET Operator Assigns a value to a CPowerTime object.
Operators Adds, subtracts or compares CPowerTime objects.
AddDays Adds the specified number of days to this CPowerTime object. You can subtract days by using a negative number.
AddHours Adds the specified number of hours to this CPowerTime object. You can subtract hours by using a negative number.
AddMinutes Adds the specified number of minutes to this CPowerTime object. You can subtract minutes by using a negative number.
AddMonths Adds the specified number of months to this CPowerTime object. You can subtract months by using a negative number.
AddMSeconds Adds the specified number of milliseconds to this CPowerTime object. You can subtract milliseconds by using a negative number.
AddSeconds Adds the specified number of seconds to this CPowerTime object. You can subtract seconds by using a negative number.
AddYears Adds the specified number of years to this CPowerTime object. You can subtract years by using a negative number.
AstroDay Returns the Astronomical Day for any given date.
AstroDayOfWeek Returns the Astronomical Day for any given date.
DateSerial Gets/sets the date and time as a FreeBasic date serial.
DateString Returns the date as a string based on the specified mask, e.g. "dd-MM-yyyy".
Day Returns the Day component of the CPowerTime object. It is a value in the range of 1-31.
DaysInMonth Returns the number of days in the specified month.
DayOfWeek Returns the Day-of-Week component of the CPowerTime object.
DayOfYear Returns the day of the year, where Jan 1 is the first day of the year.
DayOfWeekString Returns the Day-of-Week component of the CPowerTime object as a string.
DaysDiff Returns the days of difference between two dates.
DaysInYear Returns the number of days of the year.
Format Converts a CPowerTime object to a string.
GetAsFileTime Returns the date and time as a FILETIME structure.
GetAsJulianDate Returns the date as a Julian date.
GetAsSystemTime Returns the date and time as a SYSTEMTIME structure.
GetCurrentTime Returns a CPowerTime object that represents the current system date and time.
GetFileTime Returns the value of the CPowerTime object.
Hour Returns the Hour component of the CPowerTime object. It is a numeric value in the range of 0-23.
IsFirstDayOfMonth Returns true if the date is the first day of the month; false, otherwise.
IsLastDayOfMonth Returns true if the date is the last day of the month; false, otherwise.
IsLeapYear Determines if a given year is a leap year or not.
JulianToGregorian Converts a Julian date to a Gregorian date.
Minute Returns the Minute component of the CPowerTime object. This is a numeric value in the range of 0-59.
Month Returns the Month component of the CPowerTime object. It is a value in the range of 1-12.
MonthString Returns the Month component of the CPowerTime object as a string.
MSecond Returns the Millisecond component of the CPowerTime object.This is a numeric value in the range of 0-999.
NewDate Sets a new date to this CPowerTime object.
NewTime Sets a new time to this CPowerTime object.
Now Assigns the current local date and time on this computer to this CPowerTime object.
NowUTC Assigns the current Coordinated Universal date and time (UTC) to this CPowerTime object.
Second Returns the Second component of the CPowerTime object. This is a numeric value in the range of 0-59.
SetFileTime Sets the date and time of this CPowerTime object.
TimeString Retuns the time as a string based on the specified mask, e.g. "dd-MM-yyyy".
Today Assigns the current local date on this computer to this CPowerTime object.
UTCToLocal Converts time based on the Coordinated Universal Time (UTC) to local file time.
WeekOne Returns the first day of the first week of the year.
WeekNumber Returns the week number for a given date.
WeeksInMonth Returns the number of weeks in the year.
WeeksInYear Returns the number of weeks in the specefied month and year.
Year Returns the Year component of the CPowerTime object.

Constructors

Create new CPowerTime objects initialized to the specified value.

CONSTRUCTOR CPowerTime
CONSTRUCTOR CPowerTime (BYVAL nTime AS ULONGLONG)
CONSTRUCTOR CPowerTime (BYREF ft AS FILETIME)
CONSTRUCTOR CPowerTime (BYREF st AS SYSTEMTIME)
Parameter Description
nTime A date and time expressed as a 64-bit value.
ft A FILETIME structure.
st A SYSTEMTIME structure.

Examples

DIM cft AS CPowerTime = CPowerTime().GetCurrentTime()
DIM cft AS CPowerTime = AfxLocalFileTime
print cft.GetFileTime
DIM cft AS CPowerTime = AfxLocalSystemTime
print cft.GetFileTime

CAST Operator

Returns the CPowerTime value as an unsigned long integer.

OPERATOR CAST () AS ULONGLONG

Examples

DIM cft AS CPowerTime = CPowerTime().GetCurrentTime()
DIM nTime AS LONGLONG = cft
print nTime
DIM cft AS CPowerTime = CPowerTime().GetCurrentTime()
DIM cft2 AS CPowerTime = cft

LET Operator (=)

Assigns a value to a CPowerTime object.

OPERATOR LET (BYVAL nTime AS ULONGLONG)
OPERATOR LET (BYREF ft AS FILETIME)
OPERATOR LET (BYREF st AS SYSTEMTIME)
Parameter Description
nTime A date and time expressed as a 64-bit value.
ft A FILETIME structure.
st A SYSTEMTIME structure.

Examples

DIM cft AS CPowerTime
cft = AfxLocalFileTime
print cft.GetFileTime
DIM cft AS CPowerTime
cft = AfxLocalSystemTime
print cft.GetFileTime

Operators

Compares CPowerTime objects.

OPERATOR = (BYREF dt1 AS CPowerTime, BYREF dt2 AS CPowerTime) AS BOOLEAN
OPERATOR <> (BYREF dt1 AS CPowerTime, BYREF dt2 AS CPowerTime) AS BOOLEAN
OPERATOR < (BYREF dt1 AS CPowerTime, BYREF dt2 AS CPowerTime) AS BOOLEAN
OPERATOR > (BYREF dt1 AS CPowerTime, BYREF dt2 AS CPowerTime) AS BOOLEAN
OPERATOR <= (BYREF dt1 AS CPowerTime, BYREF dt2 AS CPowerTime) AS BOOLEAN
OPERATOR >= (BYREF dt1 AS CPowerTime, BYREF dt2 AS CPowerTime) AS BOOLEAN

AddDays

Adds the specified number of days to this CPowerTime object. You can subtract days by using a negative number.

SUB AddDays (BYVAL nDays AS LONG)
Parameter Description
nDays The number of days.

AddHours

Adds the specified number of hours to this CPowerTime object. The valid values for this member are 1 through 23. You can subtract hours by using a negative number.

AddHours (BYVAL nHours AS LONG)
Parameter Description
nHours The number of hours.

AddMinutes

Adds the specified number of minutes to this CPowerTime object. The valid values for this member are 1 through 59. You can subtract minutes by using a negative number.

SUB AddMinutes (BYVAL nMinutes AS LONG)
Parameter Description
nMinutes The number of minutes.

AddMonths

Adds the specified number of months to this CPowerTime object. The valid values for this member are 1 through 12. You can subtract months by using a negative number.

SUB AddMonths (BYVAL nMonths AS LONG)
Parameter Description
nMonths The number of months.

AddMSeconds

Adds the specified number of milliseconds to this CPowerTime object. The valid values for this member are 1 through 999. You can subtract milliseconds by using a negative number.

SUB AddSeconds (BYVAL nSeconds AS LONG)
Parameter Description
nSeconds The number of seconds.

AddSeconds

Adds the specified number of seconds to this CPowerTime object. The valid values for this member are 0 through 59. You can subtract seconds by using a negative number.

SUB AddSeconds (BYVAL nSeconds AS LONG)
Parameter Description
nSeconds The number of seconds.

AddYears

Adds the specified number of years to this CPowerTime object. You can subtract years by using a negative number.

SUB AddYears (BYVAL nYears AS LONG)
Parameter Description
nYears The number of years.

AstroDay

Returns the Astronomical Day for this CPowerTime object.

FUNCTION AstroDay () AS LONG

Returns the Astronomical Day for any given date.

FUNCTION AstroDay (BYVAL nYear AS LONG, BYVAL nMonth AS LONG, BYVAL nDay AS LONG) AS LONG
Parameter Description
nYear A four digit year.
nMonth A month number (1-12).
nDay A day number (1-31).

Return value

The astronomical day.

Remarks

Among other things, can be used to find the number of days between any two dates, e.g.:

DIM cpt AS CPowerTime
PRINT cpt.AstroDay(-12400, 3, 1) - cpt.AstroDay(-12400, 2, 28)  ' Prints 2
PRINT cpt.AstroDay(12000, 3, 1) - cpt.AstroDay(-12000, 2, 28) ' Prints 8765822
PRINT cpt.AstroDay(1902, 2, 28) - cpt.AstroDay(1898, 3, 1)  ' Prints 1459 days

AstroDayOfWeek

Calculates the day of the week, Sunday through Monday, of a given date.

FUNCTION AstroDayOfWeek (BYVAL nYear AS LONG = 0, BYVAL nMonth AS LONG = 0, BYVAL nDay AS LONG = 0) AS LONG
Parameter Description
nYear A four digit year.
nMonth A month number (1-12).
nDay A day number (1-31).

Day

Returns the Day component of the CPowerTime object. It is a value in the range of 1-31.

FUNCTION Day () AS LONG

DaysDiff

Returns the days of difference between two dates.

The date part of the internal CPowerTime object is compared to the date part of the specified external CPowerTime object. The time-of-day part of each is ignored. The difference in number of days is returned as the result of the function.

FUNCTION DaysDiff (BYREF cpt AS CPowerTime) AS LONG
Parameter Description
cpt The CPowerTime object to compare.

Example:

DIM cpt AS CPowerTime
cpt.NewDate(2019, 2, 2)
DIM cpt2 AS CPowerTime
cpt2.NewDate(1930, 12, 25)
print cpt.DaysDiff(cpt2)
' --or--
print cpt2.DaysDiff(cpt)

Calculates the days of difference between two dates.

FUNCTION DaysDiff (BYVAL nYear1 AS LONG, BYVAL nMonth1 AS LONG, BYVAL nDay1 AS LONG, _
   BYVAL nYear2 AS LONG, BYVAL nMonth2 AS LONG, BYVAL nDay2 AS LONG) AS LONG
Parameter Description
nYear1 A four digit year.
nMonth1 A month number (1-12).
nDay1 A day number (1-31).
nYear2 A four digit year.
nMonth2 A month number (1-12).
nDay2 A day number (1-31).

Example:

DIM cpt AS CPowerTime
print cpt.DaysDiff(2019, 2, 2, 1930, 12, 25)

DaysInMonth

Returns the number of days of this CPowerTime object.

FUNCTION DaysInMonth () AS LONG

Returns the number of days in the specified month.

FUNCTION DaysInMonth (BYVAL nMonth AS LONG, BYVAL nYear AS LONG) AS LONG
Parameter Description
nMonth A month number (1-12).
nYear A four digit year.

DayOfWeek

Returns the Day-of-Week component of the CPowerTime object. It is a numeric value in the range of 0-6 (representing Sunday through Saturday).

FUNCTION DayOfWeek () AS LONG

DayOfWeekString

Returns the Day-of-Week name of the CPowerTime object, expressed as a string (Monday, Tuesday...). The day name is appropriate for the locale, based upon the LCID parameter. If LCID is not given, the default LCID for the user is substituted.

FUNCTION DayOfWeekString (BYVAL lcid AS LCID = LOCALE_USER_DEFAULT) AS CWSTR

DayOfYear

Returns the day of the year, where Jan 1 is the first day of the year. If a parameter is omitted, the value stored in this CPowerTime object is assumed.

FUNCTION DayOfYear (BYVAL nYear AS LONG = 0, BYVAL nMonth AS LONG = 0, BYVAL nDay AS LONG = 0) AS LONG
Parameter Description
nYear A four digit year.
nMonth A month number (1-12).
nDay A day number (1-31).

DaysInYear

Returns the number of days in the specified year. If the year is omitted, the year of this CPowerTime object is assumed.

FUNCTION DaysInYear (BYVAL nYear AS LONG = 0) AS LONG
Parameter Description
nYear A four digit year.

Hour

Returns the Hour component of the CPowerTime object. It is a numeric value in the range of 0-23.

FUNCTION Hour () AS LONG

IsFirstDayOfMonth

Returns true if the date is the first day of the month; false, otherwise.

FUNCTION IsFirstDayOfMonth () AS BOOLEAN

IsLastDayOfMonth

Returns true if the date is the last day of the month; false, otherwise.

FUNCTION IsLastDayOfMonth () AS BOOLEAN

IsLeapYear

Determines if a given year is a leap year or not.

A leap year is defined as all years divisible by 4, except for years divisible by 100 that are not also divisible by 400. Years divisible by 400 are leap years. 2000 is a eap year. 1900 is not a leap year.

FUNCTION IsLeapYear (BYVAL nYear AS LONG = 0) AS BOOLEAN
Parameter Description
nYear A four digit year.

Return value

TRUE or FALSE.

JulianToGregorian

Converts a Julian date to a Gregorian date.

FUNCTION JulianToGregorian (BYVAL nJulian AS LONG, BYVAL nDay AS LONG, _
   BYVAL nMonth AS LONG, BYVAL nYear AS LONG) AS LONG
Parameter Description
nJulian The Julian date.
nDay Out. The day (1-31).
nMonth Out. The month (1-12).
nYear Out. The four digit year.

Minute

Returns the Minute component of the CPowerTime object. This is a numeric value in the range of 0-59.

FUNCTION Minute () AS LONG

Month

Returns the Month component of the CPowerTime object. It is a value in the range of 1-12.

FUNCTION Month () AS LONGç

MonthString

Returns the Month component of the CPowerTime object, expressed as a string (January, February...).

FUNCTION MonthString () AS CWSTR

MSecond

Returns the Millisecond component of the CPowerTime object. This is a numeric value in the range of 0-999.

FUNCTION MSecond () AS LONG

Second

Returns the Second component of the CPowerTime object. This is a numeric value in the range of 0-59.

FUNCTION Second () AS LONG

DateString

Retuns the date as a string based on the specified mask, e.g. "dd-MM-yyyy".

FUNCTION DateString (BYREF wszMask AS WSTRING, BYVAL lcid AS LCID = LOCALE_USER_DEFAULT) AS CWSTR
Parameter Description
wszMask A picture string that is used to form the date.
The format types "d", and "y" must be lowercase and the letter "M" must be uppercase.
For example, to get the date string "Wed, Aug 31 94", the application uses the picture string "ddd',' MMM dd yy".
lcid Optional. The language identifier used for the conversion. Default is LOCALE_USER_DEFAULT.

The following table defines the format types used to represent days.

Format type Meaning
d Day of the month as digits without leading zeros for single-digit days.
dd Day of the month as digits with leading zeros for single-digit days.
ddd Abbreviated day of the week, for example, "Mon" in English (United States).
dddd Day of the week.

The following table defines the format types used to represent months.

Format type Meaning
M Month as digits without leading zeros for single-digit months.
MM Month as digits with leading zeros for single-digit months.
MMM Abbreviated month, for example, "Nov" in English (United States).
MMMM Month value, for example, "November" for English (United States), and "Noviembre" for Spanish (Spain).

The following table defines the format types used to represent years.

Format type Meaning
y Year represented only by the last digit.
yy Year represented only by the last two digits. A leading zero is added for single-digit years.
yyyy Year represented by a full four or five digits, depending on the calendar used. Thai Buddhist and Korean calendars have five-digit years. The "yyyy" pattern shows five digits for these two calendars, and four digits for all other supported calendars. Calendars that have single-digit or two-digit years, such as for the Japanese Emperor era, are represented differently. A single-digit year is represented with a leading zero, for example, "03". A two-digit year is represented with two digits, for example, "13". No additional leading zeros are displayed.
yyyyy Behaves identically to "yyyy".

Return value

The formatted date.

TimeString

Retuns the time as a string based on the specified mask, e.g. "hh':'mm':'ss".

FUNCTION TimeString (BYREF wszMask AS WSTRING, BYVAL lcid AS LCID = LOCALE_USER_DEFAULT) AS CWSTR
Parameter Description
ft A FILETIME structure.
wszMask A picture string that is used to form the time.
lcid Optional. The language identifier used for the conversion. Default is LOCALE_USER_DEFAULT.

The application can use the following elements to construct a format picture string. If spaces are used to separate the elements in the format string, these spaces appear in the same location in the output string. The letters must be in uppercase or lowercase as shown, for example, "ss", not "SS". Characters in the format string that are enclosed in single quotation marks appear in the same location and unchanged in the output string.

Picture Meaning
h Hours with no leading zero for single-digit hours; 12-hour clock
hh Hours with leading zero for single-digit hours; 12-hour clock
H Hours with no leading zero for single-digit hours; 24-hour clock
HH Hours with leading zero for single-digit hours; 24-hour clock
m Minutes with no leading zero for single-digit minutes
mm Minutes with leading zero for single-digit minutes
s Seconds with no leading zero for single-digit seconds
ss Seconds with leading zero for single-digit seconds
t One character time marker string, such as A or P
tt Multi-character time marker string, such as AM or PM

Return value

The formatted time.

Format

Converts a CPowerTime object to a string.

FUNCTION Format (BYREF wszFmt AS WSTRING) AS CWSTR

Formatting codes:

Code Meaning
%a Abbreviated weekday name
%A Full weekday name
%b Abbreviated month name
%B Full month name
%c Date and time representation appropriate for locale
%d Day of month as decimal number (01 – 31)
%H Hour in 24-hour format (00 – 23)
%I Hour in 12-hour format (01 – 12)
%j Day of year as decimal number (001 – 366)
%m Month as decimal number (01 – 12)
%M Minute as decimal number (00 – 59)
%p Current locale's A.M./P.M. indicator for 12-hour clock
%S Second as decimal number (00 – 59)
%U Week of year as decimal number, with Sunday as first day of week (00 – 53)
%w Weekday as decimal number (0 – 6; Sunday is 0)
%W Week of year as decimal number, with Monday as first day of week (00 – 53)
%x Date representation for current locale
%X Time representation for current locale
%y Year without century, as decimal number (00 – 99)
%Y Year with century, as decimal number
%z, %Z Either the time-zone name or time zone abbreviation, depending on registry settings; no characters if time zone is unknown
%% Percent sign

The # flag may prefix any formatting code. In that case, the meaning of the format code is changed as follows.

  • %#a, %#A, %#b, %#B, %#p, %#X, %#z, %#Z, %#%: # flag is ignored.
  • %#c: Long date and time representation, appropriate for current locale. For example: "Tuesday, March 14, 1995, 12:41:29".
  • %#x* Long date representation, appropriate to current locale. For example: "Tuesday, March 14, 1995".
  • %#d, %#H, %#I, %#j, %#m, %#M, %#S, %#U, %#w, %#W, %#y, %#Y: Remove leading zeros (if any).

Remarks

Formats the value by using the format string which contains special formatting codes that are preceded by a percent sign (%).

Examples

print cft.Format("%A, %B %d, %Y %H:%M:%S")
DIM cft AS CPowerTime
cft = AfxLocalFileTime
print cft.Format("%A, %B %d, %Y %H:%M:%S")

GetAsFileTime

Returns the date and time as a FILETIME structure.

FUNCTION GetAsFileTime () AS FILETIME

GetAsJulianDate

Returns the date as a Julian date.

FUNCTION GetAsJulianDate () AS LONG

Converts a Gregorian date to a Julian date. The year must be a 4 digit year.

FUNCTION GetAsJulianDate (BYVAL nYear AS LONG, BYVAL nMonth AS LONG, BYVAL nDay AS LONG) AS LONG
Parameter Description
nYear A four digit year.
nMonth A month number (1-12).
nDay A day number (1-31).

GetAsSystemTime

Returns the date and time as a SYSTEMTIME structure.

FUNCTION GetAsSystemTime () AS SYSTEMTIME

DateSerial

Gets/sets the date and time as a FreeBasic date serial.

PROPERTY DateSerial () AS DOUBLE
PROPERTY DateSerial (BYVAL dTime AS DOUBLE)

Usage examples

DIM ct AS CPowerTime
ct.DateSerial = DateSerial(2019, 2, 4)
Print Format(ct.DateSerial, "yyyy/mm/dd") 
ct.DateSerial = DateValue("4/2/2019")
Print Format(ct.DateSerial, "yyyy/mm/dd") 
ct.DateSerial = TimeValue("11:59:59PM")
Print Format(dt, "hh:mm:ss")
ct.DateSerial = Now
Print Format(ct.DateSerial, "yyyy/mm/dd hh:mm:ss") 
ct.DateSerial = DateSerial(2005, 11, 28) + TimeSerial(7, 30, 50)
Print Format(ct.DateSerial, "yyyy/mm/dd hh:mm:ss") 

GetCurrentTime

Returns a CPowerTime object that represents the current system date and time.

FUNCTION GetCurrentTime () AS CPowerTime

GetFileTime

Returns the value of the CPowerTime object.

FUNCTION GetFileTime () AS LONGLONG

Example

DIM cft AS CPowerTime = CPowerTime().GetCurrentTime()
print cft.GetFileTime

NewDate

Sets a new date to this CPowerTime object.

The date component of the CPowerTime object is assigned a new value based upon the specified parameters. The time component is unchanged. If parameters are invalid, GetLastError will return ERROR_INVALID_PARAMETER.

SUB NewDate (BYVAL nYear AS LONG = 0, BYVAL nMonth AS LONG = 0, BYVAL nDay AS LONG = 0)
Parameter Description
nYear The new year. The valid values for this member are 1601 through 30827.
nMonth The new month. The valid values for this member are 1 through 12.
nDay The new day. The valid values for this member are 1 through 31.

NewTime

Sets a new time to this CPowerTime object.

The time component of the CPowerTime object is assigned a new value based upon the specified parameters. The date component is unchanged. If parameters are invalid, GetLastError will return ERROR_INVALID_PARAMETER.

SUB NewTime (BYVAL nHour AS LONG = 0, BYVAL nMinute AS LONG = 0, _
    BYVAL nSecond AS LONG = 0, BYVAL nMSecond AS LONG = 0)
Parameter Description
nHour The new hour. The valid values for this member are 1 through 23.
nMinute The new minute. The valid values for this member are 1 through 59.
nSecond The new second. The valid values for this member are 1 through 59.
nMSecond The new milliseond. The valid values for this member are 1 through 999.

Now

Assigns the current local date and time on this computer to this CPowerTime object.

SUB Now

NowUTC

Assigns the current Coordinated Universal date and time (UTC) to this CPowerTime object.

SUB NowUTC

SetFileTime

Sets the date and time of this CPowerTime object

FUNCTION SetFileTime (BYVAL nTime AS ULONGLONG)
Parameter Description
nTime The date and time expressed as a 64-bit value.

Today

Assigns the current local date on this computer to this CPowerTime object.

SUB Today

ToUTC

The CPowerTime object is converted to Coordinated Universal Time (UTC). It is assumed that previous value was in local time.

SUB ToUTC

ToLocalTime

The CPowerTime object is converted to local time. It is assumed that the previous value was in Coordinated Universal Time (UTC).

SUB ToLocalTime

WeekNumber

Returns the week number for a given date. The year must be a 4 digit year. If a parameter is omitted, the value stored in this CPowerTime object is assumed.

FUNCTION WeekNumber (BYVAL nYear AS LONG = 0, BYVAL nMonth AS LONG = 0, BYVAL nDay AS LONG = 0) AS LONG
Parameter Description
nYear A four digit year.
nMonth A month number (1-12).
nDay A day number (1-31).

WeekOne

Returns the first day of the first week of a year. If the year is omitted, the year of this CPowerTime object is assumed.

FUNCTION WeekOne (BYVAL nYear AS LONG = 0) AS LONG
Parameter Description
nYear A four digit year.

WeeksInMonth

Returns the number of weeks in the specified month. Will be 4 or 5. If the year and month are omitted, the values of this CPowerTime object are assumed.

FUNCTION WeeksInMonth (BYVAL nMonth AS LONG = 0, BYVAL nYear AS LONG = 0) AS LONG
Parameter Description
nnMonth A month number (1-12).
nYear A four digit year.

WeeksInYear

Returns the number of weeks in the year, where weeks are taken to start on Monday. Will be 52 or 53. The year must be a four figit year. If the year is omitted, the year of this CPowertime object is assumed.

FUNCTION WeeksInYear (BYVAL nYear AS LONG = 0) AS LONG
Parameter Description
nYear A four digit year.

Year

Returns the Year component of the CPowerTime object.

FUNCTION Year () AS LONG