dll-funktion returnerer intet

teVisDato =  DateValue(Me.dtpDato)

Jeg skal lige forstå rigtigt - hvor vil du ændre?

Jeg kan som sagt se at Public-variablen "teVisDato" får tildelt den rigtige værdi når jeg trykker "ok".

"teVisDato" = "dteVisDato"

Public Function VisDato(dteVisDato) As Date
frmDato.Show vbModal
        VisDato = dteVisDato
        'MsgBox dteVisDato & vbCr & VisDato & vbCr & "Funk slut" 'debug
End Function

prøv denne, ellers er jeg på bar bund ?

Det virker som om "dteVisDato" bliver nulstillet når "frmDato" unloades, men jeg ved ikke hvordan jeg undgår det?

Kabbak, den går ikke for så vil funktionen jo ha' et parameter når jeg kalder den.

Jeg har testet lidt i VBA excel, jeg ved ikke om det er der du programmere i ?


prøv at smide dette i et almindelig modul


'****************Class Module***********************
Public dteVisDato As Date

Public Function VisDato() As Date
  VisDato = dteVisDato
frmDato.Show vbModal
   
        'MsgBox dteVisDato & vbCr & VisDato & vbCr & "Funk slut" 'debug
End Function

Jeg har fundet ud af at jeg ikke kan tildele en værdi til "dteVisDato" i Class modulet fra formular-koden (Option Explicit kunne have sparet mig for meget!), så hvad gør jeg nu?

Jeg skal jo 'på tværs' af de to kodemoduler, altså fra formularen til Class modulet - nogen med en god idé

jeg programmerer i VB 6 og det skal jo ende ud med en dll så jeg kan ikke bruge VBA.

Kabbak >>17:09:43<< , den rækkefølge duer ikke da brugeren jo vælger datoen i formularen

Den kan ikke finde du af at din globale variabel ligger i en klasse, helt dirty kan du oprette et modul og flytte Public dteVisDato As Date over i modulet, så kan du sætte den fra din form og senere læse den gemte værdi i klassen som starter dll'en

Synes dog det ville være lidt pænere hvis du fx lavede en init funktion på formen som tager en dato variabel med som parameter.
Fx
******************** FORM KODE ***********************
Option Explicit

Private mDato As Date

Private Sub cmdAnnuller_Click()
  Unload Me
End Sub

Private Sub cmdOk_Click()
  mDato = dtpDato.Value
  Unload Me
End Sub

Public Sub Init(dato As Date)
  mDato = dato
  Me.Show vbModal
  dato = mDato
End Sub

************ CLASS *****************
Public dteVisDato As Date

Public Function VisDato() As Date
dim tmp as Date
        frmDato.Init tmp
        VisDato = tmp
End Function

Superlækkert, Helmet - smid et svar :-)

Javel, et svar :)

Mange tak for hjælpen.

Kan du forklare lidt om hvordan det fungerer for jeg kan ikke helt gennemskue det.

Skal prøve, går vel lidt på ByRef/ByVal.
VB sender som default variabler som referencer (ByRef), kort sagt betyder det at alle ændringer på variablen slår igennem hele vejen tilbage, endda udenfor funktionen. Her vil det sige at tmp bliver opdateret når jeg ændrer dato variablen i Init funktionen.

Er der andet?

Smart, den var jeg ikke selv kommet på :-)

..og nej, der var ikke andet - lige nu :)

endnu engang tak for hjælpen.