|
|
| 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)
// 10:30:13.123 on 8th December 2004
myDate := DateTime.Create(2004, 12, 8, 10, 30, 15, 123, gbCal);
// Display the date and time
Console.WriteLine(myDate.ToString('hh:mm:ss.fff'));
Console.WriteLine;
Console.WriteLine('Adding 77 Milliseconds : ');
Console.WriteLine;
// Add 77 Milliseconds to the date
myDate := gbCal.AddMilliSeconds(myDate, 77);
// Display the date and time
Console.WriteLine(myDate.ToString('hh:mm:ss.fff'));
Console.ReadLine;
end.
| | Show full unit code | 10:30:15.123
Adding 77 Milliseconds :
10:30:15.200
|
| |
|
|
|