تحويل التاريخ الي تكست
أولا يتم تحويل التاريخ الي مصفوفة Private Function ConvertDateTimeToArray ( dt As DateTime ) As String () Return New List( Of String ) From { dt . Year Mod 10000 , dt . Month Mod 100 , dt . Day Mod 100 , dt . Hour Mod 100 , dt . Minute Mod 100 , dt . Second Mod 100 }. ToArray End Function ثانيا نقوم تحويل المصفوفة الي تكست Private Function ConvertDateTimeToString ( dt As DateTime ) As String Dim result As String = "" For Each s As String In ConvertDateTimeToArray ( dt ) result += s result += " " c Next Return result . TrimEnd ( " " c ) End Function الإستخدام Dim s As String = ConvertDateTimeToString ( DateTime . Now )