chilkat.SYSTEMTIME in Perl

Documents the SYSTEMTIME structure in Perl.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();


#  Instantiate a new email object.
#  It will automatically contain a Date header field
#  with the current date/time.
$email = new chilkat::CkEmail();

#  
# Create a chilkat.SYSTEMTIME object.
$sysTime = new chilkat::SYSTEMTIME();

# Fill it with the LocalDate
$email->get_LocalDate($sysTime);

# Print the fields
# The year. The valid values for this member are 1601 through 30827.
print $sysTime->{wYear} . "\r\n";
# Month: 1=Jan, 2=Feb, 3=Mar, 4=Apr, etc.
print $sysTime->{wMonth} . "\r\n";
# Day-of-week: 0=Sunday, 1=Monday, ... 6=Saturday
print $sysTime->{wDayOfWeek} . "\r\n";
# Day: 1 .. 31
print $sysTime->{wDay} . "\r\n";
# Hour: 0 .. 23
print $sysTime->{wHour} . "\r\n";
# Minute: 0 .. 59
print $sysTime->{wMinute} . "\r\n";
# Second: 0 .. 59
print $sysTime->{wSecond} . "\r\n";
# Millisec: 0 .. 999
print $sysTime->{wMilliseconds} . "\r\n";

$x = 1;
print $x . "\r\n";