[طالب برمجة]

تحويل عدد الى تاريخ

PHP كود :

Dim a As Integer
a = Val(TextBox1.Text)  - 180

TextBox2.Text = a

Dim y, m, d As Integer
y = Math.Floor(a / 365)
m = Math.Floor((a Mod 365) / 30)
d = a Mod 30

Dim s As String = (y & "سنة، ") & (m & "شهر، ") & (d & "يوم")

TextBox3.Text = s