Pascal中如何根据当前时间和日期在控制台中显示问候语
作者:佚名
上传时间:2023-04-25
运行软件:Free Pascal Compiler
软件版本:Free Pascal 3.0.4
版权申诉
该示例代码演示了如何在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
用户评论
相关推荐
Pascal中如何根据当前时间和日期在控制台中显示问候语
该示例代码演示了如何在Pascal中使用System.Time和System.Date单元来获取当前时间和日期,并根据获取到的信息在控制台中显示不同的问候语。program Greeting;us
Free Pascal 3.0.4
Free Pascal Compiler
2023-04-25 01:37
根据系统时间显示不同问候语代码
根据系统时间网页显示不同问候语代码~~~
TXT
0B
2019-04-29 22:22
如何在Pascal中获取当前日期和时间
介绍如何在Pascal中使用内置的Date/Time函数获取当前日期和时间。program GetDateTime;var Today: TDateTime; Now: TDateTim
Free Pascal 3.0.4
Free Pascal IDE
2023-05-18 03:24
javascript实现根据时间段显示问候语的方法
主要介绍了javascript实现根据时间段显示问候语的方法,涉及javascript时间与字符串的相关操作技巧,需要的朋友可以参考下
PDF
26KB
2020-10-27 12:47
在Ruby on Rails中显示当前时间和日期
本示例展示了在Ruby on Rails中使用内置的Time类来显示当前时间和日期的方法,同时使用了ERB模板语言和HTML代码将结果渲染为网页。# app/controllers/applicat
Ruby on Rails 6.1.3.2
Ruby on Rails
2023-04-24 15:23
C语言中如何获取当前日期和时间
本示例代码演示了如何在C语言中获取当前日期和时间,并进行格式化输出。通过调用time和localtime函数获取时间信息,再使用strftime函数进行格式化。#include <stdio.
GCC 4.8.4
Visual Studio Code
2023-04-18 08:57
新年搞笑问候语
新年搞笑问候语更新,通过使用这些祝福短信,能够拉近我们人与人之间距离,添加有点节日气氛,新年搞笑问...该文档为新年搞笑问候语,是一份很不错的参考资料,具有较高参考价值,感兴趣的可以下载看看
RAR
4KB
2020-12-17 11:36
如何在Oracle中查询当前时间和日期
本示例介绍如何使用Oracle查询当前时间和日期。首先,我们将使用SYSDATE函数获取当前日期和时间,然后使用TO_CHAR函数将其格式化为人类可读的形式。最后,将结果打印到控制台中。SELECT
Oracle 11g
Oracle SQL Developer
2023-03-21 09:59
如何在Emacs中插入当前日期和时间?
本示例代码演示了如何在Emacs中快捷地插入当前日期和时间,并将其精准地格式化输出。通过调用内置函数format-time-string,可以灵活地控制日期和时间的格式,以满足不同的需求。(defu
GNU Emacs 26.3
GNU Emacs
2023-04-20 20:05
如何在Dart中获取当前日期和时间
这篇文章将向你展示在Dart中获取当前日期和时间的方法,包括如何格式化时间和日期字符串。import 'package:intl/intl.dart';void main() { // 获取
Dart 2.14.2
VS Code
2023-05-22 19:19