اكتب أوامر برنامج بلغة فيجول بيسك لإدخال وقت بصيغة 24 ساعة وتحويلها الى صيغة 12 ساعة وإلحاقها بعبارة “صباحاً” أو “مساء

اكتب أوامر برنامج بلغة فيجول بيسك لإدخال وقت بصيغة 24 ساعة وتحويلها الى صيغة 12 ساعة وإلحاقها بعبارة “صباحاً” أو “مساء

في ضوء مادرستم اعزائي الطلاب والطالبات سنعرض عليكم من منصة موقع الراقي دوت كوم كل اجابات اسألتكم وكل حلول الامتحانات والواجبات المنزلية والتمارين لكافة المواد الدراسية 1442 -2020 إجابة السؤال هي :

اكتب أوامر برنامج بلغة (فيجول بيسك) لإدخال وقت بصيغة (24) ساعة وتحويلها الى صيغة (12) ساعة وإلحاقها بعبارة “صباحاً” أو “مساء”.

إجابة السوال هي كالتالي

Dim a As Long

a = TextBox1.Text

If a <12 Then

Label1.Text = a.tostring + “:00صباحا”

Else

a = a – 12

Label1.Text = a.tostring + “:مساء”

EndIf