转换日期格式/加密日期

Question

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

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

Answer 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