globalvar.~pa

一个典当行的业务管理系统程序

unit GlobalVar;

interface
uses
    SysUtils,Classes,Forms,Dialogs,ChooseDays;
const
     OutDays=10;
     OpertorLimit='系统管理员';
var
   DeadRate,TimeOutRate:Double;
   DeadLimit,PawnLimit:Integer; //典当期限
   MaxTicketCode:string;
   gHeadCode,gTailCode:string;
   RunMonthDays:integer;      //从选择闰月天数画面返回的闰月天数
   SysYear,SysMonth,SysDay:word;//进入新当前显示确认系统时间画面后退出此画面后返回的系统时间
Type
     TDayClass=Class(Tobject)
     Public
          Function GetDays(ThisMonth:integer;ThisDay:integer):integer;
     end;
implementation

Function TDayClass.GetDays(ThisMonth:integer;ThisDay:integer):integer;
type
    TMonthSet=set of 1..12;
var
   Set1,Set2:TMonthSet;
   //frmChooseDays:TfrmChooseDays;

begin
     Set1:=[1,3,5,8,10,12];
     Set2:=[4,6,9,11];
     if ThisMonth in Set1 then
     begin
          if ThisDay=31 then
          begin
               GetDays:=30;
          end
          else
              GetDays:=31;
     end;
     if ThisMonth=7 then
     begin
          GetDays:=31;
     end;
     if ThisMonth in Set2 then
     begin
          if ThisDay=30 then
          begin
               GetDays:=31;
          end
          else
              GetDays:=30;
     end;
     if ThisMonth=2 then
     begin
          //frmChooseDays:=TfrmChooseDays.Create(nil);
          //frmChooseDays.ShowModal;
          //frmChooseDays.Free;
          GetDays:=28;//RunMonthDays;
     end;
end;
end.