zoukankan      html  css  js  c++  java
  • delphi array应用 DayOfWeek星期几判断

    //array应用 DayOfWeek星期几判断 
    procedure TForm1.Button1Click(Sender: TObject);
    var
        days:array[1..7] of string;
        todayIs:string;
    begin
        days[1] := '日 ';
        days[2] := '一 ';
        days[3] := '二 ';
        days[4] := '三 ';
        days[5] := '四 ';
        days[6] := '五 ';
        days[7] := '六 ';
        todayIs := '星期 '+days[DayOfWeek(Now)];
        showMessage(todayIs);
    end;




  • 相关阅读:
    2
    1
    java10
    java8
    java9
    java7
    java6
    java5
    java4
    java3
  • 原文地址:https://www.cnblogs.com/xe2011/p/3876388.html
Copyright © 2011-2022 走看看