Re: decimaal --> graden in VB

Article View: be.comp.programming

Article #14199

Back to be.comp.programming Previous Next

#14199

From: Kiekens Yannick
Date: Sun, 15 Apr 2001 18:12

32 lines
1532 bytes

> Sub calc()
>
> time.Caption = (WinAMP_GetTrackPosition \ 60)
> time.Caption = daq.Caption & ":"
> Dim i As Long
> i = (WinAMP_GetTrackPosition / 60) - (WinAMP_GetTrackPosition \ 60)
> i = i * 60
> time.Caption = time.Caption & i
> End Sub
>
> Kan iemand mij helpen ???????????
> alvast bedankt,
> Thomas.

Probeer dit eens:

public sub SecToUMS()

    dim TijdInSeconden as long
    dim Uur as long
    dim Min as long
    dim Sec as long
    dim temp as long

    Uur = TijdInSeconden / 3600
    temp = TijdInSeconden mod 3600
    Min = temp / 60
    sec = temp mod 60

end sub

Visit www.software.be.tf

Technical Details

Message-ID: <3ad9e47c$0$4458$456d72a3@news.skynet.be>

Path:

arc1-ca.pugleaf.net!supernews.google.com!sn-xit-03!supernews.com!news-out.visi.com!hermes.visi.com!skynet.be!louie!not-for-mail

References: <9b7hss$se5$1@news.planetinternet.be>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: fcea4,2cb6b0e785bea469
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2001-04-15 11:14:06 PST
Path: arc1-ca.pugleaf.net!supernews.google.com!sn-xit-03!supernews.com!news-out.visi.com!hermes.visi.com!skynet.be!louie!not-for-mail
From: "Kiekens Yannick" <yannickkiekens@skynet.be>
Newsgroups: be.comp.programming
References: <9b7hss$se5$1@news.planetinternet.be>
Subject: Re: decimaal --> graden in VB
Date: Sun, 15 Apr 2001 20:12:41 +0200
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Lines: 34
Message-ID: <3ad9e47c$0$4458$456d72a3@news.skynet.be>
Organization: -= Skynet Usenet Service =-
NNTP-Posting-Host: 194.78.231.33
X-Trace: 987358332 reader0.news.skynet.be 4458 194.78.231.33
X-Complaints-To: abuse@skynet.be

Reply to Parent Message