/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Klokkesletsproblem
Fra : Kaerager_Lund


Dato : 22-05-01 21:09

Hej

Jeg er simpelthen løbet ind i en blindgyde. Hvordan en i hel..... trækker
man 2 klokkeslet fra hinanden???? Jeg vil gerne kunne indtaste 815 (svarer
til 8:15) i en tekstbox, og 1545(svarer til 15:45) i en anden tekstbox.
Hvordan trækker man dem fra hinanden, så resultatet bliver 7:30 timer?

MVH

Thomas K



 
 
Jens (22-05-2001)
Kommentar
Fra : Jens


Dato : 22-05-01 21:46

Noget i stil med koden her

Brug Maskedit til det med ":"

Private Sub Command1_Click()

Dim Myminutter As Long
Dim MyTimer As Long
Dim Minus As Long


Myminutter = DateDiff("n", CDate(Text2.Text), CDate(Text1.Text))
MyTimer = Int(Myminutter / 60)
Minus = MyTimer * 60
Myminutter = Myminutter - Minus

MsgBox MyTimer & ":" & Myminutter


End Sub



kpo@mail1. (23-05-2001)
Kommentar
Fra : kpo@mail1.


Dato : 23-05-01 20:35

On Tue, 22 May 2001 22:46:18 +0200, "Jens" <til@infojens.dk> wrote:

Ja, eller hvis du ikke vil bruge Maskedit, men vitterligt vil taste
815 ind for kl. 8:15, så kan du jo selv indsætte ":" på rette pladser.
Det må være noget med at anvende Right-funktionen til at få fat i
minutterne, indsætte ":" foran, og tilføje resten af den oprindelige
streng (det må jo være timerne). Så har du en streng, som kan laves om
til et klokkeslet med CDate.... Og så kører den bare derudaf.

mvh
K.P.Olesen

>Noget i stil med koden her
>
>Brug Maskedit til det med ":"
>
>Private Sub Command1_Click()
>
> Dim Myminutter As Long
> Dim MyTimer As Long
> Dim Minus As Long
>
>
> Myminutter = DateDiff("n", CDate(Text2.Text), CDate(Text1.Text))
> MyTimer = Int(Myminutter / 60)
> Minus = MyTimer * 60
> Myminutter = Myminutter - Minus
>
> MsgBox MyTimer & ":" & Myminutter
>
>
>End Sub
>
>


Gigasoft Danmark (25-05-2001)
Kommentar
Fra : Gigasoft Danmark


Dato : 25-05-01 10:44


"Kaerager_Lund" <kaerager_lund@get2net.dk> wrote in message
news:hFzO6.431$Zc4.12077@news.get2net.dk...
> Hej
>
> Jeg er simpelthen løbet ind i en blindgyde. Hvordan en i hel..... trækker
> man 2 klokkeslet fra hinanden???? Jeg vil gerne kunne indtaste 815 (svarer
> til 8:15) i en tekstbox, og 1545(svarer til 15:45) i en anden tekstbox.
> Hvordan trækker man dem fra hinanden, så resultatet bliver 7:30 timer?
>
> MVH
>
Hej Thomas K
Her er en metode som tæller både tid og dato

Dim tid1 As Date
Dim tid2 As Date
Dim tid3 As Date

Private Sub Command1_Click()
tid1 = Now
Text1.Text = tid1
End Sub

Private Sub Command2_Click()
tid2 = Now
Text2.Text = tid2
End Sub

Private Sub Command3_Click()
tid3 = tid2 - tid1
Text3 = tid3
End Sub



--
Med venlig hilsen
Gigasoft Danmark
Bjarne Østergård
www.gigasoft.dk E-mail: boe@gigasoft.dk
Tlf. 86 49 64 04



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408893
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste