Home  |  Delphi .net Home  |  System.Globalization.Calendar  |  ToDateTime Method
ToDateTime  
Method  
Builds a DateTime object from year, month, day and time values
Calendar Class
System.Globalization NameSpace
CF1.  Function ToDateTime ( Year:IntegerYear : Integer; Month : Integer; Day : Integer; Hour : Integer; Minute : Integer; Second : Integer; MilliSeconds : Integer; ) : DateTime ;
CF2.  Function ToDateTime ( Year:IntegerYear : Integer; Month : Integer; Day : Integer; Hour : Integer; Minute : Integer; Second : Integer; MilliSeconds : Integer; Era : Integer; ) : DateTime;
CF : Methods with this mark are Compact Framework Compatible
Description
The ToDateTime method takes individual Year, Month, Day, Hour, Minute, Second, MilliSeconds and optionally Era parameter values.
 
These values are treated according to the current Calendar culture. Different cultures have days in the month, different year bases and so on.
 
For example, in the Hebrew Calendar, there are between 353 and 355 days per common year, and 383 to 385 days in a leap year.
References
CultureInfo
Microsoft MSDN Links
System.Globalization
System.Globalization.Calendar
 
 
A simple example
// Full Unit code.
// -------------------------------------------------------------
// Create a new WinForm application, double click the form to
// create an OnLoad event, and then replace the WinForm unit
// with this text.
 
unit WinForm;
 
interface
 
uses
  System.Drawing, System.Collections, System.ComponentModel,
System.Windows.Forms, System.Data;
 
type
  TWinForm = class(System.Windows.Forms.Form)
  \{REGION 'Designer Managed Code'\} // Note that REGION and ENREGION should be prefixed by a dollar sign
  strict private
    ///
    /// Required designer variable.
    ///

    Components: System.ComponentModel.Container;
    ///
    /// Required method for Designer support - do not modify
    /// the contents of this method with the code editor.
    ///

    procedure InitializeComponent;
    procedure TWinForm_Load(sender: System.Object; e: System.EventArgs);
  {ENDREGION}
  strict protected
    ///
    /// Clean up any resources being used.
    ///

    procedure Dispose(Disposing: Boolean); override;
  private
    { Private Declarations }
  public
    constructor Create;
  end;
 
  [assembly: RuntimeRequiredAttribute(TypeOf(TWinForm))]
 
implementation
 
\{REGION 'Windows Form Designer generated code'\}
///
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
///

 
 
procedure TWinForm.InitializeComponent;
begin
  //
  // TWinForm
  //
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(5, 13);
  Self.ClientSize := System.Drawing.Size.Create(292, 266);
  Self.Name := 'TWinForm';
  Self.Text := 'WinForm';
  Include(Self.Load, Self.TWinForm_Load);
end;
{ENDREGION}
 
procedure TWinForm.Dispose(Disposing: Boolean);
begin
  if Disposing then
  begin
    if Components <> nil then
      Components.Dispose();
  end;
  inherited Dispose(Disposing);
end;
 
constructor TWinForm.Create;
begin
  inherited Create;
  //
  // Required for Windows Form Designer support
  //
  InitializeComponent;
  //
  // TODO: Add any constructor code after InitializeComponent call
  //
end;
 
procedure TWinForm.TWinForm_Load(sender: System.Object; e: System.EventArgs);
program Project1;
{$APPTYPE CONSOLE}

uses
  System.Globalization;

var
  gbCulture : System.Globalization.CultureInfo;
  gbCal     : System.Globalization.Calendar;

  myDate    : DateTime;

begin
  // Set up a Great Britain English culture & calendar
  gbCulture := System.Globalization.CultureInfo.Create('en-GB');
  gbCal     := gbCulture.Calendar;

  // Create a DateTime object directly
  myDate    := gbCal.ToDateTime(2004, 12, 31, 12, 59, 59, 999);

  // Display this date
  Console.WriteLine(myDate.ToString('hh:mm:ss.fff on dddd dd MMMM yyyy'));

  Console.ReadLine;
end.
 
end.
Hide full unit code
  12:59:59.999 on Friday 31 December 2004
 
 
Delphi Programming © Neil Moffatt All rights reserved.  |  Contact the author