کد نمایش تاریخ

برای نمایش کد بر روی ادامه مطلب کلیک کنید

کد برای نمایش روز/ماه/سال (تاریخ):

روز=Day

ماه=Month

سال=Year

Private Sub Command1_Click()
w = Day(Date) & "/" & Month(Date) & "/" & Year(Date)
Label1.Caption = w
End Sub

کد برای نمایش روز(تاریخ):

Private Sub Command1_Click()
e = Text1.Text
r = Day(e)
Label1.Caption = (r)
End Sub

کد برای نمایش ماه(تاریخ):

Private Sub Command1_Click()
e = Text1.Text
r = Month(e)
Label1.Caption = (r)
End Sub

کد برای نمایش سال(تاریخ):

Private Sub Command1_Click()
e = Text1.Text
r = Year(e)
Label1.Caption = (r)
End Sub