+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 4 su 4

MaskEdit e Avvisi

  1. #1
    Drift non è in linea Scolaretto
    Salve.
    Stavo creando un programma per tenere sotto controllo le scadenze delle varie pratiche automobilistiche, possedendo 3 automobili e un motorino (mi riferisco a bollo, assicurazione, tagliandi, revisioni ecc).
    Mi sono sorti diversi dubbi:
    1)Ho la presenza di MaskEdit per l'inserimento della data dell'assicurazione. Non riesco però a sommare alla data inserita dall'utente,presente nel MaskEdit per l'assicurazione,182 giorni (cioè un semestrale) o 365 giorni (annuale) per calcolare la data di scadenza dell'assicurazione. Vale questo discorso pure per Bollo, Tagliando e tutto il resto

    2)Una volta fatto questo, vorrei che il programma lavorasse in Background, senza essere visto nella barra applicazioni insomma. Ogni volta che si avvicina una scadenza, appaia una form di avviso all'utente.

    So che dirlo a parole e farlo sono due cose completamente diverse. Magari per il secondo punto posso trovare diverse soluzioni, però il primo punto è essenziale.
    Grazie

  2. Quote Originariamente inviato da Drift Visualizza il messaggio
    Salve.
    1)Ho la presenza di MaskEdit per l'inserimento della data dell'assicurazione. Non riesco però a sommare alla data inserita dall'utente,presente nel MaskEdit per l'assicurazione,182 giorni (cioè un semestrale) o 365 giorni (annuale) per calcolare la data di scadenza dell'assicurazione. Vale questo discorso pure per Bollo, Tagliando e tutto il resto
    MaskEdit non è il controllo adatto per l'input di date. TDateTimePicker non ti piace?
    Mettilo sulla form e fai

    var
      DataScadenza: TDateTime;
    begin
      DataScadenza := DateTimePicker1.Date + 182;
    end;
    
    Il tipo TDateTime è un double; come recita l'help di delphi (tasto F1):
    The integral part of a Delphi TDateTime value is the number of days that have passed since 12/30/1899. The fractional part of the TDateTime value is fraction of a 24 hour day that has elapsed.
    Quindi se sommi un intero, sommi dei giorni!

    Quote Originariamente inviato da Drift Visualizza il messaggio
    2)Una volta fatto questo, vorrei che il programma lavorasse in Background, senza essere visto nella barra applicazioni insomma. Ogni volta che si avvicina una scadenza, appaia una form di avviso all'utente.
    Nel sorgente del progetto ("Project"->"View source") prima di Application.Run aggiungi la riga

    Application.ShowMainForm := false;
    ℹ️ Leggi di più su cyberlaundry ...

  3. #3
    Drift non è in linea Scolaretto
    Quote Originariamente inviato da cyberlaundry Visualizza il messaggio
    MaskEdit non è il controllo adatto per l'input di date. TDateTimePicker non ti piace?
    Mettilo sulla form e fai

    var
      DataScadenza: TDateTime;
    begin
      DataScadenza := DateTimePicker1.Date + 182;
    end;
    
    Il tipo TDateTime è un double; come recita l'help di delphi (tasto F1):
    The integral part of a Delphi TDateTime value is the number of days that have passed since 12/30/1899. The fractional part of the TDateTime value is fraction of a 24 hour day that has elapsed.
    Quindi se sommi un intero, sommi dei giorni!



    Nel sorgente del progetto ("Project"->"View source") prima di Application.Run aggiungi la riga

    Application.ShowMainForm := false;

    Veramente di grande aiuto. Grazie mille.

    Avrei un'ultima domanda.
    Io vorrei visualizzare questo TDate, solo che in un Label non mi è possibile, perchè c'è incompatibilità tra String e TDate.
    So che da Stringa a Numero o viceversa si usano formule tipo StrtoInt e InttoStr. Esiste qualcosa di simile per il mio caso o devo fare in altro modo?Grazie

  4. DateTimeToStr
    ℹ️ Leggi di più su cyberlaundry ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. come togliere avvisi di sistema su macro
    Da ilpescatore nel forum Microsoft Access
    Risposte: 11
    Ultimo Post: 13-12-2014, 22:05
  2. Disattivare gli avvisi di sostituzione
    Da thebusterazz nel forum Microsoft Access
    Risposte: 0
    Ultimo Post: 12-06-2012, 17:12
  3. Intercettare gli avvisi di windows
    Da mandrak nel forum Visual Basic 6
    Risposte: 6
    Ultimo Post: 10-01-2011, 21:17
  4. MaskEdit
    Da nioMatrix nel forum Visual Basic 6
    Risposte: 5
    Ultimo Post: 11-01-2006, 00:16
  5. avvisi di scadenza.
    Da aleocel nel forum Microsoft Word
    Risposte: 1
    Ultimo Post: 19-10-2005, 13:21