كيف اجعل صغة التاريخ الهجري في برنامجي المرفق الى الصيغه التاليه : 1425/02/02 ؟؟؟

هذا التعديل

Private Sub viwgrd()

	CLEARVIEW

	Dim i As Integer, k As Integer
	i = 0
	Do Until rs.EOF
		i = i + 1
		grd.Rows = 1 + i
		With rs
			grd.Row = i
			For k = 0 To 3
				grd.Col = k
			Next
			grd.TextMatrix(i, 0) = rs(0) & ""
			grd.TextMatrix(i, 1) = Format(rs(1), "YYYY/MM/DD") ' rs(1) & " "
			grd.TextMatrix(i, 2) = rs(2) & ""
			grd.TextMatrix(i, 3) = rs(3) & ""

			.MoveNext
		End With

	Loop

End Sub

alimf كتب:

هذا التعديل

Private Sub viwgrd()

	CLEARVIEW

	Dim i As Integer, k As Integer
	i = 0
	Do Until rs.EOF
		i = i + 1
		grd.Rows = 1 + i
		With rs
			grd.Row = i
			For k = 0 To 3
				grd.Col = k
			Next
			grd.TextMatrix(i, 0) = rs(0) & ""
			grd.TextMatrix(i, 1) = Format(rs(1), "YYYY/MM/DD") ' rs(1) & " "
			grd.TextMatrix(i, 2) = rs(2) & ""
			grd.TextMatrix(i, 3) = rs(3) & ""

			.MoveNext
		End With

	Loop

End Sub

-----------------------------------------------------------------------------------------------------------------------------------------------

استاذي العزيز

السلام عليكم ورحمة وبركاته

استاذي العزيز احب ان اقدم لك جزيل الشكر والتقدير والله يحفظكم ويرعاكم ويجعل ذلك في موزاين حسناتكم

ولكم مني فائق الاحترم