Private Sub Command1_Click()
Dim a
Dim b
b = Year(Date)
Text3 = Format(Text1, "dd/mm/yyyy")
Text4 = Text3 & b
a = DateDiff("D", Date, Text4)
Text2 = a
If Val(Text2) < 0 Then
Label1 = "Belated Happy birthday"
Else
Label1 = "Your birthday comes after " & Text2 & " Days from Today"
End If
End Sub
Private Sub Form_Load()
Text3.MaxLength = 6
End Sub
<?php
for ($i = 1; $i <= 5; $i++) { print $i ."
";
}
$bila = 5;
$pola = 1;
print "
Bilangan ganjil antara 5 sampai 25
";
for ($pola=1; $pola<10; $pola++) { $bila += 2; print "$bila
";
}
?>
Private Sub Command1_Click()
Dim a
a = Text1.Text
Dim b
b = a / 2
Dim c
c = Int(b)
If b = c Then
Label1.Caption = "Odd: False"
Label2.Caption = "Even: True"
Text1.Text = a
Text1.SetFocus
Else
Label1.Caption = "Odd: True"
Label2.Caption = "Even: False"
Text1.Text = a
Text1.SetFocus
End If
End Sub
< ?php$a = 2;$b = 15;
print "\$a = $a dan \$b = $b
";
if ($a > $b){ print "Nilai a lebih besar dari nilai b";}else{ print "Nilai a lebih kecil dari nilai b";}?>
<?php$a = 2;$b = 15;print "\$a = $a dan \$b = $b
";if ($a > $b){ print "Nilai a lebih besar dari nilai b";}else{ print "Nilai a lebih kecil dari nilai b";}?>
