名前 題名 ▼ Mr.XRAYさん > 実装されている関数を使用するとすると， > > [日付および時刻のサポート - RAD Studio] > http://docwiki.embarcadero.com/RADStudio/XE8/ja/%E6%97%A5%E4%BB%98%E3%81%8A%E3%82%88%E3%81%B3%E6%99%82%E5%88%BB%E3%81%AE%E3%82%B5%E3%83%9D%E3%83%BC%E3%83%88 > > にある CurrentYear 関数でしょうか． > http://docwiki.embarcadero.com/Libraries/XE8/ja/System.SysUtils.CurrentYear > > TDateTime.CurrentDateTime > TDateTime の変数に now が代入されていれば， > > http://docwiki.embarcadero.com/Libraries/XE8/ja/System.DateUtils.YearOf > の YearOf でしょうか． > > 年の他に月，日も取得したいのであれば > DecodeDate 関数でしょうか， > > http://docwiki.embarcadero.com/Libraries/XE8/ja/System.SysUtils.DecodeDate > > 直接，文字列として取得したいのであれば， > FormatDateTime を使ってしまうという手もあります． > > procedure TForm1.Button2Click(Sender: TObject); > var > LTheText : String; > begin > LTheText := FormatDateTime('YYYY', Now); > ShowMessage(LTheText); > end; > > > 以上． > 何故，こんなにいろいろ書くかと言いますと， > 現在の西暦だけを取得するアプリケーションを作るということは，まず， > 考えにくいです． > 何らかの日付を扱うアプリで，西暦だけを取得するということは考えられます． > したがって，いろいろな場面が考えられる．ということでございます． GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link