ßËÑÉ ÇáÃÓÆáÉ Ýí ãÎÊáÝ ÇáãäÊÏíÇÊ Úä ãæÖæÚ ßíÝ ÇÌÚá ÈÑäÇãÌí íÃÎÐ ÇáÊÇÑíÎ ãä ÇáÓíÑÝÑ ÈÏáÇð ãä ÌåÇÒ ÇáãÓÊÎÏã æÇÍÈÈÊ Çä ÇæÖÍ ááÃÎæÇä ÇáßÑÇã ÇáØÑíÞå ÈÃÓÊÎÏÇã ÇáÝíÌæá ãÚ Çá (SQL SERVER)

**************************************************
1- ÇÐåÈ Çáì ÇáÞÇÚÏÉ ÇáãÑÇÏ ÇáÇÊÕÇá ÈåÇ Ýí Çá (SQL)
2- ÇÎÊÑ ÇÍÏ ÇáÌÏÇæá Ëã ÇÖÝ Çáíå ÍÞá Óãå È(SERVERDATE) ÇÌÚá ÎÇÕíÉ (DATATYPE) È (DATETIME) Ëã Ýí ÎÇäÉ (Default Value) ÇßÊÈ ÇáÇÊí
( GETDATE () )
3- ÖÚ ÊÇíãÑ Úáì ÇáäãæÐÌ ÇáãÑÇÏ ÇÙåÇÑ ÇáÊÇÑíÎ Ëã ÖÚ ÇáßæÏ ÇáÇÊí

Private Sub Timer1_Timer()
Dim strSql As String
       Dim Millisecs As Integer
       Dim Hundredths As Integer
       Set RS = New ADODB.Recordset
       cn.Execute "UPDATE [color=crimson]tablename[/color] SET SERVERDATE = GetDate()"
       strSql = "SELECT SERVERDATE, DATEPART(MS,SERVERDATE)AS SQLsDP FROM [color=red]tablename[/color]"
       RS.Open strSql, cn
       Millisecs = GetMilliseconds(RS("SERVERDATE"))
End Sub

Function GetMilliseconds(ByVal varDateTime As Variant) As Long
       Dim decTime As Variant
       Dim mydate1 As String
       Calendar = vbCalHijri
       decTime = CDec(varDateTime)
       mydate1 = varDateTime
       [color=red]Label3.Caption[/color] = Format(mydate1, "yyyy/mm/dd")
End Function