Conversor de moedas

Código HTML da página cotaçao.aspx:

Conversor de Moedas

Conversor de Moedas

Valor a Converter:

Data da Cotação: (DD/MM/AAAA)

Converter de para

 

Valor Calculado:

Imports CotacaoUtil

Imports System.IO

Imports System.Net

Partial Class pagina_cotacao

Inherits System.Web.UI.Page

Protected Sub btnCalcular_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCalcular.Click

"Cria instância do objeto de cotação

Dim objCotacaoUtil As New CotacaoUtil

"******** Recupera moeda de origem selecionada ********

Dim enMoedaOrigem As Moeda

enMoedaOrigem = CType(cmbMoedaOrigem.SelectedValue, Moeda)

"****************

"******** Recupera moeda de destino selecionada ********

Dim enMoedaDestino As Moeda

enMoedaDestino = CType(cmbMoedaDestino.SelectedValue, Moeda)

"****************

"Limpa mensagem de erro

lblErro.Text = ""

"******** Efetua conversão do valor ********

Dim dblVlConvertido As Double

Try

dblVlConvertido = objCotacaoUtil.Converter(CDate(txtData.Text), CDbl(txtValor.Text), _

enMoedaOrigem, enMoedaDestino)

Catch ex As Exception

lblErro.Text = "ERRO: " & Err.Description

End Try

"****************

"Formata valor para 2 casas decimais e exibe no label

lblConvertido.Text = FormatNumber(dblVlConvertido, 2)

End Sub

Protected Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles form1.Load

If Not Me.IsPostBack Then

Dim dtData As Date

"******** Define dia útil para a data da cotação ********

Select Case Now.DayOfWeek

Case DayOfWeek.Saturday

dtData = Now.Date.AddDays(-2)

Case DayOfWeek.Sunday

dtData = Now.Date.AddDays(-3)

Case Else

dtData = Now.Date.AddDays(-1)

End Select

"****************

"******** Insere números não significativos ********

Dim strDia As String

If dtData.Day < 10 Then

strDia = "0" & dtData.Day