獲取當前月份作爲Pascal中的數字

我有一項任務要做，其中涉及本月是否有生日。我不是要求你「做我的作業」，但是我要問的是：有沒有辦法讓當前月份在帕斯卡爾（特別是拉撒路帕斯卡爾）從1到12的數字？然後我可以把這個數字與文件中的記錄進行比較。獲取當前月份作爲Pascal中的數字

感謝您的幫助，

詹姆斯

2011-03-30 Bojangles

我不知道拉撒路，但大多數帕斯卡爾實現提供：

procedure GetDate(var Year, Month, Day, DayofWeek: Word);

2011-03-30 20:22:45 wallyk

是的，我看到在我的旅行周圍的interblag。我沒有得到的是如何實際使用它:-P – Bojangles 2011-03-31 07:15:05

var y，m，d，dow：word;開始GetDate（y，m，d，dow）; writeln（'當前日期是'，y：1，' - '，m：1，' - '，d：1，'且星期幾是'，'dow：1）; end; – wallyk 2011-03-31 15:49:53

您可以使用此代碼：

DecodeDate(Date:TDateTime, Year, Month, Day: word);

我建議你檢查dateutils單位。它爲所有「日期」或「時間」問題提供全面支持。

2011-05-11 06:58:56 Manny

曼尼是對的。我只是試圖在拉撒路，通過編寫這個程序：

procedure Dates; 
var y, m, d: word; 
begin 
    DecodeDate(Date, y, m, d); 
end;

日期是SysUtils單元（datih.inc）函數返回當前本地日期。 DecodeDate是一個接受TDateTime並將var年份的日曆值返回給var參數的過程。月和日。當然你需要全部3個，但只需使用你需要的那個。

2012-05-11 03:59:41

回答