转换日期格式/加密日期

时间:2017-08-29 06:49:57

标签: winforms vb.net-2010

我是VB.NET编码的新手。我有一个问题,请回答这个问题。

我制作了一个程序,将当前日期插入数据库。但是当它显示日期时,其格式为dd/MM/yyyy即。 01/01/2018。我希望日期显示为A/A/BJAH,其中 1 = A 2 = B 3 = C 4 = D等

1 个答案:

答案 0 :(得分:1)

正如我在评论中所说,您必须将numbers转换为alphabets。这是一个简单的功能,可以实现您的目标:

Function EncryptDate(Datevalue As String) As String
  Dim str As String = Datevalue
  str = str.Replace(1, "A")
  str = str.Replace(2, "B")
  str = str.Replace(3, "C")
  str = str.Replace(4, "D")
  str = str.Replace(5, "E")
  str = str.Replace(6, "F")
  str = str.Replace(7, "G")
  str = str.Replace(8, "H")
  str = str.Replace(9, "I")
  str = str.Replace(0, "J")
  Return str
End Function

因此MessageBox.Show(EncryptDate(Now.ToString("dd/MM/yyyy")))会给出

  

BI / JH / BJAG