(03-02-17, 06:41 AM)silverlight كتب :هذا نفس الحل أعلاه بأسلوب مختلفPHP كود :
Dim dt As DateTime = DateTime.Now
Dim dateString As String = String.Concat(New String() {dt.Month.ToString(CultureInfo.CurrentCulture), "/", dt.Day.ToString(CultureInfo.CurrentCulture), "/", dt.Year.ToString(CultureInfo.CurrentCulture)})
Dim timeString As String = String.Concat(New String() {dt.Hour.ToString(CultureInfo.CurrentCulture), "/", dt.Minute.ToString(CultureInfo.CurrentCulture), "/", dt.Second.ToString(CultureInfo.CurrentCulture)})
Dim datetimeString As String = timeString & " " & dateString
Me.TextBox1.Text = datetimeString
PHP كود :
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dt As DateTime = DateTime.Now
Dim bidaya As New bidayaaDateTirm With {.Year = dt.Year, .Month = dt.Month, .Day = dt.Day, .Hour = dt.Hour, .Minute = dt.Minute, .Second = dt.Second}
Dim dateString As String = String.Concat(New String() {bidaya.Month.ToString(CultureInfo.CurrentCulture), "/", bidaya.Day.ToString(CultureInfo.CurrentCulture), "/", bidaya.Year.ToString(CultureInfo.CurrentCulture)})
Dim timeString As String = String.Concat(New String() {bidaya.Hour.ToString(CultureInfo.CurrentCulture), "/", bidaya.Minute.ToString(CultureInfo.CurrentCulture), "/", bidaya.Second.ToString(CultureInfo.CurrentCulture)})
Dim datetimeString As String = timeString & " " & dateString
Dim result As String = datetimeString
End Sub
End Class
Public Structure bidayaaDateTirm
Public Year As Integer
Public Month As Integer
Public Day As Integer
Public Hour As Integer
Public Minute As Integer
Public Second As Integer
End Structure
مشاء الله اخي الله يحفظك ويبارك فيك
لكن فيه مشكلة بحيث بعد اعادة الكتابة لا يظهر الصفر مثل الصورة
