Pascal中如何根据当前时间和日期在控制台中显示问候语

该示例代码演示了如何在Pascal中使用System.Time和System.Date单元来获取当前时间和日期，并根据获取到的信息在控制台中显示不同的问候语。

program Greeting;
uses System.SysUtils;

var
  CurrentTime: TTime;
  CurrentDate: TDate;
  GreetingMsg: String;

begin
  CurrentTime := Time;
  CurrentDate := Date;

  if (CurrentTime >= EncodeTime(0, 0, 0, 0)) and (CurrentTime <= EncodeTime(12, 0, 0, 0)) then
    GreetingMsg := '早上好!'
  else if (CurrentTime > EncodeTime(12, 0, 0, 0)) and (CurrentTime <= EncodeTime(18, 0, 0, 0)) then  
    GreetingMsg := '下午好!'
  else
    GreetingMsg := '晚上好!';

  writeln('今天是: ', FormatDateTime('yyyy年m月d日', CurrentDate));
  writeln(GreetingMsg);
end.

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com