nedtælling på form HASTER

du kan downloade noget hjælp til at få omregnet minutter til dage+tid her:

http://www.parodux.com/?cat=36

kan ikke se at den kan give det nødvendige kode for at løse det

Sub dageMinutter(slut As Date)
    Dim timeSpan
    timeSpan = CDbl(slut) - CDbl(Now())
    Debug.Print "Dage: " & Int(timeSpan)
    Debug.Print "Minutter: " & Int(3600 * (timeSpan - Int(timeSpan)))
End Sub

skal denne kode sættes på form on open ?

Aner det ikke, hnto! - implementation er overladt til dit kreative gen ;)

Lige meget hvilken løsning, så er du nød til at ligge koden på OnOpen og OnCurrent!~)

...medmindre du kan ligge en løsning på kontrolelementkilden for selve feltet, det kan du f.eks. med funktionen datediff..

kan du definere koden for mig indenfor de 100 point ?

Ja, du må undskylde jeg hopper lidt ud og ind, men jeg er dybt begravet!~)

Hvis du kan nøjes med antal dage, så kan du ligge dette på kontrolelementkilden for et felt:

=DateDiff("d";Date();[DitSlutDatoFelt])

..eller med decimaler:

=DateDiff("n";Now();[Indtastningsfelt])/1440

det begynder at ligne noget, men nu fucker access op i den dato jeg skriver i mit tekstfelt.

feks har jeg gjort sådan:

=DateDiff("d";Date();[text100])

i text100 har jeg under default value skrevet 14-04-2011, og formatteret dette som short date, men den skriver år 1879 i formen ( altså den samme problemstilling som vi kender fra Excel)

hvordan kommer jeg ud over dette. ?

#14-04-2011#

Ang. dage tilbage syntes jeg du skal bruge:

=DateDiff("n";Now();[Indtastningsfelt])/1440

og så formatere feltet som fast!~)

så skal vi bare have et svar :-)

...nu skulle jeg lige se hvad man kunne tvinge ud af sådan en kontrolelementkilde... prøv lige at sætte den her ind:~)

=IIf(Left(DateDiff("n";Now();[text100])/1440;InStr(DateDiff("n";Now();[text100])/1440;",")-1)=1;Left(DateDiff("n";Now();[text100])/1440;InStr(DateDiff("n";Now();[text100])/1440;",")-1) & " dag ";Left(DateDiff("n";Now();[text100])/1440;InStr(DateDiff("n";Now();[text100])/1440;",")-1) & " dage ") & Format((DateDiff("n";Now();[text100])/1440);"Kort klokkeslætsformat")

!~)

så skriver den
-42631 dage Kort klokke0læt0for4at

:-)

..er det ikke godt nok?~)

...nej, spøg til side....

Det virker hos mig, du kan få et kopi, hvis du vil gøre mere ved det..

hos mig viser det eksempelvis: 9 dage 14:34

..har du forresten en dansk eller engelsk officepakke og hvilken officepakke er der tale om?~)

Du kan prøve at skrive "short time" i stedet for "kort klokkesletsformat" og så sæt format på dit indtastningsfelt til "short date"