Question

我是Pascal编程的新手，我花了一整天的时间尝试将字符串转换为有效日期，我以后可以用它来减去另一个日期，以发现两个日期之间的天数。你能帮帮我吗

我开始使用此代码尝试将以字符串格式输入的第一个日期转换为可用于计算的日期：

program TryDate;

Var
date1: TDateTime;
thedate:string;

Begin
Writeln ('Enter date');
Readln (thedate);
date1:=StrToDate (thedate);
Writeln ('The date is ',date1);
end.


The program's basic structure can be seen here:

Begin
Writeln ('Enter customer last name');
readln (clname);
Writeln ('Enter customer first name');
readln (cfname);
Writeln ('Enter Dvd Title');
readln (dvdtit);
Writeln ('Enter Due Date');
readln (dued);
Writeln ('Enter Actual Date Returned');
readln (adret);
daysover:=adret-dued;
readln;
end.

我希望我能进一步扩展该程序，但在尝试其他组件之前，我试图让这个小部分工作。

非常感谢简单的说明和示例或可能的解决方案。

Answer 1

您尚未指定到目前为止您所拥有的代码存在的问题。我能看到的唯一问题是，如果您的实际代码与您发布的内容完全相同，那就是您没有指定uses sysutils;，如下所示：

program TryDate;

uses
  sysutils;

Var
  date1: TDateTime;
  thedate: string;

Begin
  Writeln ('Enter date');
  Readln (thedate);
  date1 := StrToDate (thedate);
  Writeln ('The date is ',date1);
end.

StrToDate函数是sysutils单元的一部分，您需要通过uses将其包含在程序中，以便能够使用其程序，函数，类型等。

在Lazarus Pascal中将字符串转换为日期

1 个答案: