|
|
| A simple example |
program Project1;
{$APPTYPE CONSOLE}
uses
System.Globalization;
var
myDate : DateTime;
gbCulture : System.Globalization.CultureInfo;
gbCal : System.Globalization.Calendar;
begin
// Set up a Great Britain English culture & calendar
gbCulture := System.Globalization.CultureInfo.Create('en-GB');
gbCal := gbCulture.Calendar;
// Create a DateTime object : use the gbCalendar to control the
// conversion of year, month and day parameter values into the
// number of ticks since 1st January 0001 AD (the internal value)
// 31st December 2004
myDate := DateTime.Create(2004, 12, 31, gbCal);
// Display the date
Console.WriteLine(myDate.ToLongDateString);
Console.WriteLine;
Console.WriteLine('Adding 2 weeks : ');
Console.WriteLine;
// Add 2 weeks to the date
myDate := gbCal.AddWeeks(myDate, 2);
// Display the date
Console.WriteLine(myDate.ToLongDateString);
Console.ReadLine;
end.
| | Show full unit code | 31 December 2004
Adding 2 weeks :
14 January 2005
|
| |
|
|
|