تاریخ شمسی

[mahdi.fa]

یک برنامه می خواستم یکی بهم معرفی کند که سال جاری را به صورت جدا در یک تکست و ماه جاری را داخل یک تکست دیگر و روز جاری را داخل تکست سوم قراربدهد.ممنون از راهنمایی تون

[mafia5000]

یک برنامه می خواستم یکی بهم معرفی کند که سال جاری را به صورت جدا در یک تکست و ماه جاری را داخل یک تکست دیگر و روز جاری را داخل تکست سوم قراربدهد.ممنون از راهنمایی تون


Dim date_() As String
date_ = Split(Date, "/")
Text3.Text = date_(0)
Text2.Text = date_(1)
Text1.Text = date_(2)


از این کد هم میتونی استفاده کنی

Dim i As String
i = Now
Dim Y, M, D As String
Y = Format(i, "yyyy")
text1.Text = Y
M = Format(i, "mm")
text2.Text = M
D = Format(i, "dd")
text3.Text = D