برای تبدیل تاریخ میلادی به شمسی من این کد را در یک تایمر نوشتم شما خودت لیبل ها رو اضافه کن
Private Sub Timer1_Timer()
Dim nr As String
midat = Date$
miyear = Val(Right(midat, 2)) + 2000
mimon = Val(Left(midat, 2))
miday = Val(Mid(midat, 4, 2))
shyear = miyear - 621
If miyear Mod 4 = 0 Then
i = 1
Else
i = 0
End If
If mimon = 1 Then
midays = miday
End If
If mimon = 2 Then
midays = miday + 31
End If
If mimon = 3 Then
midays = miday + 59 + i
End If
If mimon = 4 Then
midays = miday + 90 + i
End If
If mimon = 5 Then
midays = miday + 120 + i
End If
If mimon = 6 Then
midays = miday + 151 + i
End If
If mimon = 7 Then
midays = miday + 181 + i
End If
If mimon = 8 Then
midays = miday + 212 + i
End If
If mimon = 9 Then
midays = miday + 243 + i
End If
If mimon = 10 Then
midays = miday + 273 + i
End If
If mimon = 11 Then
midays = miday + 304 + i
End If
If mimon = 12 Then
midays = miday + 334 + i
End If
If shyear Mod 4 = 0 Then
aa = 366
Else
aa = 365
End If
shdays = midays - 79
If shdays <= 0 Then
shdays = shdays + aa
shyear = shyear - 1
End If
If shdays <= 186 Then
shmon = 1
While shdays > 31
shdays = shdays - 31
shmon = shmon + 1
Wend
Else
shmon = 7
shdays = shdays - 186
While shdays > 30
shdays = shdays - 30
shmon = shmon + 1
Wend
End If
hafteh = WeekDay(Date)
If hafteh = 1 Then
nr = "یکشنبه"
End If
If hafteh = 2 Then
nr = "دوشنبه"
End If
If hafteh = 3 Then
nr = "سه شنبه"
End If
If hafteh = 4 Then
nr = "چهارشنبه"
End If
If hafteh = 5 Then
nr = "÷نجشنبه"
End If
If hafteh = 6 Then
nr = " جمعه"
End If
If hafteh = 7 Then
nr = "شنبه"
End If
Label1.Caption = Trim(shyear) + "/" + Trim(shmon) + "/" + Trim(shdays)
Label2.Caption = nr
shy = Val(shyear) Mod 1300
Label8.Caption = Trim(shy) + Trim(shmon) + Trim(shdays)
Label5.Caption = Date
Label6.Caption = Time$
End Sub
