unit1.cpp

<<C++Builder 6实用编程100例>>随书光盘

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        SYSTEMTIME *GTL;
        GTL=new SYSTEMTIME;
        GetLocalTime(GTL);
        Edit1->Text=String(GTL->wYear)+'-'+String(GTL->wMonth)+'-'+String(GTL->wDay);
        Edit2->Text=String(GTL->wHour)+':'+String(GTL->wMinute)+':'+String(GTL->wSecond);
        String Week[7]={"Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"};
        Edit3->Text=Week[GTL->wDayOfWeek];
}
//---------------------------------------------------------------------------/*SYSTEMTIME *STL;
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        SYSTEMTIME *STL;
        STL=new SYSTEMTIME;
        int i;
        int n;  //字符串长度
        //设置日期
        String date;
        date=Edit1->Text;
        Edit1->Text="";
        n=date.Length();
        for(i=1;date[i]!='-';i++)        //忽略"-"
                Edit1->Text=Edit1->Text+date[i];
        STL->wYear=StrToInt(Edit1->Text);
        Edit1->Text="";
        for(i++;date[i]!='-';i++)
                Edit1->Text=Edit1->Text+date[i];
        STL->wMonth=StrToInt(Edit1->Text);
        Edit1->Text="";
        for(i++;i<=n;i++)
                Edit1->Text=Edit1->Text+date[i];
        STL->wDay=StrToInt(Edit1->Text);
        Edit1->Text=date;
        //设置时间
        String time;
        time=Edit2->Text;
        Edit2->Text="";
        n=time.Length();
        for(i=1;time[i]!=':';i++)        //忽略":"
                Edit2->Text=Edit2->Text+time[i];
        STL->wHour=StrToInt(Edit2->Text);
        Edit2->Text="";
        for(i++;time[i]!=':';i++)
                Edit2->Text=Edit2->Text+time[i];
        STL->wMinute=StrToInt(Edit2->Text);
        Edit2->Text="";
        for(i++;i<=n;i++)
                Edit2->Text=Edit2->Text+time[i];
        STL->wSecond=StrToInt(Edit2->Text);
        Edit2->Text=time;
        if(SetLocalTime(STL))
                ShowMessage("日期及时间设置成功！");
        else
                ShowMessage("日期及时间设置失败！");
}
//---------------------------------------------------------------------------