如何将datetimepicker delphi 7转换成大写

最新推荐文章于 2019-04-23 14:20:00 发布

转载最新推荐文章于 2019-04-23 14:20:00 发布 · 1.1k 阅读

Delphi 专栏收录该内容

79 篇文章

订阅专栏

本文介绍了一个将西元年份、月份和日期转换成中文大写形式的Delphi程序函数。通过使用case语句，该函数能准确地将数字0-29转化为对应的中文大写字符，并进一步组合成完整的日期格式。

function NumToCStr(Num: Integer): String;
begin
  ReSult := '';
  case Num of
       0: ReSult := '零';
       1: ReSult := '壹';
       2: ReSult := '贰';
       3: ReSult := '叁';
       4: ReSult := '肆';
       5: ReSult := '伍';
       6: ReSult := '陆';
       7: ReSult := '柒';
       8: ReSult := '捌';
       9: ReSult := '玖';
      10: ReSult := '拾';
      11: ReSult := '拾壹';
      12: ReSult := '拾贰';
      13: ReSult := '拾叁';
      14: ReSult := '拾肆';
      15: ReSult := '拾伍';
      16: ReSult := '拾陆';
      17: ReSult := '拾柒';
      18: ReSult := '拾捌';
      19: ReSult := '拾玖';
      20: ReSult := '贰拾';
      21: ReSult := '贰拾壹';
      22: ReSult := '贰拾贰';
      23: ReSult := '贰拾叁';
      24: ReSult := '贰拾肆';
      25: ReSult := '贰拾伍';
      26: ReSult := '贰拾陆';
      27: ReSult := '贰拾柒';
      28: ReSult := '贰拾捌';
      29: ReSult := '贰拾玖';
      30: ReSult := '叁拾';
      31: ReSult := '叁拾壹';
  end;
end;

{在Button的OnClick 事件中输入以下代码}
procedure TForm1.Button1Click(Sender: TObject);
var
  SYear,SMonth,SDay,tmpYear: String; i: Integer;
begin
  SYear := FormatDateTime('YYYY',DateTimePicker1.Date);
  SMonth := FormatDateTime('MM',DateTimePicker1.Date);
  SDay := FormatDateTime('DD',DateTimePicker1.Date);
  tmpYear := '';
  for i := 0 to Length(SYear) do begin
      if SYear[i] in ['0','1','2','3','4','5','6','7','8','9'] then
      tmpYear := tmpYear + NumToCStr(StrToInt(SYear[i]));
  end;
  Edit1.Text := tmpYear + '年' + NumToCStr(StrToInt(SMonth)) +
  '月' + NumToCStr(StrToInt(SDay)) + '日';
end;