Restar horas

[eduardo2009]

que tal pues soy nuevo en esto del visual net y me he encontrado con la siguiente duda, como puedo restar horas ya tengo en un form una hora inicial es decir "17:02" y en un segundo textbox la hora final " 19:17", lo q estoy tratando de hacer es q en un tercer texbox me muestre "02:15" que es la resta.........
(solo ocupo horas no fechas)

bueno de antemano muchas gracias por las respuestas


Saludos

[atak]

Hola, eduardo2009

No tengo exactamente como tu caso pero en algo puede ayudarte esta solucion.
Controles:

Código PHP:

  Formulario ( text : Fechas ) 
Dos Labels ( Hora Inicial, Hora Final) 
Dos Controles DateTimePicker 
Primero: name ( dtpInicial ) Format ( Custom ) CustomFormat ( hh:mm tt ) 
Segundo: name ( dtpFinal ) Format ( Custom ) CustomFormat ( hh:mm tt ) 
Agregamos un Button name ( btnDiferencia ) text (Diferencia) 
Agregamos un textBox name( txtHora ) ReadOnly ( True )  
   

Evento Cick del Button

Código PHP:

   
 
private void btnDiferencia_Click(object sender, EventArgs e) 
{ 
string cadena; 
 
cadena=string.Format("{0:t0}",(dtpFinal.Value - dtpInicial.Value)); 
 
txtHora.Text = cadena.Substring(0, 5); 
}  
   

Saludos ...

[erick_arcini]

Hola eduardo2009 haber si te sirve este trozo de código:

Código:

            string inicial = "17:02";
            TimeSpan tiempoI = TimeSpan.Parse(inicial);
            TimeSpan tiempoF = new TimeSpan(19, 17, 00);
            TimeSpan resta = tiempoF - tiempoI;

[eduardo2009]

Iniciado por atak

Hola, eduardo2009

No tengo exactamente como tu caso pero en algo puede ayudarte esta solucion.
Controles:

Código PHP:

  Formulario ( text : Fechas ) 
Dos Labels ( Hora Inicial, Hora Final) 
Dos Controles DateTimePicker 
Primero: name ( dtpInicial ) Format ( Custom ) CustomFormat ( hh:mm tt ) 
Segundo: name ( dtpFinal ) Format ( Custom ) CustomFormat ( hh:mm tt ) 
Agregamos un Button name ( btnDiferencia ) text (Diferencia) 
Agregamos un textBox name( txtHora ) ReadOnly ( True )  
   

Evento Cick del Button

Código PHP:

   
 
private void btnDiferencia_Click(object sender, EventArgs e) 
{ 
string cadena; 
 
cadena=string.Format("{0:t0}",(dtpFinal.Value - dtpInicial.Value)); 
 
txtHora.Text = cadena.Substring(0, 5); 
}  
   

Saludos ...

Iniciado por erick_arcini

Hola eduardo2009 haber si te sirve este trozo de código:

Código:

            string inicial = "17:02";
            TimeSpan tiempoI = TimeSpan.Parse(inicial);
            TimeSpan tiempoF = new TimeSpan(19, 17, 00);
            TimeSpan resta = tiempoF - tiempoI;

gracias a ambos, la vdd intente acomodar esos codigos pero no se si correspondan a la escritura de visual net por q me marco puros errorres, y como les comentaba soy nuevo en este lenguaje..........


gracias


saludos

[erick_arcini]

visual net no existe, o es visual basic .net o visual c# .net, por favor hay que especificar bien para no caer en estos roles.

Pero al parecer lo estas haciendo en vb.net

Prueba esto:

Código:

Dim inicial as String = "17:02"
Dim tiempoI as TimeSpan = TimeSpan.Parse(inicial)
Dim tiempoF as TimeSpan = new TimeSpan(19, 17, 00)
Dim resta as TimeSpan = tiempoF - tiempoI

[RootK]

Iniciado por eduardo2009

soy nuevo en esto del visual net

Cada vez que veo a alguien refiriendose a visual net como visual basic.net me acuerdo de mis épocas de universidad cuando llegaba a hacer cosas en vb6, nos preguntaban que manejabamos y decíamos "yo sé programar en visual . . ." jeje, yo creo que es una costumbre que se ha venido arrastrando desde hace tiempo, pero a estas alturas del partido ya uno debe referirse a Visual Net como Plataforma .Net y sus lenguajes framework

sorry offtopic jeje

[eduardo2009]

Iniciado por erick_arcini

visual net no existe, o es visual basic .net o visual c# .net, por favor hay que especificar bien para no caer en estos roles.

Pero al parecer lo estas haciendo en vb.net

Prueba esto:

Código:

Dim inicial as String = "17:02"
Dim tiempoI as TimeSpan = TimeSpan.Parse(inicial)
Dim tiempoF as TimeSpan = new TimeSpan(19, 17, 00)
Dim resta as TimeSpan = tiempoF - tiempoI

Que tal gracias por la aclaracion del nombre y efectivamente estoy usando vb.net
segun acomode el codigo de acuerdo a lo que entendi y lo puse de esta manera

Código:

Private Sub Restar_Horas()
        Dim inicial As String = itext01.Text
        Dim tiempoI As TimeSpan = TimeSpan.Parse(inicial)
        Dim tiempoF As TimeSpan = New TimeSpan(ftext01.Text)
        Dim resta As TimeSpan = tiempoF - tiempoI
        rtext01.Text = resta--------------------------------------> error
    End Sub

en esta parte me marca error cuando quiero q me muestre el resultado de la resta de la horas y me dice error, Un valor de tipo System.TimeSpan no se puede convertir en String

gracias por la ayuda

saludos

[erick_arcini]

Hola, que bueno que quedo aclarado, con respecto a tu error tienes toda la razón, para ello solo tienes que convertirlo a string

rtext01.Text = resta.ToString("hh:mm:ss") 'la máscara de "hh:mm:ss" es opcional.

[eduardo2009]

Iniciado por erick_arcini

Hola, que bueno que quedo aclarado, con respecto a tu error tienes toda la razón, para ello solo tienes que convertirlo a string

rtext01.Text = resta.ToString("hh:mm:ss") 'la máscara de "hh:mm:ss" es opcional.

listo ya hizo la resta solo q si me interesaba la mascara que dices solo q de esta manera "H:mm", pero bueno de la manera q me dices o de la q necesito yo si se la pongo me dice Error el argumento de sobrecarga porque ninguna de las funciones'ToString' a las que se tiene acceso acepta este numero de argumento y si se la quito y dejo la instruccion asi

Código:

rtext01.Text = resta.ToString

si me hace la resta con horas minutos y segundo, pero bueno si me pudieras ayudar para q solo me muestre horas y minutos estaria excelente sino de cualquier manera gracias por la ayuda ya hace la resta bien

saludos y nuevamente gracias

[erick_arcini]

simplemente quitale el ":ss" y ya...

[eduardo2009]

Iniciado por erick_arcini

simplemente quitale el ":ss" y ya...

Que tal perdon por la insistencia pero si es lo q te comento lo ponga asi

Código:

rtext01.Text = resta.ToString("hh:mm:ss")

o

Código:

rtext01.Text = resta.ToString("hh:mm")

me marca el error
Error el argumento de sobrecarga porque ninguna de las funciones'ToString' a las que se tiene acceso acepta este numero de argumento

la unica manera q no me marca el error y me hace la resta sin problemas es asi

Código:

rtext01.Text = resta.ToString

por eso comentaba cual seria la manera q me aceptara el formato "hh:mm"

saludos y gracias

[erick_arcini]

Hay que buscarle un poquito en como hacer las cosas man, te dejo esta linea, haber si te sirve así:

Código:

rtext01.Text = String.Format("{0}:{1}", resta.Hours.ToString("00"), resta.Minutes.ToString("00"))

[eduardo2009]

Iniciado por erick_arcini

Hay que buscarle un poquito en como hacer las cosas man, te dejo esta linea, haber si te sirve así:

Código:

rtext01.Text = String.Format("{0}:{1}", resta.Hours.ToString("00"), resta.Minutes.ToString("00"))

si claro lo se pero la vdd nunca habia realizado nada como este ni siquiera en vb6, si me funciono perfectamente y gracias por la ayuda y la paciencia


saludos

[erick_arcini]

Iniciado por eduardo2009

si claro lo se pero la vdd nunca habia realizado nada como este ni siquiera en vb6, si me funciono perfectamente y gracias por la ayuda y la paciencia


saludos

De nada, pero si, te aconsejo que cuando tengas un tiempo libre le des una ojeada a las FAQ's del foro, son muy buenas además de que tienen bastante información de otros sitios.

[PoluxMTZ]

hola pues la verdad mi código no resta horas si que fechas ya estuve buscando en inter pero nada asi que aqui se los dejo recuerden "resta fechas" .


Public Overloads Function ObtenerVigencia(ByVal FechaServidor As String, ByVal FechaOtorgamiento As Date) As String
Dim Vigencia As String = ""
Dim ldAux As Date
Dim lnAnio As Integer
Dim lnMes As Integer
Dim lnDia As Integer
Dim DiaFO As Integer
Dim MesFO As Integer
Dim AñoFO As Integer
Dim FechaActual As Date
Dim FechaOtorgamientoMas10 As Date
If FechaOtorgamiento < "12-01-2005" Then
Vigencia = "PERMANENTE"
Else
FechaOtorgamientoMas10 = DateAdd(DateInterval.Year, 10, FechaOtorgamiento)
DiaFO = Microsoft.VisualBasic.DateAndTime.Day(FechaServido r)
MesFO = Month(FechaServidor)
AñoFO = Year(FechaServidor)
FechaActual = CDate(DiaFO.ToString + "/" + MesFO.ToString + "/" + AñoFO.ToString)

lnAnio = Year(FechaOtorgamientoMas10) - Year(FechaActual)
ldAux = DateAdd(DateInterval.Month, (12 * lnAnio), FechaActual)
'--- No cumplio el año aun
If ldAux > FechaOtorgamientoMas10 Then
lnAnio = lnAnio - 1
End If
lnMes = Month(FechaOtorgamientoMas10) - Month(FechaActual)
If lnMes < 0 Then
lnMes = lnMes + 12
End If
lnDia = Day(FechaOtorgamientoMas10) - Day(FechaActual)
If lnDia < 0 Then
lnDia = lnDia + DiasDelMes(FechaActual)
End If
Dim Núm_días As Integer = Day(DateSerial(Year(FechaOtorgamientoMas10), lnMes - 1, 0))

'Si el dia es mayor, no cumplio el mes
If (Day(FechaOtorgamientoMas10) < Day(FechaActual)) Then
If lnMes = 0 Then
lnMes = 11
Else
lnMes = lnMes - 1
End If
End If
If lnDia < 0 Then
lnDia = lnDia + Núm_días
End If
If lnAnio >= 10 And lnMes >= 0 And lnDia > 0 Then
Vigencia = "COMPROBAR"
Else
Vigencia = Vigencia & " Años: " & lnAnio & " Meses: " & lnMes & " Dias: " & lnDia ' & "Num_dias" & Núm_días
End If
End If
Return Vigencia
End Function