كود:

Label1.Caption = DateTime

كود:

Date : 07/07/2003
Date$ : 07-07-2003
Now : 07/07/2003 04:37:21 ص
Time : 04:38:30 ص
Time$ : 16:38:46

                     Text1.Text = Second(Now)

كود:

                      Dim A1
A1 = "12/11/1424"
Msgbox Day(A1)

كود:

                      VBA.Calendar = vbCalHijri

                      VBA.Calendar = vbCalGreg

                      Text1.Text = DateTime.Date

كود:

Public Function TransDate(thedate As Date, TypeTrans As Integer) As String
Dim TempDate As String, MD As Date, a As String

If TypeTrans = 1 Then
    VBA.Calendar = vbCalHijri
    TempDate = CStr(thedate)
    TransDate = TempDate
    VBA.Calendar = vbCalGreg
    Text1 = TransDate
Else
    a = CStr(thedate)
    VBA.Calendar = vbCalHijri
    MD = CDate(a)
    VBA.Calendar = vbCalGreg
    TransDate = CStr(Format(MD, "yyyy/mm/dd"))
    txtdateofenglish = TransDate
End If

End Function

ومن ثم في زر الأمر ( للتحويل من ميلادي إلى هجري )
Dim Date1
Date1 = TransDate(Text1, 1)
MsgBox Format(Date1, "DD/MM/YYYY")
وللتحويل من هجري إلى ميلادي :
Dim Date1
Date1 = TransDate(Text1, 2)
MsgBox Format(Date1, "DD/MM/YYYY")

كود:

Dim Day_Now As Integer
Day_Now = Weekday(Date)
If Day_Now = 1 Then Label1 = "الأحد"
If Day_Now = 2 Then Label1 = "الاثنين"
If Day_Now = 3 Then Label1 = "الثلاثاء"
If Day_Now = 4 Then Label1 = "الأربعاء"
If Day_Now = 5 Then Label1 = "الخميس"
If Day_Now = 6 Then Label1 = "الجمعة"
If Day_Now = 7 Then Label1 = "السبت"

                      Dim x, y, w, m
Private Sub Form_Load()
y = Me.Height / 2 'تحديد نقطة منتصف الفورم
x = Me.Width / 2 'تحديد نقطة منصف الفورم
w = 1700
End Sub

Private Sub Timer1_Timer()
Me.Cls 'مسح ما في الفورم
DrawWidth = 4: Me.Circle (x, y), w 'رسم دائرة قطرها 1700 هي قيمة w 
DrawWidth = 4: Me.Line (x, y)-(x + (900 * Sin(Hour(Now) * 3.1415 / 6)), y - (900 * Cos(Hour(Now) * 3.1415 / 6))), &HFFFF00 ' رسم عقرب الساعات
DrawWidth = 3: Me.Line (x, y)-(x + (1200 * Sin(Minute(Now) * 3.1415 / 30)), y - (1200 * Cos(Minute(Now) * 3.1415 / 30))), vbYellow 'رسم عقرب الدقائق
DrawWidth = 1: Me.Line (x, y)-(x + (1500 * Sin(Second(Now) * 3.1415 / 30)), y - (1500 * Cos(Second(Now) * 3.1415 / 30))), vbRed 'رسم عقرب الثواني
End Sub

كود:

                      Declare Function GetTickCount Lib "kernel32" () As Long

كود:

                      Dim Minutes As Long
Dim Hours As Long
Dim My_Time As Long

My_Time = GetTickCount
Hours = ((lngCount / 1000) / 60) / 60
Minutes = ((lngCount / 1000) / 60) Mod 60

MsgBox Hours & ":" & Minutes

كود:

Calendar1.Value = DateTime.Calendar

كود:

Text4 = Text4 + 1
If Text4 = 9 Then
Text3 = Text3 + 1
Text4 = 0
End If
If Text3 = 59 Then
Text2 = Text2 + 1
Text3 = 0
End If
If Text2 = 59 Then
Text1 = Text1 + 1
Text2 = 0
End If

كود:

Timer1.Enabled = False

كود:

Text1.Text = 0 : Text2.Text = 0 : Text3.Text = 0 : Text4.Text = 0

كود:

My_Time = Text1 + ( Text2 * 60 ) + ( Text3 * 60 *60 )
Timer1.Enabled = True

كود:

My_Time = My_Time - 1
If My Time <= 0 Then
    Timer1.Enabled = False
    Ring
End If

كود:

Timer1.Enabled = False

كود:

MsgBox DateTime.DateValue(Now + 2)

كود:

Text1.Text = DateAdd ( "اضافة إلى","العدد","اضافة")

كود:

Text1.Text = DateAdd ("D",2,Now)

كود:

Msgbox DateDiff("M","12/11/2001","11/08/2003)

كود:

Msgbox MonthName(4)