PROBLEMA COM CALCULO DE HORAS
Boa tarde.
Estou com um problema em fazer uns calculos com horas e datas no vb 2010.Passoa explicar:
1- No form tenho 1 textbox para a data e hora final, formato (MM/DD/AAAA hh:mm:ss)
2- Tenho depois 3 textbox para colocação da duração de HH, mm, ss
3- Por fim uma textbox que mostra a hora inicial
Os cáculos serão feitos tipo isto isto...
Será que alguém me pode ajudar??
Estou com um problema em fazer uns calculos com horas e datas no vb 2010.Passoa explicar:
1- No form tenho 1 textbox para a data e hora final, formato (MM/DD/AAAA hh:mm:ss)
2- Tenho depois 3 textbox para colocação da duração de HH, mm, ss
3- Por fim uma textbox que mostra a hora inicial
Os cáculos serão feitos tipo isto isto...
Será que alguém me pode ajudar??
Eu pretendo calcular da seguinte forma:
Através da data e hora final( a 1ª Textbox), subtraio um determinado número de horas ( as 3 Textbox[ô]s do meio) e a Data e hora inicial aparece como resultado na última textbox.
Pela ordem das Textbox[ô]s conforme aparecem no form:
Data e Hora final - Duração = Data e Hora Inicial
Pretendo fazer o cálculo tal como aparece na 2ª imagem( a que aparece com o fundo amarelo no meu 1º post)
O código fonte da 2ª imagem é:
Eu pretendia conseguir fazer isto em VB 2010
Tudo o que tenho encontrado é do tipo data e hora inicial - data e hora final = duração
Obrigado pela ajuda desde já
Através da data e hora final( a 1ª Textbox), subtraio um determinado número de horas ( as 3 Textbox[ô]s do meio) e a Data e hora inicial aparece como resultado na última textbox.
Pela ordem das Textbox[ô]s conforme aparecem no form:
Data e Hora final - Duração = Data e Hora Inicial
Pretendo fazer o cálculo tal como aparece na 2ª imagem( a que aparece com o fundo amarelo no meu 1º post)
O código fonte da 2ª imagem é:
<html xmlns=[Ô]http://www.w3.org/1999/xhtml[Ô]>
<head>
<meta http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=UTF-8[Ô]/>
<title>CalculadoraPTframe</title>
<script language=[Ô]Javascript[Ô] type=[Ô]text/Javascript[Ô]>
function contas(form)
{
var myDate = new Date(form.data.value);
var myEpoch = myDate.getTime()/1000.0;
duracao = (form.horast.value * 3600) + (form.minutost.value * 60) + (form.segundost.value * 1);
resul = myEpoch - duracao;
result = new Date( resul *1000);
form.resultado.value = result;
}
</script>
Eu pretendia conseguir fazer isto em VB 2010
Tudo o que tenho encontrado é do tipo data e hora inicial - data e hora final = duração
Obrigado pela ajuda desde já
Neste link, existe uma classe excelente para usar perÃodos de data e hora.
Olá boa noite.
Não sei se é isto que queres; nem qual a linguagem a que te referes visto estar referênciado para .Net; e apresentares um código C# embebido em HTML
Até+
Programadorvb6
Não sei se é isto que queres; nem qual a linguagem a que te referes visto estar referênciado para .Net; e apresentares um código C# embebido em HTML
Até+
Programadorvb6
Citação::
Neste link, existe uma classe excelente para usar perÃodos de data e hora.
Vou experimentar isso a ver se resolve o meu problema....
O que eu pretendo de uma forma simples é pegar na data e hora final, subtrair a esta a duração e obter como resultado a Data e Hora inicial.
Consegui fazer isso no excel como podem ver
Uploaded with ImageShack.us
Mas queria fazer isso directamente no VB2010 sem ter de embutir uma folha excel
Bom dia a todos.
Após pesquisar e muito testar, consegui fazer alguns avanços relativamente aos calculos que pretendo fazer e agora encalhei no fim...
Neste caso o cálculo está a ser feito da seguinte forma( nºs a vermelho nas textbox[ô]s):
2-1=3
Agora falta aparecer a hora final
Deixo aqui o código que tenho até ao momento para fazer este cálculo:
Será que alguém me pode dar uma ajuda???
Após pesquisar e muito testar, consegui fazer alguns avanços relativamente aos calculos que pretendo fazer e agora encalhei no fim...
Neste caso o cálculo está a ser feito da seguinte forma( nºs a vermelho nas textbox[ô]s):
2-1=3
Agora falta aparecer a hora final
Deixo aqui o código que tenho até ao momento para fazer este cálculo:
Imports System
Imports System.Globalization
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim data1 As DateTime = DateTime.Parse(TextBox1.Text)
Dim hora As DateTime = DateTime.Parse(TextBox2.Text)
Dim dif As TimeSpan
[ô]Dim provider As CultureInfo = CultureInfo.CurrentCulture
Dim resultado As DateTime = DateTime.Parse(dif.ToString) [ô], provider)
dif = data1 - hora
[ô]resultado = dif.ToString([Ô]yyyy/MM/dd HH:mm:ss[Ô])
TextBox3.Text = resultado
End Sub
End ClassSerá que alguém me pode dar uma ajuda???
Olá boa tarde.
Após tentar entender o que queres,fiz algumas pesquizas na net...
Espero ter ajudado.
Até+
Programadorvb6
Vou testar, mas parece que é isso sim que eu procuro. logo depois digo algo aqui no fórum. Obrigado
Muito obrigado [txt-color=#0000f0]PROGRAMADORVB6[/txt-color]. Era isto mesmo que eu procurava.Mais um problema resolvido nesta grande comunidade.
Tópico encerrado , respostas não são mais permitidas