procedure TForm1.Button1Click(Sender: TObject);
var
  hoje: TDateTime;
begin
  // não esqueça de adicionar DateUtils ao seus uses

  // vamos obter a data de hoje
  hoje := Now;

  // vamos exibir a data de hoje
  ShowMessage('Hoje é: ' + DateToStr(hoje));

  // vamos adicionar 2 meses à data de hoje
  hoje := IncMonth(hoje, 2);

  // vamos exibir o resultado
  ShowMessage('Daqui a 2 meses será: ' + DateToStr(hoje));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  hoje: TDateTime;
begin
  // não esqueça de adicionar DateUtils ao seus uses

  // vamos obter a data de hoje
  hoje := Now;

  // vamos exibir a data de hoje
  ShowMessage('Hoje é: ' + DateToStr(hoje));

  // vamos subtrair 3 meses da data de hoje
  hoje := IncMonth(hoje, -3);

  // vamos exibir o resultado
  ShowMessage('Há 3 meses era: ' + DateToStr(hoje));
end;

# Este exemplo mostra como usar o método to_f
# para converter uma string em um valor numérico
# de ponto-flutuante

# vamos pedir para o usuário informar
# dois números
print "Informe o primeiro número: "
num1 = (gets.chomp).to_f
print "Informe o segundo número: "
num2 = (gets.chomp).to_f

# vamos exibir a soma dos valores informados
puts "A soma dos valores é: #{num1 + num2}"

Imports System

Module Program
  Sub Main(args As String())
    Dim palavra1, palavra2 As String
    palavra1 = "Visual Basic"
    palavra2 = "Visual Basic"

    If String.Compare(palavra1, palavra2) = 0 Then
      Console.WriteLine("As duas strings são iguais")
    Else
      Console.WriteLine("As duas strings são diferentes")
    End If

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

<?php
  $principal = 2000.00;
  $taxa = 0.08; // 8%
  $meses = 2;
  
  $juros = $principal * $taxa * $meses;
  
  echo "O total de juros a ser pago é: " . $juros;
?>

<?php
  $principal = 2000.00;
  $taxa = 0.08; // 8%
  $meses = 2;
  
  $juros = $principal * $taxa * $meses;
  $montante = $principal * (1 + ($taxa * $meses));
  
  echo "O total de juros a ser pago é: " . $juros . "<br>";
  echo "O montante a ser pago é: " . $montante;
?>