//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "DateTime.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
// BeginExample: DateTime
// Variable: SysUtils.CurrencyFormat
// Variable: SysUtils.DateSeparator
// Variable: SysUtils.ShortDateFormat
// Routine: SysUtils.DateToStr

// BeginCode
/*
This example uses a label and a button on a form. When the
user clicks the button, the current date displays in the
caption of the label. Because some of the date variables are
assigned new values, the format of the date in the label
changes. For example, if the date is 9/15/94, the date
displays as 9-15-1994.
*/
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  DateSeparator = '-';
  ShortDateFormat = "m/d/yyyy";
  Label1->Caption = DateToStr(Date());
}
// EndCode
// EndExample: DateTime
//---------------------------------------------------------------------------
